Consejo: Otros idiomas son traducidos por Google. Puedes visitar el English versión de este enlace.
Iniciar sesión
x
or
x
x
Suscríbete
x

or

¿Cómo transportar los datos de la columna a una sola celda en Excel?

Cuando necesita transponer una lista de datos en una sola celda en una hoja de cálculo, normalmente, puede aplicar la Concatenar función para fusionar la lista de celdas en una celda, pero será complejo si hay que combinar grandes cantidades de datos. En este artículo, hablaré sobre algunos trucos rápidos para que resuelvas esta tarea en Excel.

Transponer los datos de la columna a una sola celda con la función definida por el usuario

Transponer datos de la columna en una sola celda con Kutools para Excel


Transponer o combinar datos de una columna en una sola celda:

Kutools for Excel's Combinar la característica puede ayudarlo a combinar rápidamente múltiples contenidos de celda en una sola celda cuando lo necesite.

doc transpone las celdas en una celda 6

Kutools for Excel: con más de 200 útiles complementos de Excel, de prueba sin límite en días 60. Descargar y prueba gratis ahora!



Excepto la función Concatenar para combinar una lista de valores de celda, puede aplicar el siguiente código de VBA para obtener el resultado lo más rápido posible.

1. Mantenga presionado el ALT + F11 llaves, y abre la Microsoft Visual Basic para aplicaciones ventana.

2. Hacer clic recuadro > Móduloy pegue el siguiente código en Módulo Ventana.

Código de VBA: transpone los datos de la columna a una sola celda

Function transposeRange(Rg As Range)
'updateby Extendoffice 20151207
    Dim xCell As Range
    Dim xStr As String
    For Each xCell In Rg
        If Not IsEmpty(xCell.Value) Then
            xStr = xStr & xCell.Value & ","
        End If
    Next
    transposeRange = Left(xStr, Len(xStr) - 1)
End Function

3. A continuación, guarde y cierre este código, vuelva a la hoja de trabajo e ingrese esta fórmula: = transposerange (A1: A10) en una celda en blanco para poner el resultado, y presione entrar clave, obtendrá todos los valores de celda en una columna que se han ubicado en una sola celda, vea la captura de pantalla:

doc transpone las celdas en una celda 1

Nota: En el código anterior, A1: A10 es el rango de lista que desea transponer en una sola celda, y también, puede separar el contenido fusionado con otros delimitadores, como coma, guión, espacio, etc. simplemente cambiando la coma en el guión xStr = xStr y xCell.Value & ",".


Si usted tiene Kutools for Excel, con su poderosa herramienta-Combinar, puede combinar datos en una columna, fila o rango en una celda.

Kutools for Excel : con más de 300 útiles complementos de Excel, de prueba sin límite en días 60.

Después de instalar Kutools for Excel, haz lo siguiente :( Descarga gratuita Kutools for Excel ahora! )

1. Seleccione la columna de datos que desea combinar en una celda.

2. Hacer clic Kutools > Combinar, mira la captura de pantalla:

doc transpone las celdas en una celda 2

3. En la Combinar columna o filas cuadro de diálogo, seleccione Combine en una sola célula bajo la Para combinar celdas seleccionadas de acuerdo a las siguientes opciones, y luego especifique un separador para separar el contenido fusionado, vea la captura de pantalla:

doc transpone las celdas en una celda 3

4. Luego haga clic Ok or Aplicar botón, y obtendrá el siguiente resultado cuando lo necesite:

doc transpone las celdas en una celda 4  2 doc transpone las celdas en una celda 5

Descargue y pruebe de forma gratuita Kutools for Excel Now!


Kutools for Excel: con más de 200 útiles complementos de Excel, de prueba sin límite en días 60. Descargar y prueba gratis ahora!


Kutools for Excel: la mejor herramienta de productividad de Office aumenta su productividad en un 80%

  • Super Formula Bar (edite fácilmente varias líneas de texto y fórmula); Diseño de lectura (lee y edita fácilmente un gran número de celdas); Pegar en rango filtrado...
  • Combinar celdas / filas / columnas y mantener datos; Contenido de celdas divididas; Combinar filas duplicadas y suma / promedio... Prevenir células duplicadas; Comparar rangos...
  • Seleccione Duplicado o Único Filas; Seleccionar filas en blanco (todas las celdas están vacías); Super Find y Fuzzy Find en muchos libros de trabajo; Selección aleatoria ...
  • Copia exacta Celdas múltiples sin cambiar la referencia de fórmula; Crear referencias automáticamente a múltiples hojas; Insertar viñetas, Casillas de verificación y más ...
  • Fórmulas favoritas e insertadas rápidamente, Gamas, cuadros y cuadros; Cifrar celdas con contraseña Crear una lista de correo y enviar correos electrónicos ...
  • Extracto del texto, Agregar texto, Eliminar por posición, Eliminar espacio; Crear e imprimir subtotales de paginación; Convertir entre contenido de celdas y comentarios...
  • Súper filtro (guardar y aplicar esquemas de filtro a otras hojas); Clasificación avanzada por mes / semana / día, frecuencia y más; Filtro especial por negrita, cursiva ...
  • Combinar libros de trabajo y hojas de trabajo; Combinar tablas basadas en columnas clave; Dividir datos en varias hojas; Conversión por lotes xls, xlsx y PDF...
  • Funciona con Office 2007-2019 y 365, y es compatible con todos los idiomas. Es fácil de implementar en su empresa. Funciones completas de prueba gratuita de 60-day.
pestaña kte 201905

Office Tab lleva la interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil

  • Habilitar la edición y lectura con pestañas en Word, Excel, PowerPoint, Editor, Acceso, Visio y Proyecto.
  • Abra y cree varios documentos en nuevas pestañas de la misma ventana, en lugar de en nuevas ventanas.
  • ¡Aumenta tu productividad en un 50% y reduce cientos de clics de ratón por ti todos los días!
fondo officetab
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Sophie · 11 months ago
    Hi,

    Thanks a lot! I'm using your following function and it works very well. I would like to include an "if" function in the transposerange. What should I add to the function in VBA? Basically, it would work like a countif. So we would read the formula =transposerangeif(range,criteria).

    Thanks in advance!

    Function transposeRange(Rg As Range)
    'updateby Extendoffice 20151207
    Dim xCell As Range
    Dim xStr As String
    For Each xCell In Rg
    If Not IsEmpty(xCell.Value) Then
    xStr = xStr & xCell.Value & ","
    End If
    Next
    transposeRange = Left(xStr, Len(xStr) - 1)
    End Function
    • To post as a guest, your comment is unpublished.
      skyyang · 11 months ago
      Hello,Sophie,
      Could you give an example for your need, you can insert a screenshot here.
  • To post as a guest, your comment is unpublished.
    Eric · 1 years ago
    Thanks, this was very helpful.