VBA So löschen Sie Zeilen, wenn der Wert von Spalte X nicht mit dem Wert von Spalte Y übereinstimmt

Question

Ich versuche, jede Zeile zu löschen, in der der Zellenwert für Spalte x nicht mit dem Zellenwert von Spalte y übereinstimmt. Ich bekomme immer einen Objektfehler und bin mir ziemlich sicher, dass ich etwas Offensichtliches vermisse.

Sub Gooddata() 

Application.ScreenUpdating = False 

lr = Range("C65536").End(xlUp).Row 
For a = lr To 1 Step -1 
If Cells(a, 8).Value <> Cells(a, 9).Value Then 
Cells(a, 3).Select 
ActiveCell.EntireRow.Delete = True 
End If 
Next a 

Application.ScreenUpdating = True 
End Sub 

Edit: Ich habe den Code vorgenommenen Änderungen auf der Grundlage der Vorschläge der Kommentare hier ist das Eingangsbild der Code und das Ausgangsbild.

Sub Gooddata() 

Application.ScreenUpdating = False 

lr = Range("C65536").End(xlUp).Row 
For a = lr To 1 Step -1 
If Cells(a, 8).Value <> Cells(a, 9).Value Then 
Cells(a, 3).EntireRow.Delete 
End If 
Next a 

Application.ScreenUpdating = True 
End Sub 

Wenn der Code in der Art und Weise ausgeführt, dass ich es zu Old Argus Gebäuden will 12 wird jedoch nicht gelöscht werden, die Zeile darunter wird es wegen des Kommas und Strichs.

Answer 1

bereits. Dies könnte brechen, wenn zweite Spalte mehr Wörter als erste XD

Sub Gooddata() 

Dim lr As Long 
Dim arr As Variant 
Dim brr As Variant 

Application.ScreenUpdating = False 

With ActiveSheet 

lr = .Cells(.Rows.count, "G").End(xlUp).Row 

For A = lr To 1 Step -1 

    I = 0 
    arr = Split(Trim(.Cells(A, 7).Value2), " ") 
    brr = Split(Trim(.Cells(A, 8).Value2), " ") 

    For Each e In arr 

     '.Cells(A, 9) = e 
     If e <> brr(I) Then 
      .Cells(A, 3).EntireRow.Delete 
      Exit For 
      'GoTo yarr 
     End If 
     I = I + 1 

    Next e 

'yarr: 
'Erase arr 
'Erase brr 

Next A 

End With 

Application.ScreenUpdating = True 

End Sub 

Bevor hat:

Nach: