Is there a way to delete cells in a column with "/" or "(insert numbers)" through VBA?

[afinancialanaylst]

Hi all,
I was wondering if anyone knew a way to create a macro to delete specific cells from a column of figures that have a "/" in them (eg. 13/03) or a string of numbers (e.g. looking for 2013 in a cell with 5562013).
I've had a think about using either IF, MATCH, VLOOKUP or using LEFT/MID/RIGHT with specific text strings but I can't wrap my head around the proper programming.
The macro only needs to run through a specific column, and will be used every time in that same column.
Thanks!

 

[My Aswer Is This]

What column are these values in?
Just delete the cell and shift up or delete entire row?

 

[sheetspread]

You can record a macro that replaces the / with 1/0 or a blank, then delete via the specialcells method (F5-Special).

 

[afinancialanaylst]

They are in column G.
And sorry for the false information, I meant clear the cells, not delete them.

 

[sheetspread]

The way I described works for that too, just clear with the delete button.

 

[My Aswer Is This]

Try this:

Sub Test()
Application.ScreenUpdating = False
Dim i As Long
Dim Lastrow As Long
Lastrow = Cells(Rows.Count, "G").End(xlUp).Row
    For i = 1 To Lastrow
        If InStr(Cells(i, "G").Value, "/") Then Cells(i, "G").ClearContents
    Next
Application.ScreenUpdating = True
End Sub