|
(1)件数集計シート とでもいったものを作成し、
そこに、各シートのB,C列をコピーします。
所属 種別
A a
A a
A b
B a
B b
B c
C b
C b
C c
(2)
それをもとに、ピボットテーブルで以下のような表を作ったらどうでしょうか。
種別
所属 a b c 総計
A 2 1 3
B 1 1 1 3
C 2 1 3
総計 3 4 2 9
----------------
詰まっているのは、どこですか?
不明点を明確にしてください。
・各シートの最終行は、
Cells(Rows.Count,"A").End(xlUp).Rowで取得できます。
・コピーする範囲は
Range(Cells(2,2), Cells(最終行,3)) です。(シートの指定はRange,Cellsの両方に必要です)
・コピーペイストは、ひとつの例でマクロ記録をとれば、コードが解ります。
ピボットテーブルについては、マクロ記録でコード化できますし、
予め手作業で作っておいて、データ範囲の更新だけをマクロで実行してもよいでしょう。
ご自分でトライして、途中まででも結構ですので、コードを示してもらえますか?
|
|