Fatal编程技术网
  • vba/
  • Vba 如何剪切和粘贴数据透视表？

Vba 如何剪切和粘贴数据透视表？

vba excel

Vba 如何剪切和粘贴数据透视表？,vba,excel,Vba,Excel,我在数据源工作表中有一个数据透视表，所以我想在适当的情况下移动该数据透视表 使用代码表格（“SheetName”）.Range（“PivotTableRange”）.Cut的数据透视表范围是什么？或者更好的方法是什么？您可以使用数据透视表的表格范围2对象，请参见下面的分步代码： Dim Sht As Worksheet Dim PvtTbl As PivotTable Dim PvtRng As Range ' set the Sheet object where the Pivot Tabl

我在数据源工作表中有一个数据透视表，所以我想在适当的情况下移动该数据透视表

使用代码
表格（“SheetName”）.Range（“PivotTableRange”）.Cut的数据透视表范围是什么？或者更好的方法是什么？
您可以使用
数据透视表的
表格范围2
对象，请参见下面的分步代码：


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