添加具有连续编号VBA的工作表

Question

我有一个简单的宏，可以将工作表添加到工作簿中。但是，有时我必须删除一些工作表。当我删除工作表并再次使用宏时，新添加的工作表会采用后面的数字，就好像删除的工作表仍然存在一样。我希望宏添加一个带有下一个数字的工作表。例如我有：

Sheet1 Sheet2 Sheet3

然后我删除 Sheet3 并想添加另一个工作表，这完全是 Sheet3 而不是 Sheet4

With ThisWorkbook

    .Sheets.add After:=.Sheets(.Sheets.Count)

End With

我该怎么做？

Answer 1

在工作簿中添加此代码：

Option Explicit

Private Sub Workbook_NewSheet(ByVal Sh As Object)

    On Error GoTo Workbook_NewSheet_Error

    Sh.Name = "Sheet" & Sheets.Count

    On Error GoTo 0
    Exit Sub

Workbook_NewSheet_Error:

    MsgBox "Error " & Err.Number & " (" & Err.Description & ") in procedure Workbook_NewSheet of VBA Document DieseArbeitsmappe"

End Sub

差不多，如果您有以下工作表Sheet1、Sheet2 和Sheet4，然后添加一个新工作表，您会收到错误，因为工作表的名称已被占用 (Sheet4)。这就是我添加错误处理程序的原因。