3 métodos para concatenar filas en una celda según el grupo en Excel

Combinar múltiples filas de datos en una sola celda basada en un grupo es un requisito común al trabajar con conjuntos de datos estructurados en Excel. Por ejemplo, puede que desee fusionar todos los nombres asociados a la misma clase en una celda. Este artículo proporciona instrucciones paso a paso utilizando varios métodos y optimizaciones para diferentes niveles de experiencia y casos de uso.

• Agrupar y concatenar con fórmulas y función Filtro
• Agrupar y concatenar fácilmente con Kutools para Excel
• Agrupar y concatenar con código VBA

Agrupar y concatenar con fórmulas y función Filtro

Puede usar las fórmulas de Excel junto con la función "Filtro" para concatenar filas basadas en una columna. Siga los siguientes pasos.

1. En una nueva columna, ingrese la siguiente fórmula para concatenar los nombres y presione "Enter". Arrastre hacia abajo para aplicarlo a través del rango de columnas.

   =IF(A2=A1,C1&", "&B2,B2)

   
2. En una nueva columna, ingrese la siguiente fórmula, presione "Enter" y arrastre la fórmula hacia abajo.

   =IF(A2<>A3,"Last","")

   
3. Seleccione todo el rango de datos, incluidas las columnas auxiliares. Seleccione "Datos" > "Filtro" para agregar iconos de filtro a los datos.
   
4. Haga clic en el ícono de "Filtro" en la última columna auxiliar, marque solo la casilla "Último" y haga clic en "Aceptar".
   

Ahora el resultado se muestra a continuación, puede eliminar la última columna auxiliar si ya no la necesita.

Agrupar y concatenar fácilmente con Kutools para Excel

Kutools para Excel ofrece una solución simple y eficiente: "Combinar filas avanzado", permitiéndole fusionar filas agrupadas en una sola celda con solo unos pocos clics. Agrega automáticamente separadores personalizados como comas, espacios o saltos de línea para satisfacer diversas necesidades de presentación de datos.

1. Resalte las celdas que contienen sus datos. Navegue a "Kutools" > "Combinar y dividir" > "Combinar filas avanzado".
2. En la ventanaCombinar filas avanzado por favor, configure lo siguiente:
   1. Haga clic en la columna en la que desea combinar filas y configúrela como "clave principal".
   2. Para la columna que desea concatenar, como la columna "Nombres" en este caso, especifique un delimitador en la sección "Combinar" bajo el campo "Operación" para esta columna.
   3. Haga clic en el botón "Aceptar".
   4. 

Resultado: Kutools fusionará automáticamente los datos basados en el grupo en una sola celda con un delimitador específico.

Agrupar y concatenar con código VBA

También puede usar VBA para concatenar filas basadas en un grupo dinámicamente.

1. Presione las teclas "Alt" + "F11" para habilitar la ventana "Microsoft Visual Basic para Aplicaciones".
2. En el editor de código, haga clic en "Herramientas" > "Referencias" para habilitar el cuadro de diálogo "Referencias", marque "Microsoft Scripting Runtime" y guarde los cambios.
   
3. Vaya a "Insertar" > "Módulo" y pegue el siguiente código VBA en la ventana Módulo.
   VBA: Concatenar filas en una celda basada en grupo

   Sub ConcatenateCellsIfSameValues()
   'UpdatebyExtendoffice20180201
       Dim I As Long
       Dim J As Long
       Dim xRg As Range
       Dim xRgKey As Range
       Dim xRgVal As Range
       Dim xStr As String
       Dim xDic As New Dictionary
       On Error Resume Next
       Set xRg = Application.InputBox("Select data range", "KuTools for Excel", Selection.Address, , , , , 8)
       If xRg Is Nothing Then Exit Sub
       Set xRgKey = Application.InputBox("Select key column", "KuTools for Excel", xRg.Columns(1).Address, , , , , 8)
       If xRgKey Is Nothing Then
           MsgBox "Key column cannot be empty", vbInformation, "KuTools for Excel"
       End If
       Set xRgVal = xRg(1).Offset(, 1).Resize(xRg.Rows.Count, xRg.Columns.Count - 1)
       For I = 1 To xRgKey.Count
           If I > xRgKey.Count Then Exit For
           xStr = ""
           For J = 1 To xRgVal.Columns.Count
               xStr = xStr & " " & xRgVal(I, J)
           Next
           If xDic.Exists(xRgKey(I).Text) Then
               xDic(xRgKey(I).Text) = xDic(xRgKey(I).Text) & xStr
               xRgKey(I).EntireRow.Delete
               I = I - 1
          Else
               xDic.Add xRgKey(I).Text, xStr
           End If
       Next
       For I = 1 To xRgVal.Count
           xRgVal(I).Value = xDic(xRgKey(I).Text)
       Next
   End Sub

   
4. Presione la teclaF5 para ejecutar el script y siga cualquier indicación para seleccionar su rango de datos y especificar columnas clave.
   

El resultado se muestra a continuación:

Al trabajar con datos en Excel, agrupar y fusionar celdas es una tarea común pero compleja. Dependiendo de sus necesidades y herramientas, puede elegir entre varios métodos para lograr este objetivo. Seleccione la herramienta y el método más adecuados según sus necesidades y preferencias específicas para hacer su trabajo en Excel más eficiente y conveniente. Si está interesado en explorar más consejos y trucos de Excel, nuestro sitio web ofrece miles de tutoriales para ayudarlo a dominar Excel.

Demostración: Agrupar y concatenar con Combinar filas avanzado de Kutools para Excel