エクセルのマクロで、ピボットテーブルを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
No.1ベストアンサー
- 回答日時:
ピボットテーブルの貼り付け先として、
変動するデータ範囲の取得方法を知りたいという事ですね。
ピボットテーブル1作成後、最終行を取りたいなら、
Endプロパティを使うのが最もオーソドックスかと思います。
(作成前に集計表シートをクリアしておく事が前提)
こちらのページが解かり易いので参考にしてください。
http://www.niji.or.jp/home/toru/notes/8.html
実際のサンプルは以下。ピボット作成はテキトーです。
Sub test()
Dim r As Range
With ActiveWorkbook
Set r = Sheets("集計表").Range("A1")
r.Value = "ピボットテーブル1"
With .PivotCaches.Create(SourceType:=xlDatabase, _
SourceData:="貼り付け!R2C15:R300C19") _
.CreatePivotTable(TableDestination:=r.Offset(1), _
TableName:=r.Value)
.AddFields RowFields:="Field1", _
ColumnFields:="Field2"
.AddDataField .PivotFields("Field3"), "Field3計", xlSum
End With
'2コ目のピボットテーブル
With Sheets("集計表")
'シート最大行から[Ctrl]+[↑]で上に跳んで、止まったセルの2コ下。
Set r = .Cells(.Rows.Count, 1).End(xlUp).Offset(2)
End With
r.Value = "ピボットテーブル2"
With .PivotCaches.Create(SourceType:=xlDatabase, _
SourceData:="貼り付け!R2C15:R300C19") _
.CreatePivotTable(TableDestination:=r.Offset(1), _
TableName:=r.Value)
.AddFields RowFields:="Field1", _
ColumnFields:="Field2"
.AddDataField .PivotFields("Field3"), "Field3計", xlSum
End With
End With
Set r = Nothing
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- その他(Microsoft Office) ピボットテーブルへの集計フィールド挿入 1 2023/02/26 11:33
- Excel(エクセル) ピボットテーブル集計表について。ピボットテーブルで集計を行うとき、内訳集計ではなく、通常集計表にする 2 2023/08/10 07:16
- Excel(エクセル) ピボットテーブルの表示変更の仕方 初心者なので、的外れな質問だったらすみません 受注日ごとに商品名と 1 2022/04/26 23:23
- その他(ソフトウェア) エクセルの「ピボットテーブル」の名称の意味についての質問です。 2 2023/06/09 21:05
- Excel(エクセル) 【Excelの集計について質問です。】 7 2022/12/03 16:51
- Visual Basic(VBA) 集計シートA列のコードと一致する右に並んだシート名(コード)の3行目から10行目をコピーして貼り付け 4 2022/08/18 15:24
- Excel(エクセル) ピボットテーブルの参照式はオートフィル出来ない? 2 2023/03/03 15:57
- Excel(エクセル) エクセルのマクロでコピー後の貼り付け先を毎回指定したところにしたい 5 2022/08/12 10:47
- Excel(エクセル) ピボットテーブルについて 列フィールドに複数横並びに項目を表示したい場合、階層毎に表示されてしまう現 2 2022/06/28 00:27
- その他(Microsoft Office) エクセルで表を集計するための機能の種類 4 2023/06/21 15:19
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
ピボットテーブルでは時間の表...
-
エクセルで特定の色の数字だけ...
-
【エクセル】オートフィルタで...
-
ピボットテーブルのページエリ...
-
エクセル ピボットテーブルで売...
-
エクセルで一定範囲内に含まれ...
-
エクセルの小計を自動的に色づ...
-
VLOOKUP関数とCOUNT関数等の組...
-
アンケートの集計
-
複数のピボットテーブルを一括...
-
Excelで毎日の売上を入力すると...
-
エクセル2007で小計機能を使い...
-
ピボットの集計方法「合計」初...
-
エクセルの主軸と第2軸の0を合...
-
エクセルで文字が白くなる
-
エクセルで需要と供給のグラフ...
-
エクセルで長い行を5行ごとに1...
-
エクセルで、時間 0:00を表示...
-
別のシートから値を取得するとき
-
Excelで小数点以下1桁の年数を...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルで特定の色の数字だけ...
-
【エクセル】オートフィルタで...
-
フィルタをしても最下行を常に...
-
ピボットテーブルでは時間の表...
-
VBAで重複する項目を1つにまと...
-
アンケートの集計
-
ピボットの集計方法「合計」初...
-
複数のピボットテーブルを一括...
-
ピボットを更新すると数式が入...
-
ピボットテーブルのページエリ...
-
EXCEL 重複データの集計の仕方
-
エクセル 関数を使った横方向の...
-
エクセルの小計を自動的に色づ...
-
Excelの集計結果だけをコピー貼...
-
エクセル、リソース不足エラー...
-
excelで集計の合計を降順に並べ...
-
EXCELで増減率を計算したいです
-
いい機能だけど、毎回めんどく...
-
ピボットテーブルで同じデータ...
-
Excel : 二通りの合計が合わな...
おすすめ情報