¿Cómo combinar varias filas en una sola basándose en valores duplicados en Excel?
Quizá disponga de los datos que se muestran en la siguiente captura de pantalla: en la columna A (Nombre del producto) hay algunos elementos duplicados, y ahora necesita eliminar esas entradas duplicadas combinando los valores correspondientes de la columna B. Consulte las capturas de pantalla:
 |  |  |
¿Cuenta con algún método eficaz para resolver esta tarea?
Combinar varias Fila duplicada en una con código VBA
Combinar varias Fila duplicada en una Kutools para Excel
Combinar varias Fila duplicada y sumar/promediar los valores con Kutools para Excel
Combinar varias Fila duplicada en una con código VBA
El siguiente código VBA le permite combinar filas duplicadas según el valor de la columna A. Dado que este código está diseñado exclusivamente para dos columnas, le resultará útil si sus datos se limitan a ese formato.
1. Mantenga pulsadas las teclas ALT + F11 y se abrirá la ventana Microsoft Visual Basic para Aplicaciones.
2. Haga clic en Insertar > Módulo y pegue el siguiente código en la ventana Módulo.
Código VBA: combinar 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. A continuación, pulse la tecla F5 y aparecerá un cuadro de diálogo que le pedirá que seleccione el rango que desea combinar. Vea la captura de pantalla:
4. A continuación, haga clic en Aceptar y los valores de la columna B se combinarán en un único registro separados por espacios.
Notas:
1. Este código puede destruir los datos originales; le recomendamos hacer primero una copia de seguridad antes de usarlo.
2. Este código solo afecta a dos columnas: si tiene más de dos, combinará únicamente las dos primeras y eliminará los datos de las restantes. Úselo con precaución.
Combinar varias Fila duplicada en una Kutools para Excel
Dado que el código anterior tiene algunas limitaciones y riesgos, ¿existe una forma cómoda y segura de realizar esta tarea? Con la utilidad Kutools para Excel y su función Combinar filas avanzado, podrá eliminar rápidamente múltiples filas duplicadas en las columnas que especifique y fusionar o realizar cálculos con otros registros en las celdas correspondientes.
Kutools para Excel incluye más de 300 herramientas prácticas para Excel. Pruébelo gratis sin limitaciones durante 30 días. ¡Obténgalo ahora!.
Tras instalar Kutools para Excel, siga estos pasos:
1. Seleccione el rango de datos cuyos duplicados quiera combinar.
2. A continuación, haga clic en Kutools > Combinar y dividir > Combinar filas avanzado.
3. En el cuadro de diálogo Combinar filas avanzado, seleccione como Columna clave el nombre de la columna en función de la cual desee combinar los valores y, a continuación, haga clic en Columna clave.
4. A continuación, haga clic en la columna cuyos valores desea combinar en un único registro, luego en Tipo de Consolidación y seleccione Solo combinar con separador. Después, elija un separador de la lista de la derecha para separar los valores combinados. Vea la captura de pantalla:
5. Tras finalizar la configuración, haga clic en Aceptar y sus datos se fusionarán según la columna clave, separándose con los delimitadores indicados.
Nota: Si no necesita configurar operaciones para las demás columnas, deje la configuración predeterminada.
Combinar varias Fila duplicada y sumar/promediar los valores con Kutools para Excel
Con esta utilidad multifuncional Combinar filas avanzado, podrá combinar filas duplicadas y realizar cálculos con los valores.
1. Seleccione el rango de datos cuyos duplicados desea combinar.
2. Vaya al cuadro de diálogo Combinar filas avanzado.
- (1.) Seleccione un nombre de columna como Columna clave en función del cual desee calcular los valores de otras columnas y, a continuación, haga clic en Columna clave;
- (2.) Seleccione la columna con los valores sobre los que desee realizar cálculos, haga clic en Tipo de Consolidación > Combinar y calcular y elija el tipo de cálculo que necesite; en este caso, selecciono Suma. Vea la captura de pantalla:
3. Si no necesita configurar operaciones para las demás columnas, deje la configuración predeterminada y, a continuación, haga clic en Aceptar. Así, los valores duplicados de la columna A se fusionarán y sus valores correspondientes en la columna B se sumarán. Vea las capturas de pantalla:
 | |  |
Notas:
1. Si marca la opción Incluir títulos, se ignorarán las cabeceras (la primera fila) del rango al aplicar esta utilidad.
2. Usar valores formateados: conservará el formato de los valores al combinar las celdas duplicadas.
3. Esta utilidad no está disponible con datos filtrados.
Haga clic para obtener más información sobre la función avanzada Combinar filas.
Artículo relacionado:
Combinar Fila duplicada y sumar los valores
Las mejores herramientas de productividad para Office
Potencie sus habilidades en Excel con Kutools para Excel y experimente una eficiencia como nunca antes.Kutools para Excel ofrece más de 300 funciones avanzadas para aumentar su productividad y Ahorrar tiempo.Haga clic aquí para obtener la función que más necesita...
Office Tab aporta una interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil
- Active 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 dentro de la misma ventana, en lugar de hacerlo en ventanas separadas.
- ¡Aumente su productividad en un 50 % y elimine cientos de clics del ratón cada día!
Todos los complementos de Kutools en un solo instalador.
Kutools for Office es la suite que incluye complementos para Excel, Word, Outlook y PowerPoint, además de Office Tab Pro, ideal para equipos que trabajan en distintas aplicaciones de Office.
- Suite integral— complementos para Excel, Word, Outlook y PowerPoint + Office Tab Pro
- Un instalador, una licencia— configuración en minutos (compatible con MSI)
- Rendimiento mejorado en conjunto— productividad optimizada en todas las aplicaciones de Office
- Prueba gratuita de 30 días con todas las funciones— sin registro ni tarjeta de crédito
- La mejor relación calidad-precio— ahorre frente a la compra individual de complementos