15、Excel 透视表与代码调试全解析

Excel 透视表与代码调试全解析

1. 动态创建透视表

在创建透视表时，原始代码可能会硬编码选择工作表，如 Sheets("Sheet4").Select 。而新的动态代码则使用变量 ws 来选择工作表，即 ws.Select 。以下是完整的 MakeDynamicPivotTable 子例程：

Sub MakeDynamicPivotTable()
    Dim ws As Worksheet
    Dim rngRangeToPivot As Range
    Dim sPivotLoc As String 'where to place the PivotTable on the new sheet
    Set rngRangeToPivot = ActiveCell.CurrentRegion
    Set ws = Sheets.Add
    sPivotLoc = ws.Name & "!R3C1"
    ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
        rngRangeToPivot, Version:=xlPivotTableVersion12).CreatePivotTable _
        TableDestination:=sPivotLoc, TableName:="PivotTable1", DefaultVersion _
        :=xlPivot