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 concatenar valores de celda hasta que encuentre una celda en blanco en una columna?

doc concatenar hasta que en blanco 1

Por ejemplo, tengo una lista de valores que incluye algunas celdas en blanco, y ahora, quiero concatenar cada conjunto de datos entre espacios en blanco en una celda y enumerar los valores combinados en otra columna como se muestra a continuación. ¿Cómo podría concatenar células hasta encontrar una celda en blanco en una columna?

Concatenar valores de celda hasta que encuentre una celda en blanco en una columna con código VBA

Concatenar valores de celda hasta que encuentre una celda en blanco en una columna con Kutools for Excel


Transforme una sola columna / fila en un rango por celdas en blanco:

Kutools for Excel's Transform Range la utilidad puede ayudarlo a convertir una sola fila o columna en un rango de celdas y viceversa.

doc concatenar hasta que en blanco 9

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!


flecha azul burbuja derecha Concatenar valores de celda hasta que encuentre una celda en blanco en una columna con código VBA


No hay una forma directa de concatenar un conjunto de celdas entre espacios en blanco, pero puede aplicar el siguiente código VBA para manejarlo. Por favor haz lo siguiente:

1. Mantenga presionado el ALT + F11 teclas para abrir el Ventana de Microsoft Visual Basic para Aplicaciones.

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

Código VBA: concatenar valores de celda hasta que encuentre una celda en blanco

Sub Concatenatecells()
'updateby Extendoffice 20160513
    Dim xRg As Range
    Dim xSaveToRg As Range
    Dim xTxt As String
    Dim xCell As Range
    Dim xTStr As String
    On Error Resume Next
    xTxt = ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Please selecte the data range:", "Kutools for Excel", xTxt, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    If xRg.Columns.Count > 1 Then
        MsgBox "the selected range is more than one column", vbInformation, "Kutools for Ecel"
        Exit Sub
    End If
    Set xSaveToRg = Application.InputBox("Please selecte output cell:", "Kutools for Excel", , , , , , 8)
    If xSaveToRg Is Nothing Then Exit Sub
    Set xSaveToRg = xSaveToRg.Cells(1)
    Application.ScreenUpdating = False
    For Each xCell In xRg
        If xCell <> "" Then
            xTStr = xTStr & xCell & " "
        Else
            xSaveToRg.Value = xTStr
            Set xSaveToRg = xSaveToRg.Offset(1)
            xTStr = ""
        End If
    Next
    If xTStr <> "" Then xSaveToRg.Value = Left(xTStr, Len(xTStr) - 1)
    Application.ScreenUpdating = True
End Sub

3. Entonces presione F5 tecla para ejecutar este código, y se abre un cuadro de aviso para recordarle que seleccione el rango de datos que desea concatenar, vea la captura de pantalla:

doc concatenar hasta que en blanco 10

4. Luego haga clic OK, y se abre otro cuadro de aviso, seleccione una celda para mostrar el resultado concatenado, vea la captura de pantalla:

doc concatenar hasta que en blanco 11

5. Y luego haz clic OK y los datos de la lista de columnas se concatenan entre los espacios en blanco, vea la captura de pantalla:

doc concatenar hasta que en blanco 1


flecha azul burbuja derecha Concatenar valores de celda hasta que encuentre una celda en blanco en una columna con Kutools for Excel

Si usted tiene Kutools for Excel, combinando su Transform Range y Combinar características, también puede terminar este trabajo lo antes posible. los Transform Range utilidad puede ayudarle a convertir la columna individual a un rango, y la Combinar la función puede ayudarlo a concatenar el rango transformado a una columna.

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:

1. Seleccione las celdas que desea concatenar y haga clic Kutools > Rango > Transform Range, mira la captura de pantalla:

doc concatenar hasta que en blanco 2

2. En la Transform Range cuadro de diálogo, verificar Una columna a rango Bajo el Tipo de transformaciónY seleccione La celda en blanco delimita los registros bajo la Filas por registro, mira la captura de pantalla:

doc concatenar hasta que en blanco 3

3. A continuación, haga clic en Ok, y aparecerá un cuadro emergente para recordarle que seleccione una celda para generar el resultado, vea la captura de pantalla:

doc concatenar hasta que en blanco 4

4. Hacer clic OK, y la celda en blanco ha convertido los datos de una sola columna en varias filas y columnas, vea la captura de pantalla:

doc concatenar hasta que en blanco 5

5. Los datos convertidos se encuentran en varias columnas, por lo que debe combinarlos en una columna, seleccione el rango de datos y haga clic en Kutools > Combinar, mira la captura de pantalla:

doc concatenar hasta que en blanco 6

6. En la Combinar columnas o filas cuadro de diálogo, haga las siguientes opciones:

(1.) Seleccione Combine columnas Opción de la Para combinar celdas seleccionadas de acuerdo a las siguientes opciones;

(2.) Luego especifique un separador que desea separar los valores concatenados;

(3.) Seleccione cómo desea tratar las celdas combinadas. Puede conservar o eliminar los datos originales, y también puede combinar las celdas combinadas. Ver captura de pantalla:

doc concatenar hasta que en blanco 7

7. Después de finalizar la configuración, haga clic Ok or Aplicar botón, las celdas se han concatenado en una columna con un separador específico, ver captura de pantalla:

doc concatenar hasta que en blanco 8

Descargue y pruebe de forma gratuita Kutools for Excel Now!


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.
    Crystal · 2 years ago
    How would you do it if you want to base it off another column? I have similar data, but column B is a number then notes(like your fruit) in column I, I want to combine all notes in column I until there is another cell in Column B that has only number. Sometimes there are letter under B or the cells are blank which is why it needs to combine until a number.

    Then finally can it output back to where it started the combine? IE all notes for first number are in column j, but if the next number is 5 rows below that is fine, it just goes in column j but same row number as the number is found?