『ピボットテーブル』（なみ）

  
いつもお世話になっております。

1ブックに、以下のようなデータシートが複数シートあります。

すべてのシートにピボットテーブルを適用させたいのですが、
シート追加ではなく、今データがあるシートにピボットテーブルを作成し、
作成後に元データを消す

ということはVBAでできますでしょうか。

  |[A]         |[B]       |[C]       |[D]   |[E]       |[F]           |[G]     |[H]     |[I]       |[J]       |[K]     
 [2]|仕入先名漢字|企業名漢字|企業コード|年月  |商品コード|ブランド名漢字|品名漢字|規格漢字|ケース入数|ボール入数|売上数量
 [3]|ＭＳ        |Aストア   |         1|202002|        22|N             |りんご  |２５０ｇ|        40|        20|     420
 [4]|ＭＳ        |Aストア   |         2|202002|        33|Y             |ぶどう  |２５０ｇ|        40|        20|   2,680
 [5]|ＭＳ        |Bストア   |         3|202002|        11|Z             |みかん  |２５０ｇ|        40|        20|   1,460



＜ 使用 Excel：Excel2016、使用 OS：Windows10 ＞
----
手作業でも出来ますよね。
たとえば、ピボットテーブルをM1セルより作成し、A〜L列を削除する。
全てのシートで行う。
大体手作業で出来ることはVBAでできますが、マクロの記録が採れるものは殆ど確実に可能です。

（kazuo） 2020/03/27(金) 07:02
----
できるできないでいえばできるんでしょうけど、
 今データがあるシートにピボットテーブルを作成
 元データを消す

ってことはデータソース消しちゃうんですよね？
問題ありませんか？

（もこな２） 2020/03/27(金) 10:02
----
kazuo様
有難う御座います。
やってみたいと思います。

もこな2様
有難う御座います。
データソースは、消す前に
ピボットテーブルを値貼り付けしようと思います。
VBAでピボットテーブルを作成する場合、
シート分けた方がスムーズなのでしょうか。
（なみ） 2020/03/28(土) 17:36
----
＞シート分けた方がスムーズなのでしょうか。
何を聞きたいのか解りません。
＞複数シートあります。 
＞シート追加ではなく、今データがあるシートにピボットテーブルを作成
するのですよね。

・１つのシートに２つ以上のシートに対するピボットテーブルを作成に変更した方が良いか
・元データを消すタイミングはいつがよいのか
・ピボットを１シートずつ作成した方が良いのか・コピーして作成した方が良いか
などのことですか。
マクロでやるなら２０シートぐらいなら対して変わらないのでは。
マクロを作成する時間を考えるなら、手作業でやった方が早いと思います。

（kazuo） 2020/03/28(土) 19:22