¿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 ¡Aplicá! 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
Mejore sus habilidades de Excel con Kutools for Excel y experimente la eficiencia como nunca antes. Kutools for Excel ofrece más de 300 funciones avanzadas para aumentar la productividad y ahorrar tiempo. Haga clic aquí para obtener la función que más necesita...
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!
