delete duplicate row

[somenoob]

Hi everyone, i need to delete duplicate rows but i dont know how to code it.

I have to check through the rows starting in range B13 to F13 to all the rows below it. if there is an exact same text in the cells then i will have to delete it.

How do i code it? Thanks

 

[Trevor G]

Try this out, adjust the column reference

Sub DeleteDups()
'This code will look in column G and delete the entire row
'For any duplicates it finds
Dim x As Long, LastRow As Long
LastRow = Range("g65536").End(xlUp).Row
For x = LastRow To 1 Step -1
If Application.WorksheetFunction.CountIf(Range("g1:g" & x), Range("g" & x).Text) > 1 Then
Range("g" & x).EntireRow.Delete
End If
Next x

End Sub

 

[exAHSacto]

Try this

ActiveSheet.Range("$B$13:$F$10000").RemoveDuplicates Columns:=Array(1, 2, 3, 4, 5),  Header:=xlYes

 

[somenoob]

Thanks for the replies

Try this out, adjust the column reference

i see that the codes check for one column. How do i change it to check for B to F starting in row 13.

ActiveSheet.Range("$B$13:$F$10000").RemoveDuplicates Columns:=Array(1, 2, 3, 4, 5), Header:=xlYes

i tried this code too but it return me this error when i run it.
object doesn't support this property or method

 

[exAHSacto]

This solution is working for Office 2010.

Thanks for the replies



i see that the codes check for one column. How do i change it to check for B to F starting in row 13.



i tried this code too but it return me this error when i run it.
object doesn't support this property or method

 

[exAHSacto]

This solution is working for Office 2010.

Thanks for the replies



i see that the codes check for one column. How do i change it to check for B to F starting in row 13.



i tried this code too but it return me this error when i run it.
object doesn't support this property or method

 

[somenoob]

i see. But i am using excel 2003.

 

[somenoob]

can anyone help me? please