找到並突出顯示差異

Question

嗨，我知道有很多問題要求在同一主題，因爲我在這裏，他們似乎並沒有解決我的問題在這裏。 我有一個任務是根據兩張紙的D列比較兩張紙（A和B），我想查找並突出顯示A中不存在的行。 代碼如下所示：

Dim i As Long 
Dim data As Range 
Dim ref As Range 
Dim lastRow As Long 
Worksheets("B").UsedRange 
Set ref = Worksheets("test").Columns("D:D").Value 
lastRow = Worksheets("B").UsedRange.Rows.Count 

Application.ScreenUpdating = False 
Application.DisplayAlerts = False 

'  check if data exist in both shts 
     For i = 10 To lastRow 
      Set data = Worksheets("B").Columns("D:D").Find(ref,LookIn:=xlValues, _ 
     LookAt:=xlWhole) 

      If data Is Nothing Then 
       data.EntireRow.Interior.ColorIndex = 36 
       Exit For 
      Else 
      End If 
    Next 

現在的問題是，設置ref的行出現所需對象的錯誤，並且行未突出顯示。

screenupdating函數被關閉了一個較短的運行時間，但它仍然需要一些時間來運行我的代碼，這是文件或代碼的問題？

意見將非常感激。

UPDATE使用下面的代碼任務解決：

With Worksheets("test") 
    For i = 4 To lastRow 
     For j = 4 To lastnewRow 
      If Worksheets("test").Cells(i, 9) = Worksheets("B").Cells(j, 9) Then 
       Exit For 
      Else 
       If j = lastnewRow Then 
        Worksheets("test").Cells(i,9).EntireRow.Interior.ColorIndex = 36 
       End If 
      End If 
     Next 
    Next 
End With 

Answer 1

試試這個代碼：

Dim shtARng As Range, cell As Range 

With Worksheets("A") '<--| change "A" with your actual sheet name 
    Set shtARng = .Range("D1", .Cells(.Rows.Count, 4).End(xlUp))) '<--| change "D1" to the column D actual initial row to start your check from 
End With 

With Worksheets("B") '<--| change "B" with your actual sheet name 
    For Each cell in .Range("D1", .Cells(.Rows.Count, 4).End(xlUp))) 
     If shtARng.Find(What:=cell.Value, LookIn:=xlValues, LookAt:=xlWhole, MatchCase:=False) Is Nothing Then cell.EntireRow.Interior.ColorIndex = 36 
    Next cell 
End With 

Answer 2

您可以輕鬆地做到這一點沒有VBA。您將在Excel中使用的功能稱爲條件格式。

所以，如果你想突出Sheet 2不在Sheet 1 A列所有單元格，可以在Sheet 1選擇單元格，在條件格式窗口中創建一個新的規則，並選擇

「使用公式確定格式細胞」

然後插入下面的公式

=ISNA(MATCH(A1,Sheet1!A:A,0)) 

，並在格式中，選擇要應用到細胞中的風格，符合這個標準。

• MATCH搜索在細胞A1的值（而且所有其它已選擇的細胞），並檢查是否它們在陣列Sheet1!A:A存在這是整個列，如果沒有找到該值，則返回
• #N/A ，因此我們希望表達是真實的。這就是爲什麼我們使用函數ISNA(expression)，在這種情況下返回true。