VBA验证工作表存在性：新增工作表名称与数组值不符求助

原代码的核心问题 #

• 数组定义不符：你需要的目标名称是Test 7（带空格），但原代码里写的是Test7，这是名称显示错误的直接原因
• 存在性判断逻辑错误：原代码通过Worksheets(SheetNames(n)).Name判断，当工作表不存在时会触发运行错误，On Error Resume Next会跳过错误，但后续逻辑无法正确执行
• 新增工作表未重命名：原代码只创建了工作表，但没有将其名称设置为数组中的指定值
• 对象未定义：代码中的wb和ws未提前赋值，会导致运行时错误

修复后的完整代码 #

Sub CreateSheetsIfNotExist()
    Dim SheetNames() As Variant
    ' 修正数组最后一个元素为带空格的"Test 7"
    SheetNames = Array("Test1", "Test2", "Test3", "Test4", "Test5", "Test6", "Test 7")
    
    Dim wb As Workbook
    Dim cws As Worksheet
    Dim n As Long
    Dim sheetExists As Boolean
    Dim tempWs As Worksheet
    
    ' 指定操作的工作簿（这里用当前打开的工作簿，可根据需求修改）
    Set wb = ThisWorkbook
    
    For n = LBound(SheetNames) To UBound(SheetNames)
        sheetExists = False
        ' 遍历所有工作表检查是否存在目标名称
        For Each tempWs In wb.Worksheets
            If tempWs.Name = SheetNames(n) Then
                sheetExists = True
                Exit For
            End If
        Next tempWs
        
        ' 不存在则新增并重命名
        If Not sheetExists Then
            Set cws = wb.Worksheets.Add(After:=wb.Worksheets(wb.Worksheets.Count))
            cws.Name = SheetNames(n)
        End If
    Next n
End Sub

修复说明 #

1. 修正数组元素：将最后一个元素改为"Test 7"，确保目标名称带空格
2. 安全的存在性检查：通过遍历所有工作表的方式判断名称是否存在，避免错误触发
3. 新增后立即重命名：创建工作表后直接设置名称为数组指定值，保证名称完全匹配
4. 明确对象定义：指定操作的工作簿，避免未定义对象导致的错误
5. 移除错误忽略语句：改用显式判断，避免掩盖其他潜在问题

内容的提问来源于stack exchange，提问作者Anniee_55