Vba +1到新的图纸名称

如果工作表名为pivot，请为任何新工作表名提供+1代码

---

假设我们有一张名为pivot的工作表，我希望下一张工作表是pivot 1，后面的工作表是pivot 2。

您每次都要添加一张新工作表吗？如果是，请尝试以下方法：

Sheets.Add After:=ActiveSheet 'Adds a new sheet
Sheets(ActiveSheet.Name).Name = Pivot1

Sheets.Add After:=ActiveSheet
Sheets(ActiveSheet.Name).Name = Pivot2

---

必要时重复。

Opps。。。错误的网站。您是否尝试录制宏并手动执行以查看代码的外观？10次中有9次，在Excel中，这是回答自己问题的简单方法；您好，我希望该过程能够自动化，以便代码使用pivot统计工作表的数量，并在工作表名称中添加1。首先，您不能有多个具有相同名称的工作表。。。例如，您似乎暗示您有3张名为Pivot的工作表，这是不可能的，并且希望将这些工作表重命名为Pivot1、Pivot2等。可能我不理解您的意思。