Como remover apenas o texto de células que contêm números e texto no Excel?
Como mostra a captura de tela abaixo, para aquelas células misturadas com números e textos, como remover todos os textos e manter apenas os números nas células? Os métodos neste artigo podem ajudar você.
Remova apenas o texto de células contendo números e texto com uma função definida pelo usuário
Remova facilmente apenas o texto de células contendo números e texto com o Kutools para Excel
Remova apenas o texto de células contendo números e texto com uma função definida pelo usuário
Você também pode usar a função definida pelo usuário abaixo para remover textos de células especificadas e manter apenas números.
1. Pressione simultaneamente as teclas Alt + F11 para abrir a janela do Microsoft Visual Basic for Applications.
2. Na janela do Microsoft Visual Basic for Applications, clique em Inserir > Módulo. Em seguida, copie e cole o código VBA abaixo na janela de Código. Veja a captura de tela:
Código VBA: Remova apenas o texto de células contendo números e texto
Function OnlyNums(strWord As String)
Dim strChar As String
Dim x As Integer
Dim strTemp As String
strTemp = ""
Application.ScreenUpdating = False
For x = 1 To Len(strWord)
strChar = Mid(strWord, x, 1)
If Asc(strChar) >= 48 And _
Asc(strChar) <= 57 Then
strTemp = strTemp & strChar
End If
Next
Application.ScreenUpdating = True
OnlyNums = Val(strTemp)
End Function
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("A1:B10")) Is Nothing Then Cancel = True
End Sub
3. Pressione as teclas Alt + Q para fechar a janela do Microsoft Visual Basic for Applications.
4. Selecione uma célula em branco, insira a fórmula =OnlyNums(A2) na Barra de Fórmulas e pressione a tecla Enter para obter o resultado. Mantenha a célula de resultado selecionada, arraste sua Alça de Preenchimento para baixo para obter todos os resultados. Veja a captura de tela:
Observação: Na fórmula, A2 é a célula da qual você removerá os textos e manterá apenas os números. Altere conforme necessário.
Agora você pode ver que todos os textos foram removidos e apenas os números são mantidos nas células especificadas.
Remova facilmente apenas o texto de células contendo números e texto com o Kutools para Excel
Esta seção recomendará o utilitário Remover Caracteres do Kutools para Excel. Com este utilitário, você pode remover todos os caracteres não numéricos das células com apenas alguns cliques e manter apenas os números nas células. Por favor, faça o seguinte.
1. Selecione as células das quais você precisa remover os textos e manter apenas os números, depois clique em Kutools > Texto > Remover Caracteres.
2. Na caixa de diálogo Remover Caracteres, marque apenas a caixa Não-numérico e clique no botão OK.
Todos os caracteres não numéricos são imediatamente removidos das células selecionadas, como mostrado na captura de tela abaixo.
Kutools para Excel - Potencialize o Excel com mais de 300 ferramentas essenciais. Aproveite recursos de IA permanentemente gratuitos! Obtenha Agora
Artigo relacionado:
Melhores Ferramentas de Produtividade para Office
Impulsione suas habilidades no Excel com Kutools para Excel e experimente uma eficiência incomparável. Kutools para Excel oferece mais de300 recursos avançados para aumentar a produtividade e economizar tempo. Clique aqui para acessar o recurso que você mais precisa...
Office Tab traz interface com abas para o Office e facilita muito seu trabalho
- Habilite edição e leitura por abas no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie múltiplos documentos em novas abas de uma mesma janela, em vez de em novas janelas.
- Aumente sua produtividade em50% e economize centenas de cliques todos os dias!
Todos os complementos Kutools. Um instalador
O pacote Kutools for Office reúne complementos para Excel, Word, Outlook & PowerPoint, além do Office Tab Pro, sendo ideal para equipes que trabalham em vários aplicativos do Office.
- Pacote tudo-em-um — complementos para Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Um instalador, uma licença — configuração em minutos (pronto para MSI)
- Trabalhe melhor em conjunto — produtividade otimizada entre os aplicativos do Office
- Avaliação completa por30 dias — sem registro e sem cartão de crédito
- Melhor custo-benefício — economize comparado à compra individual de add-ins