¿Cómo combinar varias filas en una basada en duplicados en Excel?
Tal vez, tenga los siguientes datos de captura de pantalla, en la columna A del nombre del producto, hay algunos elementos duplicados, y ahora necesita eliminar las entradas duplicadas en la columna A, pero combine los valores correspondientes en la columna B, vea las capturas de pantalla:
 |
 |
 |
¿Tiene algunas formas efectivas de resolver esta tarea?
Combine múltiples filas duplicadas en una con código VBA
Combine múltiples filas duplicadas en un Kutools para Excel
Combine múltiples filas duplicadas y sume / promedie los valores con Kutools para Excel
Combine múltiples filas duplicadas en una con código VBA
El siguiente código de VBA puede ayudarlo a combinar filas duplicadas según el valor de la columna A, y el siguiente código solo se aplica a dos columnas. Entonces, si tiene datos de dos columnas, este código le hará un favor.
1. Mantenga pulsado el ALT + F11 llaves, y abre el Ventana de Microsoft Visual Basic para aplicaciones.
2. Hacer clic recuadro > Móduloy pegue el siguiente código en el Ventana de módulo.
Código VBA: combine varias filas en una
Sub CombineRows()
'Update 20131202
Dim WorkRng As Range
Dim Dic As Variant
Dim arr As Variant
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Set Dic = CreateObject("Scripting.Dictionary")
arr = WorkRng.Value
For i = 1 To UBound(arr, 1)
xvalue = arr(i, 1)
If Dic.Exists(xvalue) Then
Dic(arr(i, 1)) = Dic(arr(i, 1)) & " " & arr(i, 2)
Else
Dic(arr(i, 1)) = arr(i, 2)
End If
Next
Application.ScreenUpdating = False
WorkRng.ClearContents
WorkRng.Range("A1").Resize(Dic.Count, 1) = Application.WorksheetFunction.Transpose(Dic.keys)
WorkRng.Range("B1").Resize(Dic.Count, 1) = Application.WorksheetFunction.Transpose(Dic.items)
Application.ScreenUpdating = True
End Sub
3. Entonces presione F5 , y aparece un cuadro de aviso para recordarle que seleccione un rango que necesita combinar. Ver captura de pantalla:
4. Y luego haz clic OK, los valores de la columna B se combinaron en un registro y se separaron por espacios.
Notas:
1. Este código puede destruir los datos originales, cuando lo use, será mejor que primero haga una copia de seguridad de los datos.
2. Este código solo se aplica a dos columnas, si tiene más de dos columnas, este código solo combinará las dos primeras columnas y eliminará los datos de otras columnas. Cuando use este código, debe tener cuidado.
Combine múltiples filas duplicadas en un Kutools para Excel
Ahora que el código anterior tiene algunas limitaciones y riesgos, ¿existe una forma práctica y segura de terminar este trabajo? Con Kutools for Excel, Filas combinadas avanzadas utilidad, puede eliminar rápidamente varias filas duplicadas en las columnas en las que se basó y fusionar o hacer algunos cálculos para otros registros en las celdas apropiadas.
Kutools for Excel incluye más de 300 útiles herramientas de Excel. Prueba gratis sin límite en 30 días. Comprar ahora .
Después de instalar Kutools para Excel, haga lo siguiente:
1. Seleccione los datos de rango que desea combinar duplicados.
2. Luego haga clic Kutools > Convertidor de contenido > Filas combinadas avanzadas. Ver captura de pantalla:
3. En la Filas combinadas avanzadas cuadro de diálogo, seleccione el nombre de la columna como las columnas clave en las que desea combinar valores y, a continuación, haga clic en Columnas clave. Ver captura de pantalla:
4. Luego haga clic en la columna que necesita para combinar sus valores en un registro y luego haga clic en Combinar operaciones y elige Combinar solo con separadory elija un separador que necesite para separar los valores combinados de la lista de la derecha. Ver captura de pantalla:
5. Después de terminar la configuración, haga clic en OK, y sus datos se combinarán en función de las columnas clave y se separarán mediante separadores.
Nota: Si no necesita establecer las operaciones para las columnas de descanso, simplemente mantenga el estado predeterminado.
Combine múltiples filas duplicadas y sume / promedie los valores con Kutools para Excel
Con este multifuncional Filas combinadas avanzadas utilidad, puede combinar filas duplicadas y hacer algunos cálculos para los valores también.
1. Seleccione los datos de rango que desea combinar duplicados.
2. Ir a la Filas combinadas avanzadas caja de diálogo;
- (1.) Seleccione un nombre de columna como columna clave en la que desea calcular otros valores de columna y luego haga clic en Columnas clave;
- (2.) Seleccione la columna que necesita para hacer algunos cálculos para los valores y luego haga clic en Combinar operaciones > Combinar calcular, luego elija un tipo de cálculo que necesite, en este caso, selecciono Suma. Ver captura de pantalla:
3. Si no necesita establecer las operaciones para las columnas de descanso, simplemente mantenga el estado predeterminado, luego haga clic en OK, y los valores duplicados en la columna A se fusionarán y sus valores correspondientes en la columna B se sumarán. Ver capturas de pantalla:
 |
|
 |
Notas:
1. Si marca Mis datos tienen encabezados , sus encabezados (la primera fila) del rango serán ignorados cuando aplique esta utilidad.
2. Usar valores formateados: mantendrá el formato de los valores después de combinar las celdas duplicadas.
3. Esta utilidad no está disponible para filtrar datos.
Haga clic para obtener más información sobre esta función de combinación avanzada de filas.
Artículo relacionado:
Combinar filas duplicadas y sumar los valores
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!
