Excel VBA跨工作表指定范围/选择报错求助（错误1004）

原代码核心问题分析 #

• 未明确指定工作表的Range引用：比如Range("D11").End(xlDown)会默认指向活动工作表，而非你定义的ws工作表，这是1004错误的主要诱因。
• Range对象赋值错误：peopleRange是Range类型变量，直接赋值会触发类型不匹配，必须用Set关键字初始化对象。
• 未限定的单元格引用：[E1]、[D1]这类简写默认指向活动工作表，跨表操作时极易出错。

修正后的完整代码 #

Sub checkFamily()
    Dim wsEmp As Worksheet, wsFamily As Worksheet
    Dim peopleRange As Range
    Dim peopleCount As Integer, i As Integer
    Dim empName As String
    Dim familyFound As Range
    
    ' 指定员工表和家属表（家属表名称请替换为实际名称）
    Set wsEmp = Sheets("List HI Persons Employees")
    Set wsFamily = Sheets("员工家属表")
    
    ' 正确获取员工范围：从D11到该列最后一行有数据的单元格
    With wsEmp
        Set peopleRange = .Range("D11", .Range("D" & .Rows.Count).End(xlUp))
    End With
    
    ' 统计有效员工数量并写入员工表D1
    peopleCount = WorksheetFunction.CountA(peopleRange)
    wsEmp.Range("D1").Value = peopleCount
    
    ' 遍历每个员工核查家属
    For i = 1 To peopleCount
        empName = peopleRange.Cells(i, 1).Value
        
        ' 在家属表A列查找员工姓名（可根据实际列修改）
        Set familyFound = wsFamily.Columns("A").Find(What:=empName, LookIn:=xlValues, LookAt:=xlWhole)
        
        ' 输出核查结果到员工表对应行E列
        If Not familyFound Is Nothing Then
            wsEmp.Range("E11").Offset(i - 1, 0).Value = "YES"
            ' 示例：将家属表对应行B列数据写入员工表F列
            wsEmp.Range("F11").Offset(i - 1, 0).Value = familyFound.Offset(0, 1).Value
        Else
            wsEmp.Range("E11").Offset(i - 1, 0).Value = "NO"
        End If
    Next i
End Sub

关键修正点说明 #

1. 强制限定工作表：所有Range操作都通过wsEmp.或With wsEmp前缀明确指定工作表，彻底避免活动工作表切换带来的错误。
2. 正确初始化Range对象：用Set peopleRange = ...完成对象赋值，符合VBA对象操作规则。
3. 可靠的范围获取：改用Range("D" & .Rows.Count).End(xlUp)定位最后一行，即使D列存在空行也能获取完整数据范围。
4. 高效查找逻辑：用Find方法替代循环遍历家属表，大幅提升查询效率，同时避免嵌套循环的性能问题。
5. 明确的结果输出：将核查结果写入员工表对应行的E列，全程限定工作表，杜绝跨表操作错误。

额外注意事项 #

• 如果家属表的员工姓名不在A列，修改代码中的Columns("A")为实际列标识（比如Columns("C")）。
• 若需匹配员工唯一标识（如身份证号）而非姓名，只需替换empName的取值列和Find的目标列即可。

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