ピボットテーブル最終行から2行目に項目を入れて3行目から新しいピボットテーブルを貼り付けたい。
エクセルのマクロで、ピボットテーブルを2つ作成しています。
それを集計表シートに貼り付けています。
「A1」に「ピボットテーブル1」の名前を入れて
1つ目のピボットテーブルの範囲が「A2:G10」の場合
11行目は空欄
「A12」に「ピボットテーブル2」の名前
「A13(:D20など)」ピボットテーブル2
というようにピボットテーブルを貼り付けていきたいのですが、
良い方法はありませんか?
現在は2つ目のピボットテーブルを「A25」に貼り付けるように
設定していますが、1つ目のピボットテーブルの大きさが毎回
変化するので、見た目がきれいではありません。
2つ目のピボットテーブルを貼り付ける部分のVBAを記入しておきます。
「貼り付け」シートのデータを元にピボットテーブルを作成しています。
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
"貼り付け!R2C15:R300C19", Version:=xlPivotTableVersion12).CreatePivotTable _
TableDestination:="集計表!R25C1", TableName:="ピボットテーブル13", DefaultVersion _
:=xlPivotTableVersion12
Sheets("集計表").Select
Cells(25, 1).Select
お礼
データの個数になっていたとは気がつきませんでした。 回答ありがとうございます。