Como extrair números de cadeias de texto alfanuméricas mistas no Excel?
Este tutorial apresenta três métodos para extrair números de cadeias alfanuméricas mistas no Excel.
Extrair números de cadeias de texto alfanuméricas mistas com fórmula
Extrair facilmente números de cadeias de texto alfanuméricas mistas com uma ferramenta incrível
Extrair números de cadeias de texto alfanuméricas mistas com código VBA
Extrair números de cadeias de texto alfanuméricas mistas com fórmula
Pode utilizar a fórmula abaixo para extrair números de qualquer posição numa cadeia de texto no Excel.
1. Selecione uma célula vazia para apresentar os números extraídos, introduza a fórmula abaixo e prima a tecla Enter. Em seguida, arraste a Alça de Preenchimento Automático para baixo para aplicar a fórmula às restantes células.
=IF(SUM(LEN(A2)-LEN(SUBSTITUTE(A2, {"0","1","2","3","4","5","6","7","8","9"}, «»)))>0, SUMPRODUCT(MID(0&A2, LARGE(INDEX(ISNUMBER(--MID(A2,ROW(INDIRECT(«$1:$»&LEN(A2))),1))* ROW(INDIRECT(«$1:$»&LEN(A2))),0), ROW(INDIRECT(«$1:$»&LEN(A2))))+1,1) * 10^ROW(INDIRECT(«$1:$»&LEN(A2)))/10),«»)
Nota: Na fórmula, A1 é a célula que contém a cadeia de texto da qual pretende extrair os números. Ajuste-a conforme as suas necessidades.
Os números são então extraídos de qualquer posição numa cadeia de texto nas células especificadas, conforme ilustrado na imagem acima.
Extraia facilmente números de cadeias de texto alfanuméricas mistas com Kutools para Excel
Esta secção destaca a utilidade Extrair Texto do Kutools para Excel — com ela, extrair números de uma cadeia de texto torna-se uma tarefa simples e eficaz.
1. Clique em Kutools > Texto > Extrair Texto para ativar a funcionalidade.
2. Na caixa de diálogo Extrair Texto, efetue as seguintes definições.
para selecionar o intervalo de células do qual irá Extrair Texto;
Nota: Marcar a caixa Inserir como FórmulaNo canto inferior esquerdo da caixa de diálogo, insira o resultado como fórmula nas células de destino — assim, sempre que o valor da célula referenciada for alterado, o resultado é atualizado automaticamente.
3. Na caixa de diálogo Extrair Texto, selecione uma célula vazia para apresentar o texto extraído e, em seguida, clique em OK.
Os números de qualquer posição numa cadeia de texto são então extraídos. Veja a imagem:
Se pretender experimentar gratuitamente esta utilidade durante 30 dias, clique para a transferir e, em seguida, siga os passos indicados acima.
Manter apenas números em cadeias de texto alfanuméricas mistas com código VBA
O seguinte código VBA ajuda-o a remover todos os caracteres não numéricos de um intervalo delimitado, mantendo apenas os números nas células. Siga os passos indicados.
Nota: Como o código é executado diretamente sobre o intervalo original, mantenha uma cópia de segurança desse intervalo para evitar a perda de dados.
1. Prima simultaneamente as teclas Alt + F11 para abrir a janela Microsoft Visual Basic para Aplicações.
2. Na janela Microsoft Visual Basic para Aplicações, clique em Inserir>Módulo. Em seguida, copie e cole o código VBA abaixo na janela do Módulo.
Código VBA: remover todos os caracteres não numéricos das células
Sub GetNumbers()
'Updated by Extendoffice 20210125
Dim xRegEx As Object
Dim xRg As Range
Dim xCell As Range
Dim xTxt As String
On Error Resume Next
xTxt = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Pease select range:", "Kutools for Excel", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub
Set xRegEx = CreateObject("VBScript.RegExp")
With xRegEx
.Pattern = "\D+"
.IgnoreCase = True
.Global = True
End With
xRg.NumberFormat = "@"
For Each xCell In xRg
xCell.Value = xRegEx.Replace(xCell.Value, "")
Next
Set xRegEx = Nothing
End Sub3. Prima a tecla F5 para executar o código. Em seguida, surge uma caixa de diálogo Kutools para Excel. Por favor, selecione o intervalo que contém as cadeias de texto alfanuméricas mistas das quais pretende manter apenas os números e clique no botão OK.
Agora, todos os caracteres não numéricos Intervalo Selecionado foram removidos imediatamente e apenas os números foram mantidos. Veja a imagem:
As Melhores Ferramentas de Produtividade para o Office
Potencie as suas competências no Excel com Kutools para Excel e experimente uma eficiência como nunca antes.Kutools para Excel Oferece mais de 300 funcionalidades avançadas para impulsionar a produtividade e Economizar Tempo.Clique aqui para obter a funcionalidade de que mais precisa...
Office Tab Traz uma interface com separadores para o Office e torna o seu trabalho muito mais fácil
- Ative a edição e leitura com separadores no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novos separadores da mesma janela, em vez de em janelas separadas.
- Aumente a sua produtividade em 50 % e elimine centenas de cliques do rato todos os dias!
Todos os suplementos Kutools — num único instalador.
Kutools for Office reúne suplementos para Excel, Word, Outlook e PowerPoint, além do Office Tab Pro, sendo a solução ideal para equipas que trabalham em várias aplicações do Office.
- Pacote tudo-em-um— suplementos para Excel, Word, Outlook e PowerPoint + Office Tab Pro
- Um instalador, uma licença— configuração em minutos (pronto para MSI)
- Funciona melhor em conjunto— produtividade simplificada em todas as aplicações do Office
- Teste gratuito de 30 dias com todas as funcionalidades— sem registo, sem cartão de crédito
- Melhor relação qualidade-preço— poupe face à compra individual dos suplementos