选择两个透视表(Excel VBA)

Question

我需要同时在同一个Excel工作表上选择两个数据透视表。选择一个数据透视表的代码如下:

Dim PT1 As PivotTable               
Set PT1 = ActiveSheet.PivotTables(1)    
PT1.TableRange1.Select    

如何选择两个数据透视表?下面的代码只选择一个表(在最后一个代码行上):

Dim PT1 As PivotTable  
Dim PT2 As PivotTable  
Set PT1 = ActiveSheet.PivotTables(1)  
Set PT2 = ActiveSheet.PivotTables(2)    
PT1.TableRange1.Select  
PT2.TableRange2.Select

感谢

Answer 1

谢谢你，Tim。

Dim PT1 As PivotTable  
Dim PT2 As PivotTable  
Set PT1 = ActiveSheet.PivotTables(1)  
Set PT2 = ActiveSheet.PivotTables(2) 
Application.Union(PT1.TableRange1, PT2.TableRange1).Select