エクセルで下記のマクロ集計の方法がありましたら、教えてください。

質問

エクセルで下記のマクロ集計の方法がありましたら、教えてください。
よろしくお願いいたします。

シート１
集計表（毎月作成）
（科目）　　　　　（金額）
交通費　　　　　　120,000 （シート２の出張費＋近距離交通費）
雑費　　　　　　 　48,000　（シート２の寄付金＋表彰金+その他雑費）
・
・
※シート１について
　集計行、集計列とも不変です

シート２
データ（毎月変動）
（科目）　　　　　（金額）
出張費　 　　　　100,000
近距離交通費　　 20,000
寄付金　　　　 　8,000
表彰金　　　　　　30,000
その他雑費　　　　10,000
・
・

※シート２について
　表示行は変動しますが（科目がないときは、科目も金額も表示されません）、表示列は不変です

回答No.1

hallo-2007 · ベストアンサー

交通費はシート２の出張費＋近距離交通費の合計
雑費　はシート２の寄付金＋表彰金+その他雑費の合計
・・・
と条件が続いていくのですよね。
ＶＢＡのプログラムの中に、条件を沢山記述していく方法もありますが、
変更などあった際に修正が大変になります。
私だったら　シート３を準備して
（科目）　　　　　（集計科目）
出張費　　　　　　　交通費
近距離交通費　　　　交通費
寄付金　　　　　　　雑費
表彰金　　　　　　　雑費
その他雑費　　　　　雑費
・・・と対応表を準備します。
後は、シート２に
データ（毎月変動）
（科目）　　　　　（金額）　　集計科目
出張費　 　　　　100,000　　　=VLOOKUP(A2,シート３!A:B,2,FALSE)
近距離交通費　　 20,000
寄付金　　　　 　8,000
表彰金　　　　　　30,000
その他雑費　　　　10,000
と集計科目の作業列を入れておけば、
SUMIF関数でも、ピボットテーブルでも集計が出来るようになります。
これが理解できれば、VBAで作業列を使用しなくても集計できるVBAが思いつくかと思います。

お礼

早速のご回答ありがとうございます。
良いアイデアをいただき非常に参考になりました。
また、よろしくお願い致します。