Delete duplicate rows of data
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 |
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 |
Delete duplicate rows of data
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 |
All times are GMT +1. The time now is 01:59 PM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com