¿Cómo combinar filas rápidamente según el valor de una columna y realizar cálculos en Excel?
Por ejemplo, tiene un rango de datos en el que una columna contiene valores duplicados. Ahora desea combinar filas basándose en la columna A (que incluye duplicados) y realizar cálculos en otra columna según las filas combinadas, tal como se muestra en la captura de pantalla:
En Excel no existe un método rápido para combinar filas según el valor de una columna, pero aquí le presentamos trucos que le permitirán fusionar filas duplicadas y, a continuación, sumar o realizar otros cálculos en otra columna.
| Datos originales | Combinar y sumar |
 |  |
Combinar filas según una columna y sumar valores con VBA
¿Existe un código VBA que permita combinar filas duplicadas y sumar los valores de otra columna?
1. Pulse Alt + F11 para abrir la ventana de Microsoft Visual Basic para Aplicaciones, haga clic en Insertar > Módulo y copie y pegue el siguiente código VBA en el nuevo Módulo.
VBA: Combinar filas según el valor de una columna
Sub MG30Nov12()
'Updateby20150519
Dim Rng As Range
Dim InputRng As Range
Dim nRng As Range
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("Range :", xTitleId, InputRng.Address, Type:=8)
Set InputRng = InputRng.Parent.Range(InputRng.Columns(1).Address)
With CreateObject("scripting.dictionary")
.CompareMode = vbTextCompare
For Each Rng In InputRng
If Not .Exists(Rng.Value) Then
.Add Rng.Value, Rng.Offset(, 1)
Else
.Item(Rng.Value).Value = .Item(Rng.Value).Value + Rng.Offset(, 1)
If nRng Is Nothing Then
Set nRng = Rng
Else
Set nRng = Union(nRng, Rng)
End If
End If
Next
If Not nRng Is Nothing Then
nRng.EntireRow.Delete
End If
End With
End Sub2. Pulse F5 o haga clic en el botón Ejecutar para ejecutar el código VBA. A continuación, aparecerá un cuadro de diálogo en el que podrá seleccionar el rango de datos con el que desea trabajar. Vea la captura de pantalla:
3. Tras seleccionar el rango de trabajo, haga clic en Aceptar. Ahora los datos se han combinado según la primera columna y se han sumado los valores de la segunda columna.
Nota: Este código VBA solo funciona correctamente cuando combina según la primera columna y suma los valores de la segunda columna.
Combinar filas según una columna y sumar valores con Combinar filas avanzado
Si no está familiarizado con el código VBA, puede utilizar la función Combinar filas avanzado de la herramienta de complemento de terceros –Kutools para Excel– para combinar fácil y rápidamente filas duplicadas y sumar los valores de otra columna.
1. Seleccione los datos que desea utilizar y haga clic en Kutools > Combinar y dividir > Combinar filas avanzado. Vea la captura de pantalla:
2. En el cuadro de diálogo que aparece, seleccione la columna en función de la cual desea combinar las demás y haga clic en Clave principal. A continuación, seleccione otra columna, haga clic en Calcular y elija Suma.
Consejo: Si su rango seleccionado incluye encabezados, active la casilla Incluir títulos y marque también Usar valores formateados para conservar el formato tras la combinación.
3. A continuación, haga clic en Aceptar. Ahora los datos se han combinado según la columna principal y los valores de la otra columna se han sumado. Vea la captura de pantalla:
Combina filas según una columna y aplica distintas operaciones en otras columnas con Combinar filas avanzado.
Combinar filas avanzado es potente, ya que no solo permite combinar filas duplicadas en una columna y sumar otra, sino también combinar filas duplicadas en una columna y aplicar distintas operaciones a otras columnas.
Supongamos que dispongo de un rango de datos como el que se muestra en la siguiente captura de pantalla y quiero combinar los valores de la columna B y sumar los de la columna C según la columna A.
Kutools para Excel: incluye más de 300 herramientas esenciales que harán sus tareas en Excel más rápidas, sencillas y eficientes.¡Descárguelo ahora!
1. Seleccione el rango de datos y haga clic en Kutools > Combinar y dividir > Combinar filas avanzado. Vea la captura de pantalla:
2. En el cuadro de diálogo Combinar filas basado en columna, realice los siguientes pasos:
(1) Haga clic en la columna en función de la cual desea combinar y pulse Clave principal;
(2) Haga clic en la columna cuyos datos desea combinar y pulse Combinar, luego seleccione el separador que necesite de la lista;
(3) Haga clic en la columna cuyos valores desea sumar, pulse Calcular y elija Suma.
3. Haga clic en Aceptar. Ahora podrá ver el resultado, como se muestra a continuación:
Con la función Combinar filas avanzado también puede combinar filas según una columna y contar, calcular promedios o conservar el primer o último dato en otras columnas.
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