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

質問

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

回答No.3

zap35

＃０１です。補足回答が待てなかったのでＢ列～任意の列全てに金額があると見なして小計と合計を入れるサンプルマクロを作ってみました。列毎に空白セルはバラバラの行にあっても構いません。また空白行が２行以上連続してもよいです。

なお上記仕様だと「小計」「合計」は入れるところがなくなりますので小計：青文字、合計：赤文字にしました。

もし「１行目に金額」とある行だけが集計対象」のような条件がある場合はif文を追加すればいけると思います。修正してみてください。

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

お礼

ご回答ありがとうございます。
具体例は、NO.1の補足をご参照下さい。
データに空白があった場合、そこで集計されてしまいます。空白データを0に置き換えると、うまく、計欄に合計数字が出ます。
空白データを自動的に0に置き換える方法はありますか？