¿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

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 Sub

Notas:

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