Entendo que seria mais simples ordenar pela coluna, automaticamente os textos ficarão "separados" dos numeros, então e selecionar a range pretendida e excluir.
Mas (na falta de maiores explicações/detalhes) voce pode experimentar:
Sub teste()
For x = Cells(Cells.Rows.Count, "A").End(xlUp).Row To 1 Step -1
If Not IsNumeric(Cells(x, 1).Value) Then
Cells(x, 1).EntireRow.Delete
End If
Next
End Sub
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
Postado : 10/04/2013 9:07 am