¿Cómo SUMAR / fusionar filas similares en Excel usando VBA?
Estoy tratando de construir una macro simple en VBA para Excel que SUMARÍA [fusionaría] todas las filas que tienen el mismo nombre (valor en las primeras columnas). Así por ejempl
ExampleRowA 1 0 1 1 3 4
ExampleRowA 2 1 2 2 1 0
ExampleRowC 9 7 7 7 2 5
el resultado debería verse así
ExampleRowA 3 1 3 3 4 4
ExampleRowC 9 7 7 7 2 5
Podemos suponer que las filas que deben fusionarse no están dispersas, y solo pueden aparecer una tras otra.
Hice algo como esto, y casi funciona, excepto que tengo que ejecutarlo dos veces.
LastRow = ActiveSheet.UsedRange.Rows.Count
Set r = ActiveSheet.UsedRange.Resize(1)
With Application.WorksheetFunction
For iRow = 2 To LastRow
If Cells(iRow, 1) = Cells(iRow + 1, 1) Then
LastCol = r(r.Count).Column
SumCol = LastCol + 1
For iCol = 2 To SumCol
Cells(iRow, iCol) = .Sum(Range(Cells(iRow, iCol), Cells(iRow + 1, iCol)))
Next iCol
Rows(iRow + 1).Delete
End If
Next iRow
End With
He realizado algo de programación en otros lenguajes de secuencias de comandos, pero soy nuevo en VB / VBA y no conozco las posibilidades / limitaciones de la misma.
En otros idiomas, probablemente usaría matrices, pero no entiendo cómo funcionan aquí. No puedo negar eso debido a limitaciones de tiempo, prefiero aprender analizando ejemplos en lugar de leer una Biblia VBA de más de 500 páginas.