¿Cómo combinar filas con el mismo ID / nombre en Excel?
Por ejemplo, tiene una tabla como la que se muestra a continuación, y necesita combinar filas con los ID de pedido, ¿alguna idea? Aquí, este artículo le presentará dos soluciones.
- Combinar filas con el mismo ID / nombre por VBA
- Combinar filas con el mismo ID / nombre de Kutools para Excel
Combinar filas con el mismo ID / nombre por VBA
Este método introducirá un VBA para combinar rápidamente todas las filas con el mismo ID o nombre en la selección especificada. Haz lo siguiente:
1. prensa otro + F11 teclas para abrir la ventana de Microsoft Visual Basic para Aplicaciones.
2. Hacer clic recuadro > Móduloy luego pegue el código VBA en la ventana del Módulo.
VBA: combine filas con el mismo ID / nombre en Excel
Sub Consolidate_Rows()
Dim xRg As Range
Dim xRows As Long
Dim I As Long, J As Long, K As Long
On Error Resume Next
Set xRg = Application.InputBox("Select Range:", "Kutools For Excel", Selection.Address, , , , , 8)
Set xRg = Range(Intersect(xRg, ActiveSheet.UsedRange).Address)
If xRg Is Nothing Then Exit Sub
xRows = xRg.Rows.Count
For I = xRows To 2 Step -1
For J = 1 To I - 1
If xRg(I, 1).Value = xRg(J, 1).Value And J <> I Then
For K = 2 To xRg.Columns.Count
If xRg(J, K).Value <> "" Then
If xRg(I, K).Value = "" Then
xRg(I, K) = xRg(J, K).Value
Else
xRg(I, K) = xRg(I, K).Value & "," & xRg(J, K).Value
End If
End If
Next
xRg(J, 1).EntireRow.Delete
I = I - 1
J = J - 1
End If
Next
Next
ActiveSheet.UsedRange.Columns.AutoFit
End Sub
3. presione el F5 o haga clic en el Ejecutar botón para ejecutar este VBA.
4. En el cuadro de diálogo emergente Kutools for Excel, seleccione las filas que combinará y haga clic en OK botón. Ver captura de pantalla:
Ahora verá que las filas en el rango especificado se combinan con comas por el mismo ID. Ver captura de pantalla:
Note: Este VBA solo puede combinar filas por los valores en la primera columna. Por ejemplo, si desea combinar filas con el mismo nombre, debe mover la columna de nombre a la primera columna del rango especificado.
Combine filas fácilmente y calcule según los valores en otra columna en Excel
Kutools para Excel Filas combinadas avanzadas La utilidad puede ayudarlo a combinar filas basadas en valores en otra columna, y sumar, contar, promediar, etc. al mismo tiempo.
Combinar filas con el mismo ID / nombre de Kutools para Excel
Si tiene Kutools para Excel instalado, puede aplicar su Filas combinadas avanzadas función para combinar rápidamente filas con el mismo ID o nombres en el rango especificado.
Kutools for Excel - Equipado con más de 300 herramientas esenciales para Excel. ¡Disfrute de una prueba GRATUITA de 30 días con todas las funciones sin necesidad de tarjeta de crédito! ¡Descargar ahora!
1. Seleccione las filas que combinará y haga clic en Kutools > Contenido > Filas combinadas avanzadas. Ver captura de pantalla:
2. En el cuadro de diálogo Filas de combinación avanzada, seleccione la columna de ID o nombre con la que combinará, haga clic en Clave primariay, a continuación, especifique las reglas de combinación para otras columnas que necesite.
En mi caso, los episodios de (1) Selecciono el Solicitar ID columna y haga clic en Clave primaria; (2) seleccionar el Fecha columna y haga clic en Calcular > Contar; (3) seleccionar el Vendedor columna y haga clic en Combinar > Coma; (4) seleccionar el Cantidad columna y haga clic en Calcular > Suma. Ver captura de pantalla:
3. Haga clic en OK del botón.
Ahora verá que las filas seleccionadas se combinan en función del ID del pedido. Ver captura de pantalla:
Artículos relacionados:
¿Cómo concatenar el formato de fecha / número de mantenimiento en Excel?
¿Cómo concatenar celdas de otra hoja / hojas diferentes en 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!