Macro to delete rows where value in Col F and exactly the same as value in Col G

I have tried to write code to delete those rows where the value in Col F and exactly the same as Col G (see highlighted Items) , but my code is not deleting these rows

Please Login or Register  to view this content.

It would be appreciated if someone could amend my code

Or with a single loop using the classic MATCH Excel function or VBA Range.Find method as yet demonstrated in OP threads …

Hi Marc L


I need to keep the zero values

Hi Alan


Thanks for your code


For some unkown reason one of the values that were the same was not deleted being 3004 in Col G


Kindly test & amend your code

According to your initial post attachment an Excel basics VBA demonstration for starters :

PHP Code: 

Sub Demo1()
    Dim R&, V
        R = 2
    With [A1].CurrentRegion
        Application.ScreenUpdating = False
    While Not IsEmpty(.Cells(R, 6))
    If .Cells(R, 6) = 0 Then
        R = R + 1
    Else
        V = Application.Match(.Cells(R, 6), .Columns(7), 0)
        If IsError(V) Then R = R + 1 Else Union(Rows(R), Rows(V)).Delete
    End If
    Wend
        Application.ScreenUpdating = True
    End With
End Sub 


► Do you like it ? ► ► So thanks to click on bottom left star icon « ★ Add Reputation » ! ◄ ◄

Thanks Marc. Your code works 100%