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