Delete duplicate rows of data

L

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
 
B

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
 
L

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
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top