Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
How to completely remove duplicate rows in vba
Hi,
In one sheet I have many duplicate rows and I wanted to remove completely and left non duplicate rows.Pls help how to do in VBA. Example: Before A B Mary 50 Jane 20 Sam 10 Jery 30 Jane 20 Sam 10 After A B Mary 50 Jery 30 Left only non duplicate rows. Pls help.Thanks |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
How to completely remove duplicate rows in vba
is col A unique or is it A B
ie will you ever have Mary, 10 Mary, 20 if not then Option Explicit Sub sortanddelete() Dim rw As Long 'sort the data With Range("A1:A" & Range("A:A").Rows.Count) .Sort Range("A1") End With 'strip out duplicates For rw = Range("A1").End(xlDown).Row To 2 Step -1 If Cells(rw, 1) = Cells(rw - 1, 1) Then Rows(rw).Delete Next End Sub "geniusideas" wrote: Hi, In one sheet I have many duplicate rows and I wanted to remove completely and left non duplicate rows.Pls help how to do in VBA. Example: Before A B Mary 50 Jane 20 Sam 10 Jery 30 Jane 20 Sam 10 After A B Mary 50 Jery 30 Left only non duplicate rows. Pls help.Thanks |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
How to completely remove duplicate rows in vba
On Aug 27, 10:50*pm, Patrick Molloy
wrote: is col A unique or is it A B ie will you ever have Mary, 10 Mary, 20 if not then Option Explicit Sub sortanddelete() * * Dim rw As Long 'sort the data * * With Range("A1:A" & Range("A:A").Rows.Count) * * * * .Sort Range("A1") * * End With 'strip out duplicates * * * * For rw = Range("A1").End(xlDown).Row To 2 Step -1 * * * * If Cells(rw, 1) = Cells(rw - 1, 1) Then Rows(rw).Delete * * Next End Sub "geniusideas" wrote: Hi, In one sheet I have many duplicate rows and I wanted to remove completely and left non duplicate rows.Pls help how to do in VBA. Example: Before * *A * * * * * * * * * B Mary * * * * * * * *50 Jane * * * * * * * *20 Sam * * * * * * * *10 Jery * * * * * * * * 30 Jane * * * * * * * *20 Sam * * * * * * * *10 After * A * * * * * * * * * B Mary * * * * * * * *50 Jery * * * * * * * * 30 Left only non duplicate rows. Pls help.Thanks Dear Patrick, Both col is unique, mean I should have Mary, 10 Mary, 20 Thanks |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
remove duplicate rows but keeping all columns | Excel Worksheet Functions | |||
Highlight/remove duplicate rows | Excel Programming | |||
How do I remove Duplicate rows? | Excel Discussion (Misc queries) | |||
Need macro to remove duplicate rows in a wksht with same order# | Excel Discussion (Misc queries) | |||
Remove duplicate rows and sum cells | Excel Programming |