Como remover caracteres não numéricos de células no Excel?
Suponha que você tenha uma planilha com muitos desses dados ABCD4578124YUIOH, e você só deseja remover os caracteres não numéricos ABCDYUIOH mas mantenha os caracteres numéricos nas células. Claro, você pode remover esses caracteres um por um, mas aqui você pode se livrar dos caracteres não numéricos das células rapidamente da seguinte maneira:
Remova caracteres não numéricos com o código VBA
Uma ferramenta útil para remover caracteres não numéricos com um clique
Remova caracteres não numéricos com o código VBA
Para remover caracteres não numéricos de um intervalo com código VBA, faça o seguinte:
1. Clique Developer > Visual Basic para abrir o Microsoft Visual Basic para aplicativos janela. No Microsoft Visual Basic para aplicativos janela, clique em inserção > Móduloe copie e cole os seguintes códigos no módulo:
VBA: Remova todos os caracteres não numéricos
Sub RemoveNotNum()
'Updateby Extendoffice
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 "[0-9]" Then
xStr = xTemp
Else
xStr = ""
End If
xOut = xOut & xStr
Next i
Rng.Value = xOut
Next
End Sub2. Em seguida, clique no botão 
botão para executar o código, no pop-up Kutools para Excel caixa de diálogo, selecione um intervalo com os caracteres não numéricos que deseja remover e clique no botão OK botão. Veja a imagem:
3. Em seguida, todos os caracteres não numéricos no intervalo selecionado são removidos.
Se os números com casas decimais, você pode usar o seguinte VBA:
Sub RemoveNotNum()
'Updateby Extendoffice
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 "[0-9.]" Then
xStr = xTemp
Else
xStr = ""
End If
xOut = xOut & xStr
Next i
Rng.Value = xOut
Next
End Sub
Você pode ver os resultados conforme a captura de tela abaixo:
Uma ferramenta útil para remover caracteres não numéricos com um clique
Para remover caracteres não numéricos em um intervalo, Kutools for Excel'S Remover Personagens utilitário pode fazer isso com um clique.
| Kutools for Excel : com mais de 300 suplementos úteis do Excel, grátis para testar sem limitação em 30 dias. |
Depois de instalar Kutools for Excel, faça o seguinte:
1. Realce o intervalo do qual deseja remover os caracteres não numéricos. Clique Kutools > Texto > Remover Personagens.
2. No Remover Personagens caixa de diálogo, verifique a Não numérico opção no Remover Personagens seção e, em seguida, clique no OK or Inscreva-se botão. E os caracteres não numéricos são removidos da seleção imediatamente. Veja a imagem:
Clique para baixar o Kutools para Excel e testar gratuitamente agora!
Para obter informações mais detalhadas sobre Remover Personagens do Kutools para Excel, visite Remova a descrição dos recursos dos personagens.
Demonstração: remova caracteres numéricos, alfabéticos, não imprimíveis ou alfanuméricos das células
Artigos relacionados:
- Remova os caracteres alfa das células
- Remova os caracteres numéricos das células
- Remover caracteres não imprimíveis das células
- Remover caracteres não alfa das células
- Remova caracteres não alfanuméricos
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!
