VBA -如果工作表名称已存在，则创建新工作表并添加后缀

Sub CreateNewWorksheet()
    Dim ws As Worksheet
    Dim newName As String
    Dim suffix As Integer
    
    suffix = 1
    newName = "New Worksheet"
    
    ' 检查工作表名称是否已存在
    While WorksheetExists(newName)
        newName = "New Worksheet" & suffix
        suffix = suffix + 1
    Wend
    
    ' 创建新的工作表
    Set ws = ThisWorkbook.Sheets.Add
    ws.Name = newName
End Sub

Function WorksheetExists(name As String) As Boolean
    Dim ws As Worksheet
    
    On Error Resume Next
    Set ws = ThisWorkbook.Sheets(name)
    On Error GoTo 0
    
    WorksheetExists = Not ws Is Nothing
End Function