deleting duplicates

  • Thread starter Thread starter jimmy
  • Start date Start date
J

jimmy

I have a column of information that contains a list of
numbers. some of these numbers are duplicated and i want
to eliminate them. I sorted these numbers and then used
the =AND(H9=H10) to see which were duplicated (represented
as true). Is there a way to just go through and delete
the rows that are marked as true? Thanks a lot
 
The following will test the contents of the first 100 rows of Column B if it
is true then the row is deleted.

Public Sub dedupe()
Dim vx As Long
For vx = 1 To 100
If Worksheets("Sheet1").Cells(vx, 1).Value Then Range("A" &
vx).EntireRow.Delete
Next vx
End Sub
 
use a datafilter (Data=>Filter=>Autofilter) on the column to show the True
rows, select the data and do Edit=>Delete (entire row). Only the visible
rows will be deleted (don't select the header row). Now turn off the
autofilter (Data=>Filter=>Autofilter)
 
That misses some rows in cases where contiguous rows are both/all true

It is best to loop from highest to lowest in reverse

Public Sub dedupe()
Dim vx As Long
For vx = 100 To 1 Step -1
If Worksheets("Sheet1").Cells(vx, 1).Value Then Range("A" & _
vx).EntireRow.Delete
Next vx
End Sub


--
Regards
Tom Ogilvy

Nigel said:
The following will test the contents of the first 100 rows of Column B if it
is true then the row is deleted.

Public Sub dedupe()
Dim vx As Long
For vx = 1 To 100
If Worksheets("Sheet1").Cells(vx, 1).Value Then Range("A" &
vx).EntireRow.Delete
Next vx
End Sub






----== Posted via Newsfeed.Com - Unlimited-Uncensored-Secure Usenet News==----
http://www.newsfeed.com The #1 Newsgroup Service in the World! >100,000 Newsgroups
---= 19 East/West-Coast Specialized Servers - Total Privacy via Encryption
Click to expand...
=---
 
Back
Top