比較兩張單獨紙張上的兩個單獨列

Question

我需要比較兩張單獨紙張上的值，兩者都在列H中從2開始。一張紙標記爲最終的，另一張數據。如果它在最後而不是數據中，則在最後突出顯示。如果數據中發現的內容沒有最終複製到底部的最後（整行）中。這全是文字。列H標題爲「參考」。

Answer 1

碼1

Private Sub Worksheet_Change(ByVal Target As Range) 

    Application.EnableEvents = False 
    If Target.Column <> 8 Then Exit Sub 

    Dim lastRow As Long 
    Dim rng As Range, cell As Range 

    lastRow = Range("H" & Rows.Count).End(xlUp).Row 
    If lastRow < 2 Then lastRow = 2 

    Set rng = Range("H2:H" & lastRow) 

    For Each cell In rng 

     With Sheets("data") 
      a = Application.VLookup(cell.Value, .Range("H2:H" & .Range("H" & Rows.Count).End(xlUp).Row), 1, 0) 

      If IsError(a) Then 
       cell.Interior.Color = vbYellow 
       Else 
       cell.Interior.Color = xlNone 
      End If 
     End With 

    Next 

    Application.EnableEvents = True 
End Sub 

碼2

Private Sub Worksheet_Change(ByVal Target As Range) 

    Application.EnableEvents = False 
    If Target.Column <> 8 Then Exit Sub 

    Dim lastRow As Long 
    Dim rng As Range, cell As Range 

    lastRow = Range("H" & Rows.Count).End(xlUp).Row 
    If lastRow < 2 Then lastRow = 2 

    Set rng = Range("H2:H" & lastRow) 

    For Each cell In rng 

     With Sheets("final") 
      a = Application.VLookup(cell.Value, .Range("H2:H" & .Range("H" & Rows.Count).End(xlUp).Row), 1, 0) 

      If IsError(a) Then 
       cell.Copy .Range("H" & .Range("H" & Rows.Count).End(xlUp).Row) 
      End If 
     End With 

    Next 

    Application.EnableEvents = True 
End Sub