0

我正在尝试实现自动化支持模板的目标。我正在处理的功能是创建一个按钮或下拉选择按钮，它将自动从 excel 表旋转到所需的数据透视表。下面的代码是在已经存在的工作表上创建一个数据透视表。我试图弄清楚如何在运行宏之前将我的宏更改为没有制作工作表的地方（除了上面有 excel 表的那个），一旦运行，它将自动创建新的工作表和数据透视表。这就是我被困住的地方。我尝试记录这些步骤，但如果我对代码进行更改，它会中断。 

 Sub SelfPivot()
    Dim wb As Workbook
    Dim ws As Worksheet
    Dim rng1 As Range


    Set wb = ActiveWorkbook
    Set ws = wb.Sheets("Data insert")
    Set rng1 = ws.Cells.Find("*", ws.[a1], xlFormulas, , , xlPrevious)
    Sheets("Data insert").Select
    ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
        "Data insert!R1C1:R" & CStr(rng1.Row) & "C" & CStr(rng1.Column), Version:=xlPivotTableVersion10).CreatePivotTable _
        TableDestination:="Reclass_PushBack!R3C1", TableName:="ReclassPORequesters", DefaultVersion _
        :=xlPivotTableVersion10
    Sheets("Reclass_PushBack").Select
    Cells(3, 1).Select
    End Sub
4

0 回答 0