Scannen und Vergleichen von zwei Zeilen

Question

Derzeit haben Sie ein Excel-Dokument mit einem Modul verbunden mit einer Schaltfläche.

Excel-Dokument ähnelt die folgenden:

ROW | COLUMN C | COLUMN K 
1  808   253 
2  808   256 
3  908   355 
4  908   355 
5  908   356 
6  907   253 
7  907   253 

Als ich startet das folgende Modul klicken Sie auf die Schaltfläche:

Sub scan() 
    Dim dataRange As Range 
    Dim dataRange2 As Range 
    Dim oneCell As Range 
    Dim oneCell2 As Range 

    With ThisWorkbook.Sheets("Resource Info").Range("C:C") 
     Set dataRange = Range(.Cells(1, 1), .Cells(.Rows.Count, 1).End(xlUp)) 
    End With 

    With ThisWorkbook.Sheets("Resource Info").Range("K:K") 
     Set dataRange2 = Range(.Cells(1, 1), .Cells(.Rows.Count, 1).End(xlUp)) 
    End With 

    For Each oneCell In dataRange 
     If Application.WorksheetFunction.CountIf(dataRange, oneCell) > 1 Then 
      For Each oneCell2 In dataRange2 
       If Application.WorksheetFunction.CountIf(dataRange, oneCell) > 1 And Application.WorksheetFunction.CountIf(dataRange2, oneCell2) <> 1 Then 
        With oneCell 
         .EntireRow.Interior.ColorIndex = 6 
        End With 
       End If 
      Next oneCell2 
     End If 
    Next oneCell 
End Sub 

Ich versuche nur 1,2,3 zu haben Reihe, 4,5 werden seit der Übereinstimmung von Spalte C hervorgehoben, aber Spalte K-Daten stimmen nicht mit der Gruppierung von Spalte C überein.

Das aktuelle Modul Ich habe markiert alle Zeilen, egal was in Spalte K.

Answer 1

Ersetzen Sie mehr Application.CountIf Funktionen mit einer einzigen Appl;ication.CountIfs enthalten ist.

Sub scan() 
    Dim rw As Long 

    With ThisWorkbook.Sheets("Resource Info") 
     .UsedRange.offset(1, 0).EntireRow.Interior.Pattern = xlNone 
     For rw = 2 To .Cells(.Rows.Count, "C").End(xlUp).Row 
      If CBool(Application.CountIfs(.Columns("C"), .Cells(rw, "C").Value2, .Columns("K"), "<>" & .Cells(rw, "K"))) Then 
       .Rows(rw).EntireRow.Interior.ColorIndex = 6 
      End If 
     Next rw 
    End With 

End Sub