Excel宏外层IF语句失效求助：匹配值存在仍执行后续代码

嘿，我帮你分析下这个问题——外层IF没起到过滤作用，导致本该被排除的数据混进来，大概率是Find方法的参数默认值在搞鬼！Excel的Find会记住上一次手动查找或VBA调用时的参数设置，如果不明确指定所有关键参数，很容易出现匹配不符合预期的情况。

问题根源 #

你的外层判断语句只指定了lookat:=xlWhole，但其他关键参数（比如LookIn、MatchCase）用的是默认值，而这些默认值可能和你预期的不一致：

• 比如LookIn默认可能是xlFormulas，如果b表第6列有公式，即使显示值和d表一致，也可能因为公式内容不匹配而找不到；
• 再比如如果之前手动查找时开了大小写敏感，MatchCase会变成True，导致大小写不同的相同值匹配失败。

另外，还有两个潜在的坑：

1. 如果d表第6列是空单元格，Find会匹配b表中第一个空单元格，导致错误判断；
2. 内层的FindRow如果找不到匹配值，j = FindRow.Row会直接报错，虽然你说内层正常，但还是要提前处理。

修改后的代码 #

Dim p As Long
Dim j As Long
Dim LastRow2 As Long
Dim LastRow3 As Long
Dim FindRow As Range
Dim a As Worksheet
Dim b As Worksheet
Dim c As Worksheet
Dim d As Worksheet

Set a = Workbooks("Item ID Comparison").Worksheets(1)
Set b = Workbooks("Item ID Comparison").Worksheets(2)
Set c = Workbooks("Item ID Comparison").Worksheets(3)
Set d = Workbooks("Prueba").Worksheets(1)

LastRow3 = d.Cells(Rows.Count, "F").End(xlUp).Row

For p = 2 To LastRow3
    ' 先跳过空单元格，避免误判
    If Not IsEmpty(d.Cells(p, 6).Value) Then
        ' 明确指定Find的所有关键参数，避免默认值干扰
        If b.Columns(6).Find(What:=d.Cells(p, 6).Value, _
                            LookIn:=xlValues, _
                            LookAt:=xlWhole, _
                            MatchCase:=False, _
                            SearchOrder:=xlByColumns) Is Nothing Then
            
            ' 同样给内层Find指定完整参数，并判断是否找到
            Set FindRow = d.Columns(6).Find(What:=a.Cells(p, 7).Value, _
                                           LookIn:=xlValues, _
                                           LookAt:=xlWhole, _
                                           MatchCase:=False)
            
            If Not FindRow Is Nothing Then
                j = FindRow.Row
                ' 检查a表第7列是否存在d表当前行的F列值
                If Not a.Columns(7).Find(What:=d.Cells(p, 6).Value, _
                                       LookIn:=xlValues, _
                                       LookAt:=xlWhole, _
                                       MatchCase:=False) Is Nothing Then
                    LastRow2 = c.Cells(Rows.Count, "A").End(xlUp).Row
                    ' 可以用Resize简化赋值，不用逐列写
                    c.Range("A" & LastRow2 + 1 & ":I" & LastRow2 + 1).Value = d.Range("A" & j & ":I" & j).Value
                End If
            End If
        End If
    End If
Next p

关键修改点说明 #

1. 明确Find的所有关键参数：给每个Find指定What、LookIn:=xlValues（匹配单元格显示值而非公式）、LookAt:=xlWhole（完全匹配）、MatchCase:=False（不区分大小写），确保每次查找的行为一致，不受之前操作的影响。
2. 跳过空单元格：增加IsEmpty判断，避免空值导致的错误匹配。
3. 处理FindRow为Nothing的情况：在给j赋值前先检查FindRow是否存在，防止运行时错误。
4. 用Resize简化赋值：把逐列赋值改成一次性复制整行区域，代码更简洁高效。

额外建议 #

如果你的数据量很大，Find方法可能效率不高，可以考虑用Dictionary对象先把b表第6列的值存进去，然后直接判断是否存在，速度会快很多，比如：

' 提前把b表第6列的值存入Dictionary
Dim bVals As Object
Set bVals = CreateObject("Scripting.Dictionary")
Dim lastRowB As Long
lastRowB = b.Cells(Rows.Count, 6).End(xlUp).Row
For k = 2 To lastRowB
    If Not IsEmpty(b.Cells(k,6).Value) Then
        bVals(b.Cells(k,6).Value) = True
    End If
Next k

' 然后在外层判断时直接用：
If Not bVals.Exists(d.Cells(p,6).Value) Then
    ' 后续代码
End If

这种方法对于大数据集来说，性能提升非常明显。

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