VBA通过IF函数校验工作表名出现冲突仅能创建首个工作表问题求助

你的代码核心错误出在判断逻辑的位置完全错误，没有实现「先遍历所有工作表确认目标表不存在、再新建」的预期逻辑：

• 你把新建操作写在了循环内部，只要遍历到的第一个工作表名称不匹配，就会立刻触发Else分支新建工作表，根本没有完成全表遍历确认是否真的没有目标表
• 新建完成后循环还会继续执行，遍历下一个工作表时只要名称仍不匹配，就会再次尝试新建同名工作表，直接触发「同名工作表已存在」的报错
• 额外的隐性问题：Application.DisplayAlerts = False写在循环内部会重复赋值，且过程结束前没有恢复为True，会导致后续Excel系统提示默认被关闭，影响正常使用

建议先封装通用的工作表存在性判断函数，两个子过程共用即可，避免重复代码：

' 通用工具函数：判断指定名称的工作表是否存在
Function WorksheetExists(shtName As String) As Boolean
    Dim sht As Worksheet
    On Error Resume Next
    Set sht = ThisWorkbook.Worksheets(shtName)
    On Error GoTo 0
    WorksheetExists = Not sht Is Nothing
End Function

修改后的子过程示例（另一个子过程仅需修改targetName的赋值即可）：

Sub CreateMachineLayoutSheet()
    Const targetName As String = "Machine Layout"
    Application.DisplayAlerts = False
    
    ' 先确认不存在再新建，逻辑完全清晰
    If Not WorksheetExists(targetName) Then
        Dim newSht As Worksheet
        Set newSht = ThisWorkbook.Worksheets.Add
        newSht.Name = targetName
        ' 此处添加你原有的工作表格式化代码
    End If
    
    Application.DisplayAlerts = True
    ' 后续业务逻辑
End Sub

• 尽量用ThisWorkbook指代代码所在的工作簿，避免ActiveWorkbook因为窗口切换误指向其他工作簿
• 工作表名称不区分大小写，VBA默认会自动匹配，不需要额外做大小写转换

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