Como remover caracteres não alfanuméricos no Excel?
Supondo que haja uma variedade de dados, como JAMES0898 # 4% ^ {}, que contém caracteres não alfanuméricos em uma planilha e agora você deseja apenas remover os caracteres não alfanuméricos e manter os caracteres alfanuméricos. Por exemplo, JAMES0898 # 4% ^ {} > JAMES0898. Como você exclui rapidamente esses caracteres não alfanuméricos no Excel?
- Remova caracteres não alfanuméricos com o código VBA
- Remova caracteres não alfanuméricos com a função definida pelo usuário
- Remova caracteres não alfanuméricos com Kutools para Excel
Remova caracteres não alfanuméricos com o código VBA
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!
Remova caracteres não alfanuméricos com a função definida pelo usuário
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.
Remova caracteres não alfanuméricos com Kutools para Excel
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.
Artigos relacionados:
Melhores ferramentas de produtividade de escritório
Aprimore suas habilidades de Excel com o Kutools para Excel e experimente uma eficiência como nunca antes. Kutools para Excel oferece mais de 300 recursos avançados para aumentar a produtividade e economizar tempo. Clique aqui para obter o recurso que você mais precisa...
Office Tab traz interface com guias para o Office e torna seu trabalho muito mais fácil
- Habilite a edição e leitura com guias em Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novas guias da mesma janela, em vez de em novas janelas.
- Aumenta sua produtividade em 50% e reduz centenas de cliques do mouse para você todos os dias!