ピボットテーブルを切り取りおよび貼り付けするにはどうすればよいですか？

Question

私はデータソースワークシートにPevoteTableを持っていますので、ピボットテーブルを適切な状態に移動します。

コードSheets("SheetName").Range("PivotTableRange").Cutを使用するピボットテーブル範囲とは何ですか？または、より良い方法は何ですか？

Answer 1

あなたは、以下のステップ・バイ・ステップのコードを参照、PivotTableのTableRange2オブジェクトを使用することができます。

Dim Sht As Worksheet 
Dim PvtTbl As PivotTable 
Dim PvtRng As Range 

' set the Sheet object where the Pivot Table lies 
Set Sht = Worksheets("SheetName") 

' set the Pivot-Table object 
Set PvtTbl = Sht.PivotTables("PivotTableName") 

' set the Pivot-Table range you want to copy 
Set PvtRng = PvtTbl.TableRange2 

' copy the Range 
PvtRng.Copy 

を