Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

1263 / 76734

←次へ　｜　前へ→


	【81124】Re:全シートの件数を集計したい

γ - 19/11/5(火) 6:05 -


	引用なし

	パスワード

(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の両方に必要です）・コピーペイストは、ひとつの例でマクロ記録をとれば、コードが解ります。ピボットテーブルについては、マクロ記録でコード化できますし、予め手作業で作っておいて、データ範囲の更新だけをマクロで実行してもよいでしょう。ご自分でトライして、途中まででも結構ですので、コードを示してもらえますか？