Note: The other languages of the website are Google-translated. Back to English

¿Cómo concatenar valores de celda hasta que encuentre una celda en blanco en una columna?

doc concatenar hasta que quede 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 en la siguiente captura de pantalla. ¿Cómo podría concatenar celdas 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 para Excel


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 solucionarlo. Haz lo siguiente:

1. Mantenga pulsado 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 el Ventana de módulo.

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

Sub Concatenatecells()
'updateby Extendoffice
    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 para ejecutar este código, y aparece un cuadro emergente para recordarle que seleccione el rango de datos que desea concatenar, vea la captura de pantalla:

doc concatenar hasta que quede en blanco 10

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

doc concatenar hasta que quede 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 quede en blanco 1


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

Si tiene Kutools for Excel, combinando su Transformar rango y Combinar características, también puede terminar este trabajo lo antes posible. los Transformar rango La utilidad puede ayudarlo a convertir la columna única en un rango, y la Combinar La función puede ayudarlo a concatenar el rango transformado en una columna.

Kutools for Excel : con más de 300 prácticos complementos de Excel, prueba gratuita y sin límite en 30 días. 

Después de instalar Kutools for Excel, haga lo siguiente:

1. Seleccione las celdas que desea concatenar y haga clic en Kutools > Gama de Colores > Transformar rango, ver captura de pantalla:

2. En la Transformar rango cuadro de diálogo, comprobar Columna única para rango Bajo el Tipo de transformaciónY seleccione La celda en blanco delimita registros bajo el Filas por registro, ver captura de pantalla:

doc concatenar hasta que quede 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 quede en blanco 4

4. Hacer clic OK, y los datos de una sola columna se han convertido en múltiples filas y columnas por la celda en blanco, vea la captura de pantalla:

doc concatenar hasta que quede en blanco 5

5. Los datos convertidos están en varias columnas, por lo que debe combinarlos en una columna, seleccione el rango de datos y haga clic en Kutools > Fusionar y dividir > Combine filas, columnas o celdas sin perder datos, ver captura de pantalla:

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

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

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

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

doc concatenar hasta que quede en blanco 7

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

doc concatenar hasta que quede en blanco 8

¡Descargue y pruebe Kutools para Excel ahora!


Las mejores herramientas de productividad de oficina

Kutools para Excel resuelve la mayoría de sus problemas y aumenta su productividad en un 80%

  • Reutilizar: Inserte rápidamente fórmulas complejas, gráficos y cualquier cosa que hayas usado antes; Cifrar celdas con contraseña; Crear lista de distribución y enviar correos electrónicos ...
  • Barra de súper fórmula (edite fácilmente varias líneas de texto y fórmulas); Diseño de lectura (leer y editar fácilmente un gran número de celdas); Pegar en rango filtrado...
  • Combinar celdas / filas / columnas sin perder datos; Contenido de celdas divididas; Combinar filas / columnas duplicadas... Prevenir celdas 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 Varias celdas sin cambiar la referencia de la fórmula; Crear referencias automáticamente a varias hojas; Insertar viñetas, Casillas de verificación y más ...
  • Extraer texto, Agregar texto, Eliminar por posición, Quitar espacio; Crear e imprimir subtotales de paginación; Convertir entre contenido de celdas y comentarios...
  • Súper filtro (guardar y aplicar esquemas de filtros a otras hojas); Orden avanzado por mes / semana / día, frecuencia y más; Filtro especial en negrita, cursiva ...
  • Combinar libros y hojas de trabajo; Combinar tablas basadas en columnas clave; Dividir datos en varias hojas; Conversión por lotes de xls, xlsx y PDF...
  • Más de 300 potentes funciones. Compatible con Office/Excel 2007-2021 y 365. Compatible con todos los idiomas. Fácil implementación en su empresa u organización. Funciones completas Prueba gratuita de 30 días. Garantía de devolución de dinero de 60 días.
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

  • Habilite la edición y lectura con pestañas en Word, Excel, PowerPoint, Publisher, Access, Visio y Project.
  • Abra y cree varios documentos en nuevas pestañas de la misma ventana, en lugar de en nuevas ventanas.
  • ¡Aumenta su productividad en un 50% y reduce cientos de clics del mouse todos los días!
officetab parte inferior
Comentarios (7)
Aún no hay calificaciones. ¡Sé el primero en calificar!
Este comentario fue minimizado por el moderador en el sitio
¿Cómo lo haría si quisiera basarlo en otra columna? Tengo datos similares, pero la columna B es un número y luego las notas (como su fruta) en la columna I, quiero combinar todas las notas en la columna I hasta que haya otra celda en la Columna B que solo tenga un número. A veces hay una letra debajo de B o las celdas están en blanco, por lo que es necesario combinarlas hasta obtener un número. Entonces, finalmente, ¿puede volver a donde comenzó la cosechadora? Es decir, todas las notas para el primer número están en la columna j, pero si el siguiente número está 5 filas debajo, está bien, simplemente va en la columna j, pero ¿se encuentra el mismo número de fila que el número?
Este comentario fue minimizado por el moderador en el sitio
Muestra que hay un error de sintaxis en la línea 3 "Dim xRg As Range" cuando intento ejecutar este módulo según el método 1, ¿qué debo hacer al respecto?
Este comentario fue minimizado por el moderador en el sitio
Hola, JJ, el código funciona bien en mi hoja de trabajo, ¿qué versión de Excel usas? O puedes insertar una captura de pantalla de tu problema aquí.
Este comentario fue minimizado por el moderador en el sitio
gran trabajo hermano, muy util
Este comentario fue minimizado por el moderador en el sitio
Hola,
De nada. Me alegro de que ayude Alguna pregunta, por favor sientase libre de contactarnos. Qué tengas un lindo día.
Atentamente,
Mandy
Este comentario fue minimizado por el moderador en el sitio
¡Hola! Después de cambiar los valores (por ejemplo, sandía en lugar de manzana), ¿por qué no funciona la fórmula?
Este comentario fue minimizado por el moderador en el sitio
hola cristina

Nuestro artículo proporciona código VBA, no proporciona una fórmula. Si cambia el contenido de la celda, debe volver a ejecutar el código para obtener el resultado correcto.
¡Gracias!
No hay comentarios publicados aquí todavía
Deje sus comentarios
Publicar como invitado
×
Califica esta publicación:
0   Personajes
Ubicaciones sugeridas

Seguinos

Copyright © 2009 - www.extendoffice.com. | Reservados todos los derechos. Energizado por ExtendOffice, | Mapa del Sitio
Microsoft y el logotipo de Office son marcas comerciales o marcas comerciales registradas de Microsoft Corporation en los Estados Unidos y / o en otros países.
Protegido por Sectigo SSL