使用.mat-icon { .no-theme { fill: inherit; } } 尝试此代码：

FIND

我注意到您的代码有几件事： 在这里：

            For intSheet1Column = 2 To wS.UsedRange.Columns.Count
               If wS.Cells(i,intSheet1Column).Value <> wT.Cells(FoundRow,intSheet1Column).Value Then
                  wS.Cells(i,intSheet1Column).Interior.Color = RGB(255,255,0)
                  CopyFlag = True
                  k = RS.UsedRange.Rows.Count
                  Exit For '<------ added
               End If
            Next

第一次输入if语句后，您还可以为其添加一个出口，因为CopyFlag不会得到任何更真实的结果。

接下来可能更重要的一点是，您不必在第二个if语句中重置Match，这意味着，在找到第一个匹配项之后，它将为每个后续后续语句进入If语句If Match="Found" Then i。那是故意的吗？如果没有，您可以添加以下内容：

       If Match = "FOUND" Then
           CopyFlag = False
            For intSheet1Column = 2 To wS.UsedRange.Columns.Count
               If wS.Cells(i,0)
                  CopyFlag = True
                  k = RS.UsedRange.Rows.Count
               End If
            Next
                  If CopyFlag = True Then
                        wS.Rows(i).EntireRow.Copy RS.Range("A" & k + 1)
                  End If
            Match="" '<------ added
       End If

我使用数组和用于搜索第二张工作表中ID的函数。如果对ID列进行了排序，我们可以做得更好。

Sub CompareSheets()

Dim sh1         As Worksheet
Dim sh2         As Worksheet
Dim sh3         As Worksheet
Dim arr1        As Variant
Dim arr2        As Variant
Dim Row1        As Long
Dim Row2        As Long
Dim Row3        As Integer
Dim o           As Long
Dim nOfColumns  As Integer
Dim myId        As String

Set sh1 = ThisWorkbook.Worksheets("Sheet1")
Set sh2 = ThisWorkbook.Worksheets("Sheet2")
Set sh3 = ThisWorkbook.Worksheets("Sheet3")

nOfColumns = 5
Row3 = 2

Application.ScreenUpdating = False
Application.EnableEvents = False
Application.Calculation = xlCalculationManual

'Here I start from second row assuming there's columns header
With sh1
    arr1 = .Range(.Cells(2,1),.Cells(.Cells(.Rows.count,"A").End(xlUp).row,nOfColumns)).Value
End With

With sh2
    arr2 = .Range(.Cells(2,nOfColumns)).Value
End With

For Row1 = LBound(arr1,1) To UBound(arr1,1)

    myId = arr1(Row1,1) ' I assume that ID is in column 1
    Row2 = FindRow(arr2,myId)

    If Row2 < 0 Then
        ' Format the sh1 row not founded
        With sh1
            .Range(.Cells(Row1 + 1,.Cells(Row1 + 1,UBound(arr1,2))).Interior.Color = vbGreen
        End With
        ' Put the row not founded in sh3
        With sh3
            For o = LBound(arr1,2) To UBound(arr1,2)
                .Cells(Row3,o).Value = arr1(Row1,o)
            Next o
            Row3 = Row3 + 1
        End With
    End If

Next Row1

Application.ScreenUpdating = True
Application.EnableEvents = True
Application.Calculation = xlCalculationAutomatic

Erase arr1
Erase arr2
Set sh1 = Nothing
Set sh2 = Nothing
Set sh3 = Nothing

End Sub

Function FindRow(ByRef myArray As Variant,_
            ValueToSearch As Variant,_
            Optional IndexToSearchIn As Long = 1) As Long

FindRow = -1
If Not IsArray(myArray) Then Exit Function

Dim lB          As Long
Dim uB          As Long
Dim Counter     As Long

lB = LBound(myArray,1)
uB = UBound(myArray,1)

For Counter = lB To uB
    If myArray(Counter,IndexToSearchIn) = ValueToSearch Then
        FindRow = Counter
        Exit Function
    End If
Next Counter

End Function