Se não aparecer algo melhor...

Sub EliminarNum()
Dim ws As Worksheet

Set ws = Sheets("Plan1")

i = 2
j = ws.Range("F65536").End(xlUp).Row

Do While i <= j

If IsNumeric(ws.Cells(i, 6)) Then
ws.Cells(i, 6) = ""
End If
i = i + 1

Loop

End Sub

Fala Edson blz?

Como está?

Muito Obrigado por responder

Funcionou, mas o dados das outras colunas tambem deve ser deletados.
Por exemplo, se coluna query tiver informação da linha 1 até a linha 5, os outros dados das outras colunas tambem deve ser deletados.

Pode me ajudar por favor..

Tenha um otimo dia

André.. você quer dizer que a linha toda deve ser excluída?

Olá Edson

Isso mesmo..

Toda a linha deve ser excluida em que contem a informação. como no exemplo anexo

As informações de como o formato númerico da coluna query vai da linha 2 a té a linha 5. Todos os dados das outras colunas devem ser excluidos, menos o cabeçalho.
A nova linha 1 devera ser a partir na linha 6.

Por favor se ficou confuso pode me dizer

Desculpe qq contratmpo

Veja se é isso:

Sub EliminarNum()
Dim ws As Worksheet

Set ws = Sheets("Plan1")

i = 2

Do While ws.Cells(i, 6) <> ""

If IsNumeric(ws.Cells(i, 6)) Then
Rows(i & ":" & i).Delete Shift:=xlUp
i = i - 1
End If
i = i + 1

Loop

End Sub

Enviado: 29 Jun 2011, 14:18
Edson

Muito Obrigado..

era isso mesmo rsss

valeu mesmo!!

Tenho uma dúvida, nesta mesma coluna, por uma erro de sistema, que nunca é resolvido, está trazendo o nome de pessoas, existe algum comando que eu consiga excluir as linhas que tenham nome de pessoas?

flw