¿Cómo concatenar celdas si existe el mismo valor en otra columna en Excel?
Como se muestra en la captura de pantalla a continuación, si desea concatenar celdas en la segunda columna basándose en los mismos valores en la primera columna, hay varios métodos que puede usar. En este artículo, presentaremos tres formas de realizar esta tarea.
Concatenar celdas con el mismo valor usando fórmulas y filtro
Las siguientes fórmulas ayudan a concatenar las celdas correspondientes en una columna basándose en valores coincidentes en otra columna.
1. Seleccione una celda en blanco junto a la segunda columna (aquí seleccionamos la celda C2), ingrese la fórmula =SI(A2<>A1,B2,C1 & "," & B2) en la barra de fórmulas, y luego presione la tecla Enter.
2. Luego seleccione la celda C2 y arrastre el controlador de relleno hacia abajo hasta las celdas que necesita concatenar.
3. Ingrese la fórmula =SI(A2<>A3,CONCATENAR(A2,",""",C2,""""),"") en la celda D2, y arrastre el controlador de relleno hacia abajo hasta el resto de las celdas.
4. Seleccione la celda D1, y haga clic en Datos > Filtro. Ver captura de pantalla:
5. Haga clic en la flecha desplegable en la celda D1, desmarque la casilla (Blancos), y luego haga clic en el botón Aceptar.
Puede ver que las celdas se concatenan si los valores de la primera columna son iguales.
Nota: Para usar correctamente las fórmulas anteriores, los mismos valores en la columna A deben ser continuos.
Concatene fácilmente celdas con el mismo valor con Kutools para Excel (varios clics)
El método descrito anteriormente requiere crear dos columnas auxiliares e implica múltiples pasos, lo que podría ser inconveniente. Si está buscando una forma más simple, considere usar la herramienta Combinar filas avanzado de Kutools para Excel. Con solo unos pocos clics, esta utilidad le permite concatenar celdas utilizando un delimitador específico, haciendo que el proceso sea rápido y sin complicaciones.
1. Haga clic en Kutools > Combinar y dividir > Combinar filas avanzado para habilitar esta función.
2. En el cuadro de diálogo Combinar filas avanzado, solo necesita:
- Seleccionar el rango que desea concatenar;
- Establecer la columna con los mismos valores como columna clave principal.
- Especifique un separador para combinar las celdas.
- Haga clic en Aceptar.
Resultado
Kutools para Excel - Potencia Excel con más de 300 herramientas esenciales. ¡Disfruta de funciones de IA gratis permanentemente! Consíguelo ahora
- Para saber más sobre esta función, eche un vistazo a este artículo: Combinar rápidamente valores iguales o filas duplicadas en Excel
Concatenar celdas con el mismo valor usando código VBA
También puede usar código VBA para concatenar celdas en una columna si existe el mismo valor en otra columna.
1. Presione las teclas Alt + F11 para abrir la ventana Microsoft Visual Basic Applications.
2. En la ventana Microsoft Visual Basic Applications, haga clic en Insertar > Módulo. Luego copie y pegue el siguiente código en la ventana Módulo.
Código VBA: concatenar celdas si los valores son iguales
Sub ConcatenateCellsIfSameValues()
Dim xCol As New Collection
Dim xSrc As Variant
Dim xRes() As Variant
Dim I As Long
Dim J As Long
Dim xRg As Range
xSrc = Range("A1", Cells(Rows.Count, "A").End(xlUp)).Resize(, 2)
Set xRg = Range("D1")
On Error Resume Next
For I = 2 To UBound(xSrc)
xCol.Add xSrc(I, 1), TypeName(xSrc(I, 1)) & CStr(xSrc(I, 1))
Next I
On Error GoTo 0
ReDim xRes(1 To xCol.Count + 1, 1 To 2)
xRes(1, 1) = "No"
xRes(1, 2) = "Combined Color"
For I = 1 To xCol.Count
xRes(I + 1, 1) = xCol(I)
For J = 2 To UBound(xSrc)
If xSrc(J, 1) = xRes(I + 1, 1) Then
xRes(I + 1, 2) = xRes(I + 1, 2) & ", " & xSrc(J, 2)
End If
Next J
xRes(I + 1, 2) = Mid(xRes(I + 1, 2), 2)
Next I
Set xRg = xRg.Resize(UBound(xRes, 1), UBound(xRes, 2))
xRg.NumberFormat = "@"
xRg = xRes
xRg.EntireColumn.AutoFit
End SubNotas:
3. Presione la tecla F5 para ejecutar el código, luego obtendrá los resultados concatenados en el rango especificado.
Demostración: Concatene fácilmente celdas con el mismo valor usando Kutools para Excel
Las mejores herramientas de productividad para Office
Mejora tu dominio de Excel con Kutools para Excel y experimenta una eficiencia sin precedentes. Kutools para Excel ofrece más de300 funciones avanzadas para aumentar la productividad y ahorrar tiempo. Haz clic aquí para obtener la función que más necesitas...
Office Tab incorpora la interfaz de pestañas en Office y facilita mucho tu trabajo
- Habilita la edición y lectura con pestañas en Word, Excel, PowerPoint, Publisher, Access, Visio y Project.
- Abre y crea varios documentos en nuevas pestañas de la misma ventana, en lugar de hacerlo en ventanas separadas.
- ¡Aumenta tu productividad en un50% y reduce cientos de clics de ratón cada día!
Todos los complementos de Kutools. Un solo instalador
El paquete Kutools for Office agrupa complementos para Excel, Word, Outlook y PowerPoint junto con Office Tab Pro, ideal para equipos que trabajan en varias aplicaciones de Office.
- Suite todo en uno: complementos para Excel, Word, Outlook y PowerPoint + Office Tab Pro
- Un solo instalador, una licencia: configuración en minutos (compatible con MSI)
- Mejor juntos: productividad optimizada en todas las aplicaciones de Office
- Prueba completa de30 días: sin registro ni tarjeta de crédito
- La mejor relación calidad-precio: ahorra en comparación con la compra individual de complementos