Select 兩個 Pivot 表 (Excel VBA)

Question

我需要 select 兩個 Pivot 表同時放在同一張 Excel 表上。 select 一個 Pivot 表的代碼是：

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

如何把select 和Pivot 兩個表？ 下面的代碼只選擇一個表（在最后一個代碼行）：

    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

謝謝你，蒂姆。 這非常有效：

    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