¿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 en función de los mismos valores en la primera columna, existen varios métodos que puede usar. En este artículo, presentaremos tres formas de realizar esta tarea.
Concatenar celdas si tienen el mismo valor con fórmulas y filtro
Las siguientes fórmulas ayudan a concatenar el contenido de las celdas correspondientes en una columna en función del mismo valor en otra columna.
1. Seleccione una celda en blanco además de 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 el Participar clave.
2. Luego, seleccione la celda C2 y arrastre el controlador de relleno hacia las celdas que necesita concatenar.
3. Ingrese la fórmula = SI (A2 <> A3, CONCATENAR (A2, "," "", C2, "" ""), "") en la celda D2 y arrastre Controlador de relleno hacia abajo hasta las celdas restantes.
4. Seleccione la celda D1 y haga clic en Datos > Filtrar. Ver captura de pantalla:
5. Haga clic en la flecha desplegable en la celda D1, desmarque la casilla (Espacios en blanco) cuadro, y luego haga clic en el OK del botón.
Puede ver que las celdas están concatenadas si los valores de la primera columna son los mismos.
Note: Para utilizar las fórmulas anteriores correctamente, los mismos valores en la columna A deben ser continuos.
Concatenar fácilmente celdas si tienen el mismo valor con Kutools para Excel (varios clics)
El método descrito anteriormente requiere la creación de dos columnas auxiliares e implica varios pasos, lo que puede resultar inconveniente. Si está buscando una manera más simple, considere usar el Filas combinadas avanzadas herramienta de Kutools for Excel. Con solo unos pocos clics, esta utilidad le permite concatenar celdas utilizando un delimitador específico, lo que hace que el proceso sea rápido y sin complicaciones.
Consejo: Antes de aplicar esta herramienta, instale Kutools for Excel en primer lugar. Ir a descarga gratuita ahora.
- Seleccione el rango que desea concatenar;
- Establecer la columna con los mismos valores que el Clave primaria columna.
- Especifique un separador para combinar las celdas.
- Haga Clic en OK.
Resultado
- Para aplicar esta función, por favor descargue e instale Kutools para Excel de antemano.
- Para saber más sobre esta función, echa un vistazo a este artículo: Combine rápidamente los mismos valores o filas duplicadas en Excel
Concatenar celdas si el mismo valor con código VBA
También puede usar el código VBA para concatenar celdas en una columna si existe el mismo valor en otra columna.
1. Prensa otro + F11 teclas para abrir el Aplicaciones de Microsoft Visual Basic ventana.
2. En el Aplicaciones de Microsoft Visual Basic ventana, haga clic recuadro > Módulo. Luego copie y pegue el código siguiente en el Módulo ventana.
Código de VBA: concatenar celdas si los mismos valores
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 el F5 para ejecutar el código, obtendrá los resultados concatenados en el rango especificado.
Concatenar celdas fácilmente si tienen el mismo valor con Kutools para Excel
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!