0

嗨，我正在复制我在同一张工作表上的数据透视表，我想通过更改一些项目来使用复制的数据透视表。问题是当我复制数据透视表时，我如何识别新的数据透视表名称以使用它？

我的主要目标是在同一个工作表上创建多个数据透视表。枢轴向导不允许我这样做。

我的代码：

        ws.Select
        TotalColumns = ws.Cells(1, Columns.Count).End(xlToLeft).Column 'Counting total columns
        TotalRows = ws.Range("A:A").Cells.SpecialCells(xlCellTypeConstants).Count 'Counting total rows
        Set PRange = ws.UsedRange 'found a new function to use do not need to use above fields, but keeping them just incase
        wsPivotStats.Select
        Set CreateStatsAppPt = wsPivotStats.PivotTableWizard(SourceType:=xlDatabase, SourceData:=PRange, TableDestination:=wsPivotStats.Range("B4"), TableName:="StatsPt1")
        Set StatsAppViewPt = wsPivotStats.PivotTables("StatsPt1")

将行和列添加到上表和...

   ActiveSheet.PivotTables("StatsPt1").PivotSelect "", xlDataAndLabel, True
   Selection.Copy
   wsPivotStats.Range("B22").Select
   wsPivotStats.Paste
   Set StatsRevViewPt = wsPivotStats.PivotTables("PivotTable2")
           StatsRevViewPt.Select
    With StatsRevViewPt.PivotFields(CaseClas)
               .Orientation = xlColumnField
               .Position = 1
              ' .Subtotals = Array(False, False, False, False, False, False, False, False, False, False, _
                False, False)
    End With
4

1 回答 1

0

在一行 wsPivotStats.Paste 使用之后

set StatsRevViewPt= wsPivotStats.PivotTables(wsPivotStats.PivotTables.count)
于 2013-04-24T11:44:37.043 回答