Download
Relação .doc:   15.000  Macros, Funções e  Fórmu
las

Dicas  Excel Macros VBA
Elimina textos e mantêm valores numéricos

Pergunta:

Seria possível escrever-se uma rotina que elimine da minha planilha os textos, mantendo no entanto as datas e demais valores numéricos ?

Resposta:

Sub EliminaTextos( )
Worksheets("Sheet1").Select
On Error GoTo fim
With Columns
.SpecialCells(xlTextValues, xlConstants).ClearContents
End with
fim:
Exit Sub
End Sub