VBA学習ツール無料配布！#14 テーマ:vbaでfor文を使おう！

Option Explicit

Sub correctAnswerExample()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim row As Long
    Dim earnedAmount As Long
    Dim sum As Long
    ' 「読み込み＆書き込みシート」を設定する
    Set ws = ThisWorkbook.Sheets("読み込み＆書き込みシート")
    ' B列の最後の行を取得する
    lastRow = ws.Cells(ws.Rows.Count, 2).End(xlUp).row
    For row = 6 To lastRow
        earnedAmount = ws.Cells(row, 3).Value
        sum = sum + earnedAmount
        ws.Cells(row, 4) = sum
    Next row
    '「読み込み＆書き込みシート」をアクティベートにする
    ws.Activate
    ' メッセージを表示する
    MsgBox "実行完了"
End Sub