Como remover caracteres alfabéticos de células no Excel?

Suponha que você precise remover todos os caracteres alfabéticos de um intervalo no Excel. Por exemplo, um dado em uma célula pode ser “lucase 13654698745”, e você quer que fique “13654698745”. Como você pode remover rapidamente todos os caracteres alfabéticos das células? Existem boas ideias para lidar com esse problema?

Remover todos os caracteres alfabéticos das células com código VBA

Para remover todos os caracteres alfabéticos com o Kutools para Excel em um clique

Remover todos os caracteres alfabéticos das células com código VBA

É difícil remover caracteres alfabéticos usando funções no Excel, então você pode usar código VBA para resolver isso. Você pode remover todos os caracteres alfabéticos com VBA seguindo os passos abaixo.

1. Clique em Desenvolvedor>Visual Basic ou pressione Alt+F11 para abrir uma nova janela do Microsoft Visual Basic for Applications, clique em Inserir > Módulo e insira 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. Em seguida, clique em para executar o código. Uma caixa de diálogo pop-up aparecerá para você selecionar um intervalo para trabalhar, veja a captura de tela:

.

4. Clique em OK, e todos os caracteres alfabéticos terão sido removidos.

Para remover todos os caracteres alfabéticos com o Kutools para Excel em um clique.

Kutools para Excel: com mais de 300 add-ins úteis para o Excel, grátis para experimentar sem limitação por 30 dias. Obtenha-o Agora

Por favor, aplique este utilitário clicando em Kutools > Texto > Excluir Caracteres, veja a captura de tela:

Passo 1. Selecione o intervalo com o qual deseja trabalhar.

Passo 2. Clique em Kutools > Ferramentas de Texto no grupo Edição > Excluir Caracteres, e marque Alfabético na caixa de diálogo Excluir Caracteres que aparece, veja a captura de tela:

Passo 3. Clique em Ok ou Aplicar para remover todos os caracteres alfabéticos no intervalo.

Este utilitário também pode excluir caracteres numéricos, caracteres não numéricos, caracteres não imprimíveis e assim por diante.

Para mais informações detalhadas sobre Excluir Caractere do Kutools para Excel, por favor visite: Excluir Caracteres.

Artigos Relacionados:

Remover caracteres não numéricos de células

Remover caracteres numéricos de células

Remover caracteres não imprimíveis de células

Remover caracteres não alfabéticos de células

Remover caracteres não alfanuméricos