Delete records with email address

[Petercheng]

Hi Folks,

I have excel documents where many (thousands) of the cells contain an email address. I need to delete these cells (that contain email address) only from the excel files. Are there any Macro or something that I can use to do so quickly and easily?. (a common feature of the cells is a email address with @ in the cells).

Thanks a lot for your help in advance.

 

[SteveO59L]

Are the addresses in a specific column?

 

[Petercheng]

Yes. they are in a specific column.

 

[SteveO59L]

Assuming the addresses are in col A

Dim i As Long
Dim LASTROW As Long

LASTROW = Cells(Rows.Count, 1).End(xlUp).Row
' ** Deletes rows where col A value contains the "@" character
For i = LASTROW To 1 Step -1
If InStr(Range("A" & i).Value, "@") Then Range("A" & i).EntireRow.Delete Shift:=xlUp

Next i

 

[SteveO59L]

they are in a specific column.

Your point being what exactly?