Extracting the Duplicate Records
 

How can i extract the duplicate data from a excel sheet which has 5000 to
6000 records...

currently i have planned to write the code using macros in the following way

dim duprecords()
rowc=1
do while not isempty(cells(rowc,1))
rowc1 = rowc + 1
do while not isempty(cells(rowc1,1))
if cellls(rowc,1).value = cells(roc1,1).value then
cells(rowc1,1).entirerow.delete
else
rowc1 = rowc1 +1
end if
loop
rowc = rowc +1
loop
end sub

is this procedure will work fast and efficient. Suggest me if there any
alternative for this...

Thanks in advance
Santhosh

Extracting the Duplicate Records
 

Just use Data, Filter, Advanced Filter. Select the copy to another location
option and delete duplicates. Then you'll have a copy of the original list
minus duplicates.

--
Jim
"Santhosh" wrote in message
...
| How can i extract the duplicate data from a excel sheet which has 5000 to
| 6000 records...
|
| currently i have planned to write the code using macros in the following
way
|
| dim duprecords()
| rowc=1
| do while not isempty(cells(rowc,1))
| rowc1 = rowc + 1
| do while not isempty(cells(rowc1,1))
| if cellls(rowc,1).value = cells(roc1,1).value then
| cells(rowc1,1).entirerow.delete
| else
| rowc1 = rowc1 +1
| end if
| loop
| rowc = rowc +1
| loop
| end sub
|
| is this procedure will work fast and efficient. Suggest me if there any
| alternative for this...
|
| Thanks in advance
| Santhosh