Here's one way of doing it. Sub CopyDuplicates()
With Range("B2:B" & Cells(Rows.Count, 1).End(xlUp).Row) .Formula = "=COUNTIF($A$2:$A$" & Cells(Rows.Count, 1).End(xlUp).Row & ",A2)" .Value = .Value .Cells(0) = "COUNT" .Cells(0).Resize(.Rows.Count + 1).AutoFilter 1, ">1" .Offset(, -1).Resize(, 2).Copy Sheets.Add(After:=ActiveSheet).Cells(1) .AutoFilter .Cells(0).Resize(.Rows.Count + 1).Clear End With End Sub Regards, Sam Mathai Chacko (GL) On Sun, Oct 2, 2011 at 11:05 AM, anil kumar <kmr7a...@gmail.com> wrote: > Hi suman, > > > I have a address software in which data enterd by other opprters and I > think some data is double so i want to export data from there in excel short > out double data than i will remove that data from software. so i wanted to > printout that double address. > > > > > Anil > > > > -- > > ---------------------------------------------------------------------------------- > Some important links for excel users: > 1. Follow us on TWITTER for tips tricks and links : > http://twitter.com/exceldailytip > 2. Join our LinkedIN group @ http://www.linkedin.com/groups?gid=1871310 > 3. Excel tutorials at http://www.excel-macros.blogspot.com > 4. Learn VBA Macros at http://www.quickvba.blogspot.com > 5. Excel Tips and Tricks at http://exceldailytip.blogspot.com > > To post to this group, send email to excel-macros@googlegroups.com > > <><><><><><><><><><><><><><><><><><><><><><> > Like our page on facebook , Just follow below link > http://www.facebook.com/discussexcel > -- Sam Mathai Chacko -- ---------------------------------------------------------------------------------- Some important links for excel users: 1. Follow us on TWITTER for tips tricks and links : http://twitter.com/exceldailytip 2. Join our LinkedIN group @ http://www.linkedin.com/groups?gid=1871310 3. Excel tutorials at http://www.excel-macros.blogspot.com 4. Learn VBA Macros at http://www.quickvba.blogspot.com 5. Excel Tips and Tricks at http://exceldailytip.blogspot.com To post to this group, send email to excel-macros@googlegroups.com <><><><><><><><><><><><><><><><><><><><><><> Like our page on facebook , Just follow below link http://www.facebook.com/discussexcel