エクセルのマクロを教えてください。

画像のような表があります。
黄色の部分に項目2の合計(1+1+1+1+1+5=10)を出して
青色部分に項目2のNo1と2の合計(1+1=2)を出したいです。

表の位置や行数はバラバラです。
No3やNo50まであったりします。
画像では分かりづらいですが、No6の下のセルを常に選択しています。
表の行数が変わろうと同じ位置を選択します。
No8までならその下を、No50までならその下をと言った具合です。
そこを選択している状態から合計を出したいです。

マクロのコードを教えてください。

No.2 ベストアンサー 回答者： めぐみん_ 回答日時： 2021/10/25 15:36

Sub megu()

Dim r As Range, rs As Range

Set rs = Selection.Offset(, 2)
Set r = Range(Cells(1, rs.Column), rs.Offset(-1)).SpecialCells(xlCellTypeConstants, xlNumbers)

rs.Value = WorksheetFunction.Sum(r)
rs.Offset(1).Value = WorksheetFunction.Sum(r.Cells(1), r.Cells(2))

Debug.Print Range(r.Cells(1), r.Cells(2)).Address

Set rs = Nothing
Set r = Nothing

End Sub

この回答へのお礼

ありがとうございます！助かりました！

お礼日時：2021/10/25 15:41