omo somar / mesclar linhas semelhantes no Excel usando VB
Estou tentando criar uma macro simples no VBA para Excel que SUM [mesclar] todas as linhas que têm o mesmo nome (valor nas primeiras colunas). Então, por exemplo
ExampleRowA 1 0 1 1 3 4
ExampleRowA 2 1 2 2 1 0
ExampleRowC 9 7 7 7 2 5
o resultado deve ficar assim
ExampleRowA 3 1 3 3 4 4
ExampleRowC 9 7 7 7 2 5
Podemos assumir que as linhas que precisam ser mescladas não estão dispersas e podem aparecer apenas uma após a outra.
Fiz algo assim e quase funciona, exceto que tenho que executá-lo duas veze
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
u fiz alguma programação em outras linguagens de script, mas sou novo no VB / VBA e não conheço as possibilidades / limitações del
Em outros idiomas, eu provavelmente usaria matrizes, mas não entendo como elas funcionam aqui. Não posso negar que, devido a restrições de tempo, prefiro aprender analisando exemplos em vez de ler uma Bíblia VBA de mais de 500 páginas.