表格被分组在同一工作簿中

Question

我有一个工作簿，主要工作表通过VLOOKUP和嵌套公式与其他工作表链接。当我运行宏时，所有这些宏都会被分组。我想在我的工作表之前添加一个工作表＆＃34; RAW＆＃34;所以我可以创建一个数据透视表。但是，下面的代码添加了5张表格，我不确定原因。

On Error Resume Next

Application.DisplayAlerts = False
Worksheets("PivotTable").Delete
Sheets.Add Before:=ActiveSheet
ActiveSheet.Name = "PivotTable"
Application.DisplayAlerts = True
Set ws = Worksheets("PivotTable")
Set pc = ActiveWorkbook.PivotCaches.Create(xlDatabase, "Raw!R1C1:R50000C41")
Set Pt = pc.CreatePivotTable(ws.Range("A8"))

Answer 1

如果您将X张分组并运行以下内容：

Sheets.Add Before:=ActiveSheet

Excel将使用所选的工作表计数作为要创建的新工作表的数量，因为您没有指定要创建的工作表数量。

你可以覆盖它来制作一张纸：

Sheets.Add Before:=ActiveSheet, Count:=1

或者

Sheets.Add Before:=Sheets("RAW"), Count:=1

如果这是要求（在编辑期间似乎有变化）

请记住，这会取消（取消选择）工作表，因为它会自动选择新创建的工作表。