Como remover caracteres não alfanuméricos no Excel?

Com o seguinte código VBA curto, você também pode remover os caracteres não alfanuméricos. Você pode fazer isso assim:

1. Pressione as teclas Alt + F11 juntas para abrir a janela Microsoft Visual Basic for Applications.

2. Clique em Inserir > Módulo, e depois cole o seguinte código VBA no Módulo:

VBA: Remover todos os caracteres não alfanuméricos

Sub RemoveNotAlphasNotNum()
'Updateby2014128
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.]" Or xTemp Like "[0-9.]" Then
            xStr = xTemp
        Else
            xStr = ""
        End If
        xOut = xOut & xStr
    Next i
    Rng.Value = xOut
Next
End Sub

3. Pressione a tecla F5 ou clique no botão Executar para executar o código.

4. Em seguida, selecione um intervalo do qual deseja remover todos os caracteres não alfanuméricos na caixa de diálogo pop-up e clique no OK botão.

Agora, todos os caracteres não alfanuméricos foram excluídos do intervalo selecionado. Veja a captura de tela:

2 cliques para remover todos os caracteres não alfanuméricos com uma ferramenta incrível

Geralmente colocamos o cursor em uma célula e removemos os caracteres não alfanuméricos manualmente, um por um. Se você está familiarizado com VBA ou Funções Definidas pelo Usuário, pode codificá-los e remover todos os caracteres não alfanuméricos em massa. Mas aqui, eu vou recomendar uma ferramenta incrível, o recurso Remover Caracteres do Kutools para Excel, que pode remover todos os tipos de caracteres com apenas 2 cliques!

Você também pode definir uma função personalizada para remover todos os caracteres não alfanuméricos das células no Excel.

1. Pressione as teclas Alt + F11 juntas para abrir a janela Microsoft Visual Basic for Applications.

2. Clique em Inserir > Módulo, e depois cole o seguinte código no Módulo:

Função Definida pelo Usuário: Remover todos os caracteres não alfanuméricos

Function DeleteNonAlphaNumeric(xStr As String) As String
Dim xStrR As String
Dim xCh As String

Dim xStrMode As String
Dim xInt As Integer
    xStrMode = "[A-Z.a-z 0-9]"
    xStrR = ""
    For xInt = 1 To Len(xStr)
        xCh = Mid(xStr, xInt, 1)
        If xCh Like xStrMode Then
            xStrR = xStrR & xCh
        End If
    Next
    DeleteNonAlphaNumeric = xStrR
End Function
    

3. Agora volte para a planilha, selecione uma célula em branco e insira a fórmula =DeleteNonAlphaNumeric(B3), e depois arraste a alça de AutoPreenchimento para baixo para aplicar essa fórmula a outras células.

Com os dois métodos acima, você precisa conhecer os códigos, mas como iniciantes no Excel, a maioria de nós não consegue usar o código, então aqui eu darei uma maneira fácil de fazer isso.

Kutools para Excel - Inclui mais de 300 ferramentas práticas para o Excel. Teste gratuito completo por 30-dias, nenhum cartão de crédito necessário! Obtenha Agora

Se você instalou o Kutools para Excel, faça conforme os passos a seguir:

1. Selecione o intervalo do qual você precisa remover os caracteres não alfanuméricos e clique em Kutools > Texto > Remover Caracteres.

2. Então uma Excluir Caracteres caixa de diálogo aparecerá, marque apenas a opção Não alfanumérico opção, e clique no Ok botão.

Agora, todos os caracteres não alfanuméricos foram excluídos das cadeias de texto.