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

Com o seguinte código VBA curto, pode também remover os caracteres não alfanuméricos. Basta seguir este procedimento:

1. Prima em simultâneo as teclas Alt+F11 para abrir a janela do Microsoft Visual Basic for Applications.

2. Clique em Inserir > Módulo e, de seguida, 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. Prima a tecla F5 ou clique no botão Executar para executar o código.

4. Em seguida, na caixa de diálogo que surge, selecione o intervalo onde pretende remover todos os caracteres não alfanuméricos e clique no botão OK.

Agora, todos os caracteres não alfanuméricos foram removidos do campo «Selecionar intervalo». Veja a imagem:

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

Normalmente, colocamos o cursor numa célula e removemos manualmente os caracteres não alfanuméricos, um a um. Se já domina VBA ou Funções Definidas pelo Utilizador, pode programar uma solução para eliminar todos esses caracteres em lote. Mas aqui está uma sugestão ainda melhor: experimente a funcionalidade Excluir Caracteres Específicos do Kutools para Excel — uma ferramenta incrível que lhe permite remover qualquer tipo de caractere com apenas dois cliques!

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

1. Prima em simultâneo as teclas Alt + F11 para abrir a janela do Microsoft Visual Basic for Applications.

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

Função Definida pelo Utilizador: 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. Volte agora à folha de cálculo, selecione uma célula vazia e introduza a fórmula =DeleteNonAlphaNumeric(B3). Depois, arraste a alça de autorreenchimento para baixo para aplicar esta fórmula a outras células.

Com os dois métodos acima, é necessário conhecer códigos — mas, como principiantes no Excel, a maioria de nós não os consegue utilizar. Por isso, vou mostrar-lhe uma forma fácil de o fazer.

Kutools para Excel – Inclui mais de 300 ferramentas práticas para o Excel. Experimente gratuitamente durante 30 dias com todas as funcionalidades, sem necessidade de cartão de crédito!Obter Agora

Se tiver instalado o Kutools para Excel, siga os passos seguintes:

1. Selecione o intervalo do qual pretende remover os caracteres não alfanuméricos e clique em Kutools > Texto > Excluir Caracteres Específicos.

2. Em seguida, aparecerá uma caixa de diálogo Eliminar Caracteres; basta marcar a opção Não alfanuméricos e clicar no botão Ok.

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