Excel VBA質問箱 IV

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

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


298 / 13645 ツリー ←次へ | 前へ→

【81123】全シートの件数を集計したい 初心者です 19/11/4(月) 23:07 質問[未読]
【81124】Re:全シートの件数を集計したい γ 19/11/5(火) 6:05 発言[未読]
【81125】Re:全シートの件数を集計したい 初心者です 19/11/7(木) 21:38 お礼[未読]
【81126】Re:全シートの件数を集計したい γ 19/11/8(金) 15:16 発言[未読]

【81123】全シートの件数を集計したい
質問  初心者です  - 19/11/4(月) 23:07 -

引用なし
パスワード
   やりたいことは、同じファイルの複数シートの集計(件数)をVBAでしたいのですが、シート数は12から24程度で変動します。また、データは同じ形式ですが、シートごとに行数が変動します。

 A列/B列/C列/D列/E列/F列  ・・・実際にはH列まで続きます
1/氏名/所属/種別/ランク/自己評価/上長評価/
2/あ/A/a/1/A/B/
3/い/A /b/2/B/A/    
4/う/B/c/1/A/B/    
5/え/C/a/3/S/A/

これを、集計シートに、所属と種別で、それぞれ件数を出したいと思います。
集計シート
 A列/B列/C列/D列/E列/F列
1/所属/件数/空欄/空欄/種別/件数
2/A/?/空欄/空欄/a/?
3/B/?/空欄/空欄/b/?
4/C/?/空欄/空欄/c/?
5/D/?/空欄/空欄/d/?

所属は、現在30程度で入力済みですが、今後、増えることもあります。種別は、5通りで固定です。

初心者で、うまく説明できているか不安ですが、情報が不足していれば、ご指摘お願いします。
お分かりになる方、何卒よろしくお願いいたします。

【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の両方に必要です)
・コピーペイストは、ひとつの例でマクロ記録をとれば、コードが解ります。

ピボットテーブルについては、マクロ記録でコード化できますし、
予め手作業で作っておいて、データ範囲の更新だけをマクロで実行してもよいでしょう。

ご自分でトライして、途中まででも結構ですので、コードを示してもらえますか?

【81125】Re:全シートの件数を集計したい
お礼  初心者です  - 19/11/7(木) 21:38 -

引用なし
パスワード
   Yさま
お返事ありがとうございます。
実は、現在、別シートに順番にコピーを繰り返してCOUNTIFで件数を計算しています。ピボットテーブルは使ったことがないので正直わかりません。コピーだけでも自動できると大変助かると思いました。
マクロ記録をやってみます。

【81126】Re:全シートの件数を集計したい
発言  γ  - 19/11/8(金) 15:16 -

引用なし
パスワード
   例えばこんなところを参考にしてみては?
ht  tps://www.moug.net/tech/exvba/0040062.html

298 / 13645 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free