VBAの計算について

初心者です。
上の図の情報から下の図を完成させるには、どうすればいいのでしょうか…… 条件分岐が出来ません。

No.1 回答者： fujillin 回答日時： 2022/11/12 07:35

こんにちは

エクセルは「表計算ソフト」なので、素直に関数ではダメなのでしょうか？

365環境なら
B17セルに　=UNIQUE(FILTER(D4:D13,D4:D13<>"",""))

C17に　=IF(B17:B21="","",SUMIF(D4:D13,B17:B21,E4:E13))

E17に　=IF(B17:B21="","",SUMIF(D4:D13,B17:B21,F4:F13))

を入力すれば合計以外は終わります。


VBAでなさりたい場合は、上記の操作を「マクロの記録」に取ってみるとか・・

No.2 回答者： ママチャリ 回答日時： 2022/11/13 16:20

画像のセル位置で、固定であれば、こんな感じですかね。

ただし、合計はご自分で求めてください。

Range("B17").Consolidate Sources:="Sheet1!R4C4:R13C6", _
Function:=xlSum, LeftColumn:=True