Delete duplicate rows of data

[Len]

Hi,

I tried to delete duplicate rows of data in column J and yet not
response
Actually, my intention is to delete the first row if duplicated rows
found
something has gone wrong with the codes below which I shared the codes
from excel forum

Sub RemoveDups()
Dim r As Long, c As Long, t As Long
r = Cells(Rows.Count, 10).End(xlUp).Row
On Error Resume Next
For c = r To 2 Step -1
Range(Cells(1, 00), Cells(c - 1, 10)).Select
t = Selection. Find(What:=Cells(c, 10), After:=ActiveCell,
LookIn:=xlFormulas, _
LookAt:=xlWhole, SearchOrder:=xlByRows,
SearchDirection:=xlNext, _
MatchCase:=False).Row
If t > 0 And t < c Then Rows(t).EntireRow.Delete
Next c
On Error Goto 0
End Sub

Can someone assist me to solve the above problem ?

Thanks in advance

Regards
Len

 

[Bob Phillips]

Sub RemoveDups()
Dim r As Long, c As Long, t As Long
r = Cells(Rows.Count, 10).End(xlUp).Row
On Error Resume Next
For c = r - 1 To 1 Step -1

If Cells(i, "J").Value2 = Cells(i + 1, "J").Value2 Then

Rows(i).Delete
End If
Next c
On Error GoTo 0
End Sub

 

[Len]

Hi Bob,

Thanks for your reply and your codes

It seems that your codes works to delete the next row if duplicate row
was found and will not work in my case
Sorry, perhaps my post was not clear

In fact, after data filtered, I need to delete the first duplicated
row if duplicated rows found in the column
Based on example below, to delete duplicated row of "k" & "p" found
in row 14 and row 25 only

E.g.

Filtered Row ColJ
2 -
7 -
14 k
25 p
26 -
45 k
49 -
58 p

Regards
Len