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
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