Como extrair o valor decimal de uma string no Excel?

Este tutorial mostrará como extrair apenas o valor decimal de uma string no Excel.

Extrair valor decimal com fórmula no Excel
Extrair valor decimal com VBA no Excel
Extraia facilmente o valor decimal com o Kutools para Excel

Extrair valor decimal com fórmula no Excel

Existem duas fórmulas que podem ajudá-lo a extrair o valor decimal de uma string, escolha uma delas conforme necessário.

A fórmula que é independente do sinal dos valores:

Selecione uma célula e digite esta fórmula =ABS(A1-TRUNC(A1)) (A1 é a célula da qual você deseja extrair o valor decimal) na Barra de Fórmulas e pressione a tecla Enter. Continue selecionando a primeira célula de resultado, arraste a alça de preenchimento para baixo para obter todos os resultados. Você pode ver que os valores decimais são extraídos sem o sinal, como mostrado na captura de tela abaixo.

A fórmula que reflete o sinal dos valores:

Selecione uma célula e digite esta fórmula =A1-TRUNC(A1) (A1 é a célula da qual você deseja extrair o valor decimal) na Barra de Fórmulas e pressione a tecla Enter. Continue selecionando a primeira célula de resultado e arraste a alça de preenchimento para baixo para obter todos os resultados. Você pode ver que os valores decimais são extraídos com o sinal, como mostrado na captura de tela abaixo.

Extrair valor decimal com VBA no Excel

Existe um VBA que pode extrair em massa valores decimais com o sinal apenas de strings.

1. Pressione Alt + F11 para abrir a janela Microsoft Visual Basic for Applications.

2. Na janela pop-up, clique em Inserir > Módulo, depois 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 Sub

3. Pressione a tecla F5 para executar o código. Em seguida, uma caixa de diálogo Kutools for Excel aparece, selecione o intervalo do qual deseja extrair apenas os valores decimais e clique no botão OK. Veja a captura de tela:

4. Depois disso, outra caixa de diálogo Kutools for Excel aparece, você precisa selecionar uma célula para localizar os valores decimais extraídos. Veja a captura de tela:

Você pode ver que apenas os valores decimais dos números especificados são extraídos e colocados em um determinado intervalo, como mostrado na captura de tela abaixo.

Extraia facilmente o valor decimal com o Kutools para Excel

Se você não gosta dos métodos de fórmula e VBA, aqui eu apresento uma ferramenta prática – Kutools para Excel. Com sua utilidade Extrair Texto, você pode facilmente extrair todos os valores decimais de um intervalo no Excel.

1. Selecione o intervalo com os decimais que deseja extrair e clique em Kutools > Texto > Extrair Texto. Veja a captura de tela:

2. Na caixa de diálogo Extrair Texto, digite .* na caixa de texto e clique no botão Adicionar. Finalmente, clique no botão OK. Veja a captura de tela:

3. Em outra caixa de diálogo Extrair Texto que aparece, selecione uma célula em branco para localizar o resultado e clique no botão OK.

Em seguida, todos os valores decimais no intervalo selecionado são extraídos imediatamente. Veja a captura de tela:

Artigos Relacionados:

• Extrair apenas hora ou tempo no Excel