マクロ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

私が正しくあなたを理解している場合、下記のコードは、（セルE2から開始）E列のすべての値を合計すると、セルB2に結果を配置します。

注意を（あなたが簡単に場所を変更することができます）：私の代わりにForループを使用しての、あなたが反復することなく、範囲内のすべての値を合計するWorksheetFunction.Sumを使用することができ、「オプション2」を追加しました。この投稿は[オフトピック]のように見える

コード

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