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 os caracteres não alfanuméricos, um por um, manualmente. 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, Remover Personagens característica de Kutools for Excel, que pode remover todos os tipos de personagens 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!