我想为具有动态范围的Pivot表创建一个宏。数据透视表已经制作完成,我只想制作动态范围选择宏。范围是A2:L 请帮助我如何为范围选择创建宏并刷新全部。
Sum of Amount in Document Currency Document Currency
Company Code Trading Partner BGN EUR
BG05 CH10 272,326.08 1,618.00
HS03 RS31 1,618.00
答案 0 :(得分:1)
下面的代码是Woking for me。得到了解决方案。
Sub ChangeCaches()
Dim PT As PivotTable
Set PT = Sheets("OPEN ITEMS DETAIL").PivotTables("PivotTable1")
PT.SourceData = Sheets("Download").Range("A1").CurrentRegion.Address(True, True, xlR1C1, True)
End Sub