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

Sub AddNewWorksheet()
    Dim ws As Worksheet
    Dim sheetName As String
    Dim i As Integer
    
    sheetName = "New Worksheet"
    i = 1
    
    ' 检查工作表名称是否已存在
    While WorksheetExists(sheetName)
        sheetName = "New Worksheet " & i
        i = i + 1
    Wend
    
    ' 添加新工作表
    Set ws = ThisWorkbook.Sheets.Add
    ws.Name = sheetName
End Sub

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