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

1. Pressione outro + F11 chaves juntas para abrir o Microsoft Visual Basic para aplicativos janela.

2. Clique inserção > Móduloe, em seguida, cole o código VBA abaixo no Módulo:

VBA: Remova 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 F5 ou clique no Execute botão 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 botão OK botão.

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

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

Normalmente colocamos o cursor em uma célula e, em seguida, removemos manualmente os caracteres não alfanuméricos, um por um. Se você estiver familiarizado com VBA ou funções definidas pelo usuário, poderá codificá-lo e remover todos os caracteres não alfanuméricos em massa. Mas aqui 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 outro + F11 chaves juntas para abrir o Microsoft Visual Basic para aplicativos janela.

2. Clique inserção > Móduloe cole o código abaixo 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 arraste o download da alça do Preenchimento Automático para aplicar essa fórmula a outras células.

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

Kutools for Excel- Inclui mais de 300 ferramentas úteis para Excel. Teste gratuito de 30 dias com recursos completos, sem necessidade de cartão de crédito! Get It Now

Se você instalou o Kutools for Excel, siga as seguintes etapas:

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

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

Agora todos os caracteres não alfanuméricos foram excluídos das sequências de texto.