选择两个枢轴表（Excel VBA）

发布于 2025-02-09 02:29:18 字数 460 浏览 1 评论 0原文

我需要同时在同一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

谢谢

原文

I need to select two Pivot Tables on the same Excel sheet at the same time. The code to select one Pivot table is:

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

How to select two Pivot tables? The code below selecting only one table (which is on the last code row):

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

Thanks

分享到QQ

分享到微博

如果你对这篇内容有疑问，欢迎到本站社区发帖提问参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。

发布评论

需要登录才能够评论，你可以免费注册一个本站的账号。

绝影如岚 2025-02-16 02:29:18

谢谢蒂姆。完美工作：

    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

Thank you, Tim. That works perfectly:

    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

回复收藏 0 原文

~没有更多了~