Excel VBA データの最終行・列にSUM関数で合計を挿入する

Sub sample()
 Dim r As Long
   r = Range("B1").End(xlDown).Row + 1
   Range("A" & r) = "合計"
 With Range("B" & r)
  .Formula = "=SUM(B2:B" & (r - 1) & " )"
  .AutoFill Destination:=.Resize(1, 3)
 End With
End Sub

3行目【r = Range(“B1”).End(xlDown).Row + 1】
B列のデータ最終行数をEndプロパティで取得して1を加算した値を変数「r」に代入します。

4行目【Range(“A” & r) = “合計”】
A列の変数「r」行（データの最終行＋1行）に”合計”の文字列を代入します。

5行目【With Range(“B” & r)】
B列の変数「r」行（データの最終行＋1行目）をWith【ｳｨｽﾞ】ステートメントで指定します。

6行目【.Formula = “=SUM(B2:B” & (r – 1) & ” )”】
B列r行に対してFormula【ﾌｫ‐ﾐｭﾗ】プロパティで値を数式に指定してSUM関数を代入しています。

7行目【.AutoFill Destination:=.Resize(1, 3)】
セルに連続データを設定するRange【ﾚﾝｼﾞ】オブジェクトのAutoFill【ｵｰﾄﾌｨﾙ】メソッドを使用して、6行目のコードでB列の変数「r」行に設定したSUM関数の連続データの書き込み先を指定する引数Destination【ﾃﾞｨｽﾃｨﾈｰｼｮﾝ】に、With【ｳｨｽﾞ】ステートメントで指定したB列の変数「r」行から選択範囲のサイズを変更するRange【ﾚﾝｼﾞ】オブジェクトのResize【ﾘｻｲｽﾞ】プロパティを使用し、第1引数の新しい行サイズを設定する引数に1、第2引数の新しい列サイズを設定する引数に3を設定してB列~D列のr行にSUM関数の連続データを設定します。

Sub sample()
 Dim r As Long
   r = Range("B1").End(xlDown).Row + 1
   Range("A" & r) = "合計"
 With Range("B" & r)
  .Formula = "=SUM(B2:B" & (r - 1) & " )"
  .AutoFill Destination:=.Resize(1, 3)
 End With
 Range("E1") = "合計"
 With Range("E2")
  .Formula = "=SUM(B2:D2 )"
  .AutoFill Destination:=.Resize((r - 1), 1)
 End With
End Sub