VBA: somma di colonne separate da riga vuota
Ciao a tutti,
ho delle colonne di valori da sommare. Le colonne sono di diversa lunghezza (anche un solo valore) e sono disposte una sotto l'altra separate da una riga vuota. La somma va inserita nella riga vuota tra una e l'altra colonna
Non conoscendo il numero di valori da sommare (il numero potrebbe cambiare a seconda di altri dati) mi occorre farlo tramite una macro in VBA. Riporto di seguito il codice che ho scritto per fare la somma della prima colonna, sapendo che parte sempre da F3, tuttavia ho difficoltà a ripetere questo procedimento per i successivi valori fino all'ultimo valore indicato. Potreste aiutarmi?
In allegato il file
Sub ComputeSum()
Dim sum As Double
Dim sumPerc As Double
' somma
Range("E3").Select
Range(Selection, Selection.End(xlDown)).Select
sum = WorksheetFunction.sum(Selection)
Selection.End(xlDown).Activate
ActiveCell.Offset(1, 0).Value = sum
' somma %
Range("f3").Select
Range(Selection, Selection.End(xlDown)).Select
sumPerc = WorksheetFunction.sum(Selection)
Selection.End(xlDown).Activate
ActiveCell.Offset(1, 0).Value = sumPerc
End Sub
[Modificato da Fabiogio92 26/09/2020 15:51]