Excel VBA条件复制单元格并合并时出现1004错误求助

错误根源分析 #

你的代码触发1004错误的核心原因及潜在问题：

• 未初始化employeeRow变量：变量声明后未赋值，默认值为0，但Excel行号从1开始，wsDestination.Cells(0, 1)属于非法引用，直接触发错误。
• 合并单元格的逻辑漏洞：若目标表F1已有数据，会出现覆盖或合并错误区域的情况；且Copy方法会携带源单元格格式，可能引发格式冲突。

修正后的代码 #

Sub CopyAndListNames()
    Dim wsSource As Worksheet
    Dim wsDestination As Worksheet
    Dim lastRow As Long
    Dim i As Long
    Dim employeeRow As Long

    ' 绑定源表与目标表
    Set wsSource = ThisWorkbook.Sheets("Employees")
    Set wsDestination = ThisWorkbook.Sheets("F1")

    ' 获取源表数据最后一行
    lastRow = wsSource.Cells(wsSource.Rows.Count, "A").End(xlUp).Row
    ' 初始化目标表起始行（若有表头可改为2）
    employeeRow = 1

    ' 清空目标表原有数据（可选，避免重复堆积）
    wsDestination.UsedRange.Clear

    ' 遍历源表筛选数据
    For i = 2 To lastRow
        If wsSource.Cells(i, 1).Value = "Factory 1" Then
            ' 直接赋值员工姓名，避免冗余格式复制
            wsDestination.Cells(employeeRow, 1).Value = wsSource.Cells(i, 2).Value
            ' 合并B-D列并设置居中对齐
            With wsDestination.Range("B" & employeeRow & ":D" & employeeRow)
                .Merge
                .HorizontalAlignment = xlCenter
            End With
            ' 目标行号递增
            employeeRow = employeeRow + 1
        End If
    Next i

    ' 释放对象引用
    Set wsSource = Nothing
    Set wsDestination = Nothing
End Sub

关键修改说明 #

1. 初始化employeeRow为1：确保从目标表合法行号开始写入，规避非法引用错误。
2. 添加数据清空逻辑：可选操作，避免多次运行代码时数据重复堆积。
3. 替换Copy为直接赋值：提升运行效率，同时避免源单元格格式干扰目标表。
4. 优化合并单元格写法：用With语句简化代码，添加居中对齐让合并内容更规范。

额外排查点 #

若仍触发1004错误，检查以下场景：

• 确认目标工作表F1存在，名称拼写无错误（区分大小写）。
• 检查源表Employees或目标表F1是否被保护，若有保护需先解除或设置允许编辑区域。
• 确认合并区域未被其他锁定或隐藏设置限制。

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