Remove duplicate, using colour codes

[Karnik]

Hello,
I have data in one coloumn and has many duplicates. All data are in two colours, Black and Red . I need to kep red font data and delete black font.
Any Suggestions?
Thanks
Karnik

 

[hurgadion]

Hi,
try use the code:

Sub ccc()
Dim i&
 
For i = Cells(Rows.Count, 1).End(xlUp).Row To 1 Step -1
   If Cells(i, 1).Font.Color = vbRed Then Rows(i).Delete
Next i
End Sub

or similar,

best regards.

 

[Karnik]

Hi hurgadion,
Thanks for VB, it deletes all data in red font! I copied your codes in verbatim and "run"!
Any other way using if commands?
Thanks in advance
Cheers
Karnik