Hvis A forskellig fra B så slet række

Fandt selv et brugbart svar :

Sub SletRækker()

Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual

With Range("A1:A65536")
    rCount = .Rows.Count
    For r = rCount To 1 Step -1
        If .Cells(r, 1) = 0 Then
            .Rows(r).EntireRow.Delete
        End If
    Next r
End With


Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True

End Sub

tvivler på den kode sletter noget
prøv

Sub SletHvis()

Dim t, rk
rk = Cells(65500, 1).End(xlUp).Row

For t = 1 To rk
If Cells(t, 1) = Cells(t, 2) Then Cells(t, 100) = 1
Next

Range("CV1:CV" & rk).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
Range("CV1:CV" & rk) = "" ' hjælpekolonne (100)
ActiveCell.Select

End Sub

Her i en lettere optimeret metode.

Jeg har indsat en regneregel i kolonne A, som indsætter 0 eller 1 alt afhængig om den er sand eller falsk

With Range("A1", Range("A1").End(xlDown))
    rCount = .Rows.Count
    For r = rCount To 1 Step -1
        If .Cells(r, 1) = 0 Then
            .Rows(r).EntireRow.Delete
        End If
    Next r
End With