Como remover caracteres alfabéticos de células no Excel?
Precisa de remover todos os caracteres alfabéticos de um intervalo no Excel? Por exemplo, uma célula pode conter «lucase 13654698745» e pretende que fique apenas «13654698745». Como remover rapidamente todos os caracteres alfabéticos das células? Existem soluções eficazes para resolver este problema?
Remover todos os caracteres alfabéticos das células com código VBA
Para remover todos os caracteres alfabéticos com Kutools para Excel com um único clique
 |  |  |
Remover todos os caracteres alfabéticos das células com código VBA
É difícil remover caracteres alfabéticos usando apenas funções do Excel, mas o código VBA oferece uma solução eficaz. Siga os passos abaixo para eliminar todos os caracteres alfabéticos com VBA.
1. Clique em Programador > Visual Basic ou prima Alt+F11 para abrir uma nova janela do Microsoft Visual Basic para Aplicações. Em seguida, clique em Inserir > Módulo e introduza o seguinte código:
VBA: Remover caracteres alfabéticos:
Sub RemoveAlphas()
'Updateby20131129
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
For Each Rng In WorkRng
xOut = ""
For i = 1 To Len(Rng.Value)
xTemp = Mid(Rng.Value, i, 1)
If xTemp Like "[a-z.]" Or xTemp Like "[A-Z.]" Then
xStr = ""
Else
xStr = xTemp
End If
xOut = xOut & xStr
Next i
Rng.Value = xOut
Next
End Sub
3. Depois, clique no botão 
para executar o código. Será apresentada uma caixa de diálogo que lhe permite selecionar o intervalo a processar — veja a imagem:
.
4. Clique em OK e todos os caracteres alfabéticos terão sido removidos.
Remova todos os caracteres alfabéticos com Kutools para Excel em um único clique.
Kutools para Excel: com mais de 300 complementos práticos para Excel, experimente gratuitamente sem limitações durante 30 dias.Obtenha já
Aplique esta utilidade clicando em Kutools>Texto>Eliminar Caracteres; veja a imagem:
Passo 1. Selecione o intervalo com o qual pretende trabalhar.
Passo 2. Clique em Kutools > Ferramentas de Texto no grupo Edição > Eliminar Caracteres e, na caixa de diálogo Eliminar Caracteres que surge, marque Alfabéticos; veja a imagem:
Passo 3. Clique em Ok ou Aplicar para remover todos os caracteres alfabéticos do intervalo.
Esta funcionalidade permite ainda remover caracteres numéricos, não numéricos, não imprimíveis, entre outros.
Para obter informações mais detalhadas sobre a Eliminação de Caracteres do Kutools para Excel, visite: Eliminar Caracteres.
Artigos relacionados:
Remover caracteres não numéricos das células
Remover caracteres numéricos das células
Remover caracteres não imprimíveis das células
Remover caracteres não alfabéticos das células
Remover caracteres não alfanuméricos
As Melhores Ferramentas de Produtividade para o Office
Potencie as suas competências no Excel com Kutools para Excel e experimente uma eficiência como nunca antes.Kutools para Excel Oferece mais de 300 funcionalidades avançadas para impulsionar a produtividade e Economizar Tempo.Clique aqui para obter a funcionalidade de que mais precisa...
Office Tab Traz uma interface com separadores para o Office e torna o seu trabalho muito mais fácil
- Ative a edição e leitura com separadores no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novos separadores da mesma janela, em vez de em janelas separadas.
- Aumente a sua produtividade em 50 % e elimine centenas de cliques do rato todos os dias!
Todos os suplementos Kutools — num único instalador.
Kutools for Office reúne suplementos para Excel, Word, Outlook e PowerPoint, além do Office Tab Pro, sendo a solução ideal para equipas que trabalham em várias aplicações do Office.
- Pacote tudo-em-um— suplementos para Excel, Word, Outlook e PowerPoint + Office Tab Pro
- Um instalador, uma licença— configuração em minutos (pronto para MSI)
- Funciona melhor em conjunto— produtividade simplificada em todas as aplicações do Office
- Teste gratuito de 30 dias com todas as funcionalidades— sem registo, sem cartão de crédito
- Melhor relação qualidade-preço— poupe face à compra individual dos suplementos