EXCELマクロを使い、空白行ではさまれた複数列の範囲の数字を合計

質問

NO.2280663で質問した者です。
http://oshiete1.goo.ne.jp/kotaeru.php3?q=2280663
２．のsassakunさんの回答で思っていた通りの結果が得られました。
この例では、データ列は、B列だけですが、
これを発展させ、複数列（M列まで）ある表にそれぞれの列で
マクロで空白行にコード毎の計と最後に合計を入れる方法を教えてください。
配列変数の使い方がよくわかりません。

回答No.6

zap35

＃０１です。補足ありがとうございました。たぶんこのマクロでいけるでしょう。

次回ご質問されるときは、曖昧さがないように最初から具体的な例を提示してくださいね。お互いに二度手間、三度手間になってしまいますから…

Option Explicit
Sub Macro2()
Dim Target, Rng, OfRng, StRng As Range, Adr As String
Dim LastC, LastR, idxC, idxR As Long
On Error Resume Next
Application.ScreenUpdating = False
'初期化、最終セル位置確認
LastR = Range("a65536").End(xlUp).Row + 1
LastC = Range("IV1").End(xlToLeft).Column
Set Target = Nothing
Set Target = ActiveSheet.Cells.SpecialCells(xlCellTypeFormulas, 23)
If Target.Cells.Count > 0 Then
Target.ClearContents
End If
For idxR = 2 To LastR
If Cells(idxR, 1) = "計" Or Cells(idxR, 1) = "合計" Then
Cells(idxR, 1).ClearContents
End If
Next idxR
LastR = Range("a65536").End(xlUp).Row + 1
'小計挿入
For idxR = LastR To 2 Step -1
Set Rng = Cells(idxR, 1)
With Rng
.Value = "計"
Set OfRng = .Offset(-1, 0)
Set StRng = OfRng.End(xlUp)
For idxC = 2 To LastC
If OfRng.Offset(-1, 0) <> "" Then
Adr = Range(StRng.Offset(0, idxC - 1), _
OfRng.Offset(0, idxC - 1)).Address
Rng.Offset(0, idxC - 1).Formula = "=subtotal(9," & Adr & ")"
Else
Rng.Offset(0, idxC - 1).Formula = "=subtotal(9," & _
OfRng.Offset(0, idxC - 1).Address & ")"
End If
Next idxC
idxR = .End(xlUp).Row
End With
Next idxR
'合計挿入
LastR = Range("A65536").End(xlUp).Row + 1
Cells(LastR, 1) = "合計"
For idxC = 2 To LastC
Cells(LastR, idxC).Formula = "=subtotal(9," & Cells(2, idxC).Address & ":" _
& Cells(LastR - 1, idxC).Address & ")"
Next idxC
Application.ScreenUpdating = True
End Sub

お礼

返事がおそくなりました。丁寧なご回答ありがとうございました。うまくできました！！
ここで要望が３点あります。
１．例では、２桁の数字を入れていました。これを千円単位の数字に置き換えて実行しますと、空白セルの下の計と合計欄がカンマ区切りになりません。計、合計すべてカンマ区切りにする。
２．例では、コード番号がA列でした。A,B列に他の項目が入り、コード番号がC列、データがD列からJ列までのデータにする。
３．注釈を「小計挿入」のように付けていただいていますが、他の行でも、もう少し詳しい注釈をつけて下さい。