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

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 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:
4. Luego haga clic OK, y aparece otro cuadro de aviso, seleccione una celda para generar el resultado concatenado, vea la captura de pantalla:
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:
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:
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:
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:
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:
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:
¡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.

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!







