Comprar a Coleção de 15.000 Macros, Funções e Fórmulas do Excel        Dicas


Questão 8:

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

Solução 8:

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