excel - VBA添加一个新工作表，如果名称存在添加一个数字

Question

以下代码检查是否名为 "Final" 的工作表存在，如果是，它会创建另一个工作表，但名称取决于工作簿中的工作表数量。因此，如果只有一张名为 "Final" 的工作表和 10 个不同的工作表(总共 11 个工作表)，宏将添加一个名为 "Final_12" 的新工作表.
如何修改代码以创建 "Final_1" , "Final_2"等等。床单？

Set WSF = wb.Worksheets.Add(After:=wb.Worksheets(PayrollWS))
Set NewSht = ActiveSheet
newShtName = "Final"

'if "Final" sheet exists, there will be another added, e.g. "Final_2"
For Each Sht In wb.Sheets
    If Sht.Name = "Final" Then
        newShtName = "Final" & "_" & wb.Sheets.Count  'how to amend this part?
    End If
Next Sht

NewSht.Name = newShtName

Answer 1

您需要计算次数Final作为工作表名称存在。

'if "Final" sheet exists, there will be another added, e.g. "Final_2"
Dim cnt as Long
For Each Sht In wb.Sheets
    If Left$(Sht.Name,5) = newShtName Then cnt = cnt + 1
Next Sht

NewSht.Name = newShtName & IIF(cnt>0, "_" & cnt, "")