VBA创建新的数据透视表

Question

我记录了一个宏，用于基于工作表“数据”中的数据创建数据透视表。问题是我不确定如何为数据透视表（Sheets.Add）创建新工作表，然后立即给它命名，因为如果我一遍又一遍地运行，则必须不断将“ SheetX”更改为“ SheetX” +1”，依此类推。

Sheets("Data").Select
Sheets.Add
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
    "Feb Data!R1C1:R3000C150", Version:=6).CreatePivotTable TableDestination:= _
    "Sheet9!R3C1", TableName:="PivotTable1", DefaultVersion:=6
Sheets("Sheet9").Select

Answer 1

总结一下：

Option Explicit

Sub test()
    Dim ws As Worksheet

    Set ws = ThisWorkbook.Sheets.Add
    ws.Name = "PivotSheet"
End Sub