VBA执行错误1004排查：多列值比较代码报错问题

嘿，我来帮你搞定这个1004错误的问题～首先梳理下你的需求：你想要把Feuil1里的某个值，和Feuil2里三列的三个值逐一对比，再把结果写到result工作表里。从你给出的代码片段来看，1004错误大概率出在范围引用不明确或者If语句的语法/单元格引用错误上，下面我给你分析常见问题并提供修正后的代码：

常见错误原因 #

• 你代码里的SrcWs.Rang...没有写完，可能是引用了无效的单元格范围（比如没指定具体列/行，或者拼写错误）
• If语句中没有正确限定工作表的单元格引用，导致Excel找不到对应的单元格
• 尝试写入result工作表时，该工作表被保护，或者rRow超出了Excel的最大行数限制
• 循环逻辑里的单元格对比逻辑有语法问题，或者变量未正确初始化

修正后的完整代码 #

Option Explicit

Sub tests_selection()
    Dim SrcWs As Worksheet
    Dim SrcWs2 As Worksheet
    Dim ResultWs As Worksheet
    Dim rRow As Long
    Dim j As Long
    Dim iCell As Range
    Dim compareValue As Variant ' 存储要对比的源值
    Dim compareRange As Range ' 存储Feuil2里要对比的三列范围
    
    ' 初始化工作表对象（用工作表名称绑定，避免索引变化导致错误）
    Set SrcWs = ThisWorkbook.Worksheets("Feuil1")
    Set SrcWs2 = ThisWorkbook.Worksheets("Feuil2")
    Set ResultWs = ThisWorkbook.Worksheets("result")
    
    ' 初始化结果行，从第2行开始（假设第1行是表头）
    rRow = 2
    
    ' 假设你要遍历Feuil1的A列（从A2到最后有数据的行），可根据需求修改范围
    For Each iCell In SrcWs.Range("A2:A" & SrcWs.Cells(SrcWs.Rows.Count, "A").End(xlUp).Row)
        compareValue = iCell.Value
        
        ' 假设对比Feuil2里B、C、D列的对应行值，可根据实际列修改
        ' 这里默认和iCell的行号对应，你也可以改成固定行或其他规则
        Set compareRange = SrcWs2.Range(SrcWs2.Cells(iCell.Row, "B"), SrcWs2.Cells(iCell.Row, "D"))
        
        ' 逐一对比三个值
        For j = 1 To 3
            ' 增加空值判断，避免类型不匹配或空值导致错误
            If Not IsEmpty(compareValue) And Not IsEmpty(compareRange.Cells(j).Value) Then
                If compareValue = compareRange.Cells(j).Value Then
                    ResultWs.Cells(rRow, "A").Value = "匹配：" & compareValue & " ↔ " & compareRange.Cells(j).Value
                    rRow = rRow + 1 ' 结果行下移
                Else
                    ResultWs.Cells(rRow, "A").Value = "不匹配：" & compareValue & " ↔ " & compareRange.Cells(j).Value
                    rRow = rRow + 1
                End If
            Else
                ResultWs.Cells(rRow, "A").Value = "警告：存在空值，无法完成对比"
                rRow = rRow + 1
            End If
        Next j
    Next iCell
    
    ' 释放对象变量，避免内存泄漏
    Set SrcWs = Nothing
    Set SrcWs2 = Nothing
    Set ResultWs = Nothing
    Set compareRange = Nothing
End Sub

关键改进点 #

• 明确范围引用：指定了具体列和最后一行，避免引用整个列导致循环效率低下或无效引用
• 工作表限定：所有单元格引用都加上工作表对象前缀（比如SrcWs.Cells），避免Excel混淆当前活动工作表
• 错误防护：增加IsEmpty判断，避免空值或类型不匹配引发的错误
• 对象清理：最后释放所有对象变量，规范内存使用

如果你的实际对比范围、列位置和示例不同，只需要修改代码里的范围引用部分即可。另外，如果是工作表保护导致的1004错误，可以在写入结果前加上ResultWs.Unprotect Password:="你的密码"，写完后再执行ResultWs.Protect Password:="你的密码"恢复保护。

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