Macro for Remove Duplicate rows except last row

[Satish.digit]

Hi,


I have one VBA code with me below is the code:

[pre]

Sub Row_Dupe_Killer_Keep_Last()
Dim lrow As Long

For lrow = Cells(Rows.Count, "B").End(xlUp).Row To 2 Step -1
If Cells(lrow, "B") = Cells(lrow, "B").Offset(-1, 0) Then
Cells(lrow, "B").Offset(-1, 0).EntireRow.Delete
End If

Next lrow
End Sub

[/pre]
But it is considering Column B only it should consider column H also.


Can you any one help on this.


Regards,

Satish.

 

[Luke M]

When it considers column H, is that an AND condition or an OR condition? Ie, delete row if BOTH col B and col H have duplicates, or delete row if col B or col H have a duplicate?

 

[Satish.digit]

Thanks Luke,


Can you update the same in my existing code.


Regards,

Satish.

 

[Luke M]

Yes, but since you didn't say which way is the correct one, I'll just guess.

[pre]

Sub Row_Dupe_Killer_Keep_Last()
Dim lrow As Long

For lrow = Cells(Rows.Count, "B").End(xlUp).Row To 2 Step -1

'I'm guessing you wanted an AND condition
If Cells(lrow, "B") = Cells(lrow, "B").Offset(-1, 0) And _
Cells(lrow, "H") = Cells(lrow, "H").Offset(-1, 0) Then

Cells(lrow, "B").Offset(-1, 0).EntireRow.Delete
End If

Next lrow
End Sub

[/pre]

 

[Satish.digit]

Awesome Luke,


Thank you so much for your immediate response on this.


Regards,

Satish.

 

[Luke M]

Glad I could help.