Delete duplicate rows of data
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
--
HTH
Bob
"Len" wrote in message
...
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
|