Сумма столбца с использованием макроса Excel 2010 vba

Question

Я использую этот макрос для вычисления суммы, но он не работает. Это то, что я пытался до сих пор:

Sub sum() 

I = .Range("E2").End(xlDown).Row 

cumul = 0 
For E = 2 To I 
cumul = cumul + Cells(E, 2) 
Next 
Range("E7") = cumul 

End Sub 

Answer 1

Если я понял, вы правильно, следующий код будет просуммировать все значения в колонке E (начиная с клетки Е2), и поместить результат в ячейке B2. (Вы можете изменить расположение легко)

Примечания: Я добавил «Вариант 2», вместо того, чтобы использовать For петли, вы можете использовать WorksheetFunction.Sum суммировать все значения внутри диапазона без необходимости перебирать.

Код

Option Explicit 

Sub SumColE() 

Dim cumul As Long, I As Long, E As Long 

With Worksheets("Sheet1") ' <-- modify "Sheet1" to your sheet's name 
    I = .Range("E2").End(xlDown).Row '<-- get last row in Column E   
    cumul = 0 

    ' option 1: using a loop 
    For E = 2 To I 
     cumul = cumul + .Range("E" & E) '<-- Sum up values in Column E 
    Next E 
    .Range("B2").Value = cumul '<-- put the result in B2 

    ' option 2: using WorksheetFunction SUM 
    .Range("B2").Value = Application.WorksheetFunction.Sum(.Range("E2:E" & I))   
End With 

End Sub