Excel VBA For～Next の二重ループを教えてください。

前提・実現したいこと

仕様の説明が上手くできてないので、再度、新規に投稿します。
Excel VBAにて（添付映像）
① I列に区分け条件があります
② 区分けされた「行」にそれぞれの数値があります
③ 行毎の集計を　CP列からEC列の2行/5行/6行に合計したい
④ JA ～JD に条件別に合計をしてみました
⑤ ④の値をCP2/CP5/CP6に記載
⑥　①②③までを、ダイレクト集計可能なら④以降はいらない

I列の条件区分をJA2に集計するところまでは、何とかたどりつきました。

Dim i As Long
For i = 1 To 4

Range("IZ2").Offset(, i) = WorksheetFunction.SumIf(Range("I:I"), Choose(i, "決", "D", "E○", "E△"), Range("CP:CP"))
Next i

上記のRange（”IZ2”）と　Range("CP:CP")を1文ずつ作成すれば
出来そうですが、もう少しシンプルな内容の構成にしたい
For～Next の二重ループで可能でしょうか？
ヒントがあれば、ご教授願います。

発生している問題・エラーメッセージ

該当のソースコード

試したこと

For ～Next で条件別のデータ集計が可能になった

Dim i As Long
For i = 1 To 4

Range("IZ2").Offset(, i) = WorksheetFunction.SumIf(Range("I:I"), Choose(i, "決", "D", "E○", "E△"), Range("CP:CP"))
Next i

この先の　CP列からEB列までも　For ～Next　の二重ループの作成方法のヒントを教えてください。

補足情報（FW/ツールのバージョンなど）

ここにより詳細な情報を記載してください。

m.ts10806

2021/12/31 00:31

何のループの中に何をループしてどう処理させたいのでしょうか。（逆にそれが決まってれば「分からない」ということにはならないと思いますが）

行動規範の内容に同意します

回答1件

IZ列に、列名が入力されているということですね。
下記でどうでしょう。

vba
1    Dim r As Range, c As Range
2    Set r = Range("IZ2").CurrentRegion
3    For Each c In r.Columns(1).Cells
4        Range(c.Value & "2") = WorksheetFunction.Sum(c.Offset(, 1).Resize(1, 4))
5        Range(c.Value & "5") = WorksheetFunction.Sum(c.Offset(, 1))
6        Range(c.Value & "6") = WorksheetFunction.Sum(c.Offset(, 1).Resize(1, 3))
7    Next