Excel VBA データの最終セルの下のセルに合計値を入力する

Sub 合計1()
Dim データ As Range
Dim 合計 As Long
Dim 行 As Long
  行 = Cells(Rows.Count, 1).End(xlUp).Row
For Each データ In Range("A2", "A" & 行)
  合計 = 合計 + データ.Value
Next データ
  Range("A" & 行).Offset(1).Value = 合計
End Sub

3行目【Dim 合計 As Long】
For Each【ﾌｫｰｲｰﾁ】ステートメントでデータ範囲の値の加算値を格納する変数「合計」を長整数型(Long)で宣言します。

4行目【Dim 行 As Long】
A列のデータが入力されている最終行番号を格納する変数「行」を長整数型(Long)で宣言します。

5行目【行 = Cells(Rows.Count, 1).End(xlUp).Row】
Cells【ｾﾙｽﾞ】プロパティを使用して、A列のRows.Count【ﾛｳｽﾞｶｳﾝﾄ】プロパティで参照したセルの最終行からRange【ﾚﾝｼﾞ】オブジェクトのEnd【ｴﾝﾄﾞ】プロパティで上方向にデータが入力されている最終行に移動し、Row【ﾛｳ】プロパティでその行番号を取得して変数「行」に代入します。つまり、A列のデータが入力されているセルの行番号を取得して変数「行」に代入します。

6行目【For Each データ In Range(“A2”, “A” & 行)】
For Each【ﾌｫｰｲｰﾁ】ステートメントで繰り返し処理の始まりです。繰り返し処理の中で、オブジェクト変数「データ」に
A2セルからA列のデータ入力されている最後のセルを順次代入して、A列のデータが入力されている最後のセルまで繰り返します。

7行目【合計 = 合計 + データ.Value】
繰り返し処理の中でA列のセルの値に変数「合計」に格納されている値を加算して変数「合計」に再代入します。
つまり、A2セルから順に下方向にセルの値を加算します。

8行目【Next データ】
ここまでの繰り返し処理をA列のデータが入力されている最終行分繰り返します。

9行目【Range(“A” & 行).Offset(1).Value = 合計】
Range【ﾚﾝｼﾞ】プロパティで参照したデータが入力されている最終セルの一つ下の行をRange【ﾚﾝｼﾞ】オブジェクトのOffset【ｵﾌｾｯﾄ】プロパティで参照して変数「合計」に格納されているA列のデータの加算値を代入します。

• オブジェクト（必須）
  Application【ｱﾌﾟﾘｹｰｼｮﾝ】オブジェクトのWorksheetFunction【ﾜｰｸｼｰﾄﾌｧﾝｸｼｮﾝ】プロパティで取得した、ワークシート関数のコンテナ（入れ物）を表すWorksheetFunction【ﾜｰｸｼｰﾄﾌｧﾝｸｼｮﾝ】オブジェクトを指定します。
• 範囲1（必須）
  合計するセル範囲やセル、値を設定します。
• 範囲2・・・・範囲30（省略可）
  合計するセル範囲やセル、値を設定します。最大30個まで設定できます。