Excel宏报错1004：变量循环复制重命名工作表问题求助

你要实现遍历「Master Labor sheet」的员工姓名列表，复制「Timesheet Template」工作表并重命名（排除已存在的工作表），但执行Worksheets(template.Index + 1).name = EmpName时触发Error 1004 - 名称已被占用，核心问题是逻辑判断完全颠倒，同时存在多处语法错误，以下是具体问题和修复方案：

主要错误点 #

• 判断逻辑完全反向：你的If条件是「只要当前遍历到的工作表名称不等于员工姓名」就创建新表，这意味着哪怕员工已经有对应的工作表，只要遍历到「ICM」「Latcon」这类无关工作表，就会重复创建同名表，直接触发重名报错。正确逻辑应该是：先确认所有工作表中没有该员工的表，再执行创建操作。
• 变量未声明：For i = 1 To lastRow中的i未声明，建议显式声明避免潜在问题。
• 对象赋值错误：wsNew = Worksheets(EmpName)缺少Set关键字，VBA中对象赋值必须用Set。
• Range引用错误：Set Range("B1").Value = EmpName多了Set，单元格值赋值不需要Set；且未限定工作表，容易引用到错误的表。
• 循环效率低下：每遍历一个员工就从头遍历所有工作表，且只要遇到不匹配的表就创建，完全不符合「排除已存在工作表」的需求。

修正后的代码 #

Sub NewEmployee()
    '声明变量
    Dim lastRow As Long
    Dim ws As Worksheet
    Dim master As Worksheet
    Dim template As Worksheet
    Dim wsNew As Worksheet
    Dim colB As String
    Dim EmpName As String
    Dim i As Long
    Dim sheetExists As Boolean
    
    '赋值工作表引用
    Set master = Worksheets("Master Labor sheet")
    Set template = Worksheets("Timesheet Template")
    
    Application.ScreenUpdating = False
    
    With master
        lastRow = .Cells(.Rows.Count, "B").End(xlUp).Row
        
        '遍历Master表的每一行员工姓名
        For i = 1 To lastRow
            colB = .Cells(i, "B").Value
            sheetExists = False '初始化存在性标记
            
            '跳过表头和空单元格
            If colB = "Name" Or colB = "" Then GoTo NextEmployee
            
            '检查当前员工是否已有对应工作表
            For Each ws In ActiveWorkbook.Worksheets
                If ws.Name = colB Then
                    sheetExists = True
                    Exit For '找到匹配表，提前退出循环
                End If
            Next ws
            
            '仅当不存在对应工作表时，执行创建操作
            If Not sheetExists Then
                EmpName = colB
                '复制模板，新表会自动成为活动表
                template.Copy After:=template
                Set wsNew = ActiveSheet
                
                '重命名新表并填写表头姓名
                wsNew.Name = EmpName
                wsNew.Range("B1").Value = EmpName
            End If
            
NextEmployee:
        Next i
    End With
    
    Application.ScreenUpdating = True
End Sub

修正说明 #

• 新增存在性验证：用sheetExists标记位，先遍历所有工作表确认是否已有对应姓名的表，避免重复创建。
• 优化逻辑流程：用GoTo NextEmployee跳过表头和空行，减少无效判断。
• 可靠引用新表：复制模板后新表会自动激活，用Set wsNew = ActiveSheet比依赖模板索引更稳定（模板位置变化时索引会失效）。
• 修复语法问题：补全Set关键字、移除多余的Set、声明未定义变量i。

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