最終列が変動する、行合計を求めたい SUM関数 VBA

Question

前提・実現したいこと

超初心者です。
最終列に行合計を入れるマクロを作成しています。
最終列は都度変動します。

最終列が変動せず、F列で固定の場合はできたのですが、
変動する場合がわかりません。
ご指導お願いいたします。

Sub　総数量計算　()

'メーカーごとの総数量計算
'A1セルを右から見て合計列を取得

Dim 合計列 As Long
合計列 = Wb2.Worksheets(2).Range("A1").End(xlToRight).Column
Wb2.Worksheets(2).Cells(1, 合計列 + 1) = "合計"

'1列目を（Rows.Count,1）下から上に見て最終行を取得
最終行 = Wb2.Worksheets(2).Cells(Rows.Count, 1).End(xlUp).Row

For i = 2 To 最終行
Wb2.Worksheets(2).Cells(i, 合計列 + 1) = "=Sum(C" & i & ":F" & i & ")"
Next i

End Sub

Answer 1

For i = 2 To 最終行
Wb2.Worksheets(2).Cells(i, 合計列 + 1) = "=Sum(C" & i & ":F" & i & ")"
Next i

の部分を

For i = 2 To 最終行
    Wb2.Worksheets(2).Cells(i, 合計列 + 1).FormulaR1C1 = "=Sum(rc3:rc[-1])"
Next i

もしくはForNextを使わず一括で

Dim ws2 As Worksheet: Set ws2 = Wb2.Worksheets(2)

ws2.Range(ws2.Cells(2, 合計列 + 1), ws2.Cells(最終行, 合計列 + 1)).FormulaR1C1 = "=Sum(rc3:rc[-1])"

でいかがでしょうか。

---

参考にしてみてくださいね
セルに数式を入力/取得する(Formula/FormulaR1C1プロパティ)

Comments

[iwabuchi178]

ありがとうございます。
FormulaR1C1の仕組みがまだよくわからず、Nextを使っていました。
再度勉強させていただきます。

Answer 2

Wb2.Worksheets(2).Cells(i, 合計列 + 1) = "=Sum(C" & i & ":F" & i & ")"

の箇所を

wb2.Worksheets(2).Cells(i, 合計列 + 1) = "=Sum(C" & i & ":" & Cells(i, 合計列).Address(False, False) & ")"

にしてはいかがでしょうか。

Comments

[iwabuchi178]

ありがとうございます。
Address(False, False)というプロパティ？？もあるのですね。
独学でやっているので、一進一退の毎日です。
大変勉強になりました。