VBA比较两列并返回不匹配数据的值

Question

我正在尝试使下面的宏起作用，但它始终将每个值都返回为“到达”。

Sub CompareSheets()
    Dim cell As Range
    Dim found As Range

    For Each cell In Sheets("Current").Range("D3:D500")
        Set found = Sheets("Update").Range("D2:D500").Find(cell, LookAt:=xlWhole)

        For Each found In Sheets("Update").Range("D2:D500")
            If Not cell Like found Then cell.Offset(0, 8) = "Arrived"
        Next found
    Next cell

End Sub

Answer 1

尝试打印在If条件下发生的情况，很可能您会找到解决方法：

For Each cell In Sheets("Current").Range("D3:D500")
    Set found = Sheets("Update").Range("D2:D500").Find(cell, LookAt:=xlWhole)
    For Each found In Sheets("Update").Range("D2:D500")
        If Not cell Like found Then
            cell.Offset(0, 8) = "Arrived"
            MsgBox "Cell is " & cell.Value2 & " and found is " & found.Value2
        End If
    Next found
Next cell