[Anónimo]

olá,

eu queria saber se há a possibilidade de retirar, de forma automática, letras numa célula que contém números.

exemplo: tenho uma célula com o seguinte [12345kf] e eu queria, de forma automática, retirar as letras na célula para ficar assim [12345]

tenho uma tabela com muitas linhas em que todas as células têm números e letras e eu preciso de retirar as letras em todas as células.

obrigado

[jorgerod]

fogaceiro,

experimenta este código simples, mas eficaz, com necessária adaptação:

sub numbersonly()
dim i, lastrow
lastrow = range(“a” & rows.count).end(xlup).row
for i = 1 to lastrow
for j = 1 to len(cells(i, “a”))
if isnumeric(mid(cells(i, “a”), j, 1)) then
newval = newval & mid(cells(i, “a”), j, 1)
end if
next j
cells(i, “a”).value = newval
newval = “”
next i
end sub

fica bem e diz qq coisa, ok? se tiveres dúvidas em como efectuar a adaptação, coloca aqui uma planilha com exemplo. 🙂

[Anónimo]

olá,

coloquei o código na folha mas não deu nada.

não fiz as alterações porque não sei o que alterar.

deixo aqui um ficheiro exemplo do que pretendo:

[Anónimo]

agora é que vai o ficheiro.

Livro1.xlsm

[jorgerod]

devolvo-te o ficheiro, com as alterações, que se limitaram à alteração da coluna “a”, para a coluna “b”. e resultou.

experimenta novamente, agora com o código como está.

diz qq coisa, ok?
Livro1.xlsm

[Anónimo]

funcionou!!!

agora já percebi o que deveria ter alterado.

isso resolve o meu problema…

obrigado pela ajuda! :laugh: :laugh: :laugh:

[Autor]

Artigos