| Home |
| Search |
| Today's Posts |
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
How to deleted duplicate record on columnA
I have big excel record, but on the columnA has a lots of dupluicate record,
how can I write a macro to delete them ColumnA aaa aaa bbb bbb ccc ccc I want be like this ColumnA aaa bbb ccc Thanks. Lillian |
|
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
How to deleted duplicate record on columnA
Sub sonic()
i = Cells(Rows.Count, "A").End(xlUp).Row For j = i To 2 Step -1 If Cells(j, "A").Value = Cells(j - 1, "A").Value Then Cells(j, "A").Delete End If Next End Sub -- Gary''s Student gsnu200709 "Lillian" wrote: I have big excel record, but on the columnA has a lots of dupluicate record, how can I write a macro to delete them ColumnA aaa aaa bbb bbb ccc ccc I want be like this ColumnA aaa bbb ccc Thanks. Lillian |
|
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
How to deleted duplicate record on columnA
Gary,
This look good, but only deleted columnA, but actually I would like deleted entire duplicated record, how did we do that. Thanks for all the help Lillian "Gary''s Student" wrote: Sub sonic() i = Cells(Rows.Count, "A").End(xlUp).Row For j = i To 2 Step -1 If Cells(j, "A").Value = Cells(j - 1, "A").Value Then Cells(j, "A").Delete End If Next End Sub -- Gary''s Student gsnu200709 "Lillian" wrote: I have big excel record, but on the columnA has a lots of dupluicate record, how can I write a macro to delete them ColumnA aaa aaa bbb bbb ccc ccc I want be like this ColumnA aaa bbb ccc Thanks. Lillian |
|
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
How to deleted duplicate record on columnA
Sub sonic()
i = Cells(Rows.Count, "A").End(xlUp).Row For j = i To 2 Step -1 If Cells(j, "A").Value = Cells(j - 1, "A").Value Then Cells(j, "A").EntireRow.Delete End If Next End Sub The one-line change deletes the row instead of just the cell. -- Gary's Student gsnu200709 "Lillian" wrote: Gary, This look good, but only deleted columnA, but actually I would like deleted entire duplicated record, how did we do that. Thanks for all the help Lillian "Gary''s Student" wrote: Sub sonic() i = Cells(Rows.Count, "A").End(xlUp).Row For j = i To 2 Step -1 If Cells(j, "A").Value = Cells(j - 1, "A").Value Then Cells(j, "A").Delete End If Next End Sub -- Gary''s Student gsnu200709 "Lillian" wrote: I have big excel record, but on the columnA has a lots of dupluicate record, how can I write a macro to delete them ColumnA aaa aaa bbb bbb ccc ccc I want be like this ColumnA aaa bbb ccc Thanks. Lillian |
|
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
How to deleted duplicate record on columnA
Thanks Gary, this one work
"Gary''s Student" wrote: Sub sonic() i = Cells(Rows.Count, "A").End(xlUp).Row For j = i To 2 Step -1 If Cells(j, "A").Value = Cells(j - 1, "A").Value Then Cells(j, "A").EntireRow.Delete End If Next End Sub The one-line change deletes the row instead of just the cell. -- Gary's Student gsnu200709 "Lillian" wrote: Gary, This look good, but only deleted columnA, but actually I would like deleted entire duplicated record, how did we do that. Thanks for all the help Lillian "Gary''s Student" wrote: Sub sonic() i = Cells(Rows.Count, "A").End(xlUp).Row For j = i To 2 Step -1 If Cells(j, "A").Value = Cells(j - 1, "A").Value Then Cells(j, "A").Delete End If Next End Sub -- Gary''s Student gsnu200709 "Lillian" wrote: I have big excel record, but on the columnA has a lots of dupluicate record, how can I write a macro to delete them ColumnA aaa aaa bbb bbb ccc ccc I want be like this ColumnA aaa bbb ccc Thanks. Lillian |
| Reply |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| Duplicate company name to be deleted | Excel Discussion (Misc queries) | |||
| Adding new numbers as I type without duplicates from Sheet1,ColumnA to Sheet2,ColumnA | Excel Worksheet Functions | |||
| Duplicate Record.... | Excel Programming | |||
| Duplicate Record.... | Excel Programming | |||
| draw borders around deleted duplicate cells | Excel Programming | |||
Linear Mode
