Como extrair o valor decimal de uma cadeia de caracteres no Excel?
Este tutorial mostra como extrair apenas a parte decimal de uma cadeia de caracteres no Excel.
Extrair valor decimal com fórmula no Excel
Extrair valor decimal com VBA no Excel
Extrair facilmente valor decimal com Kutools para Excel
Extrair valor decimal com fórmula no Excel
Existem duas fórmulas que o podem ajudar a extrair o valor decimal de uma cadeia de caracteres — escolha a que melhor se adapta às suas necessidades.
A fórmula que é indiferente ao sinal dos valores:
Selecione uma célula e introduza esta fórmula =ABS(A1-TRUNC(A1)) (em que A1 é a célula da qual pretende extrair o valor decimal) na Barra de Fórmulas e, em seguida, prima Enter. Mantenha a seleção na primeira célula de resultados e arraste a alça de preenchimento para baixo para obter todos os valores. Verá que os valores decimais foram extraídos sem o sinal, tal como ilustrado na imagem seguinte.
A fórmula que reflete o sinal dos valores:
Selecione uma célula e introduza esta fórmula =A1-TRUNC(A1) (onde A1 é a célula da qual pretende extrair o valor decimal) na Barra de Fórmulas e, em seguida, prima Enter. Mantenha a seleção na primeira célula de resultados e arraste a alça de preenchimento para baixo para obter todos os valores. Verá que os valores decimais foram extraídos com o respetivo sinal, tal como ilustrado na imagem seguinte.
Extraia facilmente números decimais de um Selecionar intervalo no Excel:
O utilitário Extrair Texto do Kutools para Excel ajuda-o a extrair facilmente todos os valores decimais de um intervalo limitado, tal como demonstrado abaixo.
Transfira e experimente já! (teste gratuito de 30 dias))
Extrair valor decimal com VBA no Excel
Existe um código VBA que pode extrair em massa os valores decimais, incluindo apenas o sinal, a partir de cadeias de caracteres.
1. Prima Alt + F11 para abrir a janela do Microsoft Visual Basic para Aplicações.
2. Na janela que surge, clique em Inserir > Módulo e cole o seguinte código VBA no módulo.
VBA: Extrair apenas valores decimais
Sub GetNumber()
Dim xSRg As Range
Dim xDRg As Range
Dim xPRg As Range
Dim xSRgArea As Range
Dim xRgVal As String
Dim xAddress As String
Dim I As Long
Dim K As Long
Dim KK As Long
On Error Resume Next
xAddress = Application.ActiveWindow.RangeSelection.Address
Set xSRg = Application.InputBox("Please select range:", "KuTools For Excel", xAddress, , , , , 8)
If xSRg Is Nothing Then Exit Sub
Set xDRg = Application.InputBox("Select single cell:", "KuTools For Excel", , , , , , 8)
If xDRg Is Nothing Then Exit Sub
Set xDRg = xDRg(1)
For I = 1 To xSRg.Areas.Count
Set xSRgArea = xSRg.Areas.Item(I)
For K = 1 To xSRgArea.Count
xRgVal = xSRgArea(K).Value
KK = xSRgArea(K).Row - xSRg.Row
If IsNumeric(xRgVal) Then
xDRg.Offset(KK) = xRgVal - VBA.Fix(xRgVal)
End If
Next
Next
End Sub3. Prima a tecla F5 para executar o código. Em seguida, surge uma caixa de diálogo Kutools para Excel. Selecione o intervalo do qual pretende extrair apenas os valores decimais e clique no botão OK. Veja a imagem:
4. Surge então outra caixa de diálogo Kutools para Excel, na qual deverá selecionar uma célula para inserir os valores decimais extraídos. Veja a imagem:
Pode verificar que apenas as partes decimais dos números indicados foram extraídas e inseridas no intervalo especificado, conforme ilustrado na imagem seguinte.
Extrair facilmente valor decimal com Kutools para Excel
Se não aprecia métodos com fórmulas ou VBA, apresentamos-lhe uma ferramenta prática – Kutools para Excel. Com o seu utilitário Extrair Texto, pode extrair facilmente todos os valores decimais de um intervalo no Excel.
1. Selecione o intervalo com os decimais que pretende extrair e, em seguida, clique em Kutools > Texto > Extrair Texto. Veja a imagem:
2. Na caixa de diálogo Extrair Texto, introduza .* na caixa de texto e, em seguida, clique no botão Adicionar. Por fim, clique no botão OK. Veja a imagem:
3. Noutra caixa de diálogo que surge, selecione uma célula vazia para colocar o resultado e, em seguida, clique no botão OK.Extrair Texto
Todos os valores decimais do intervalo selecionado são extraídos imediatamente. Veja a imagem:
Se pretender experimentar gratuitamente esta utilidade durante 30 dias, clique para a transferir e, em seguida, siga os passos indicados acima.
Artigos Relacionados:
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