|Subject:||Re: How to blank out cells with duplicate values?|
|Posted by:||Bob Phillips (bob.philli…@notheretiscali.co.uk)|
|Date:||Tue, 2 May 2006|
Dim iLastRow As Long
Dim i As Long
iLastRow = Cells(Rows.Count, "A").End(xlUp).Row
For i = iLastRow To 2 Step -1
If Application.CountIf(Columns(1), Cells(i, "A")) > 1 Then
Cells(i, "A").Delete Shift:=xlUp
(remove nothere from email address if mailing direct)
"Bleu_808" <bleu_8…@yahoo.com> wrote in message
> Okay - after an hour on trying to work on what I thought was an easy
> task 0 I must ask for help!
> My column A is a list of order numbers, each order is separated by a
> blank row...
> What I would like to do is delete the duplicate order numbers, without
> affecting the rest of the row. I thought this might be a simple if
> statement, but no. Any ideas?
> Thanks in advance - Bleu
How to blank out cells with duplicate values? posted by Bleu_808 on 1 May 2006