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