Как извлечь десятичное значение из строки в Excel?

Из этого туториала Вы узнаете, как извлечь десятичное значение только из строки в Excel.

Извлечь десятичное значение с формулой в Excel
Извлечь десятичное значение с помощью VBA в Excel
Легко извлекать десятичное значение с помощью Kutools for Excel

Извлечь десятичное значение с формулой в Excel

Есть две формулы, которые могут помочь вам извлечь десятичное значение из строки, выберите одну из них по своему усмотрению.

Формула, не зависящая от знака значений:

Выберите ячейку и введите эту формулу = ABS (A1-TRUNC (A1)) (A1 - это ячейка, из которой вы хотите извлечь десятичное значение) в панель формул, а затем нажмите Enter ключ. Продолжайте выбирать первую ячейку результата, перетащите маркер заполнения вниз, чтобы получить все результаты. Вы можете видеть, что десятичные значения извлекаются только без знака, как показано ниже.

Формула, отражающая знак значений:

Выберите ячейку и введите эту формулу = A1-TRUNC (A1) (A1 - это ячейка, из которой вы хотите извлечь десятичное значение) в панель формул, а затем нажмите Enter ключ. Продолжайте выделять первую ячейку результата и перетащите маркер заполнения вниз, чтобы получить все результаты. Вы можете видеть, что десятичные значения извлекаются со знаком, как показано на скриншоте ниже.

Извлечь десятичное значение с помощью VBA в Excel

Существует VBA, который может массово извлекать десятичные значения со знаком только из строк.

1. Нажмите Alt + F11 для открытия Microsoft Visual Basic для приложений окно.

2. Во всплывающем окне щелкните Вставить > Модули, а затем вставьте в модуль следующий код VBA.

VBA: извлекать только десятичные значения

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. нажмите F5 ключ для запуска кода. Потом Kutools for Excel появится диалоговое окно, выберите диапазон, из которого вы хотите извлечь только десятичные значения, и нажмите кнопку OK кнопка. Смотрите скриншот:

4. Затем еще один Kutools for Excel Появится диалоговое окно, в котором необходимо выбрать ячейку для извлечения десятичных значений. Смотрите скриншот:

Вы можете видеть, что только десятичные значения указанных чисел извлекаются и помещаются в определенный диапазон, как показано на скриншоте ниже.

Легко извлекать десятичное значение с помощью Kutools for Excel

Если вам не нравятся формулы и методы VBA, я представляю вам удобный инструмент - Kutools for Excel, С этими Извлечь текст утилита, вы можете легко извлечь все десятичные значения из диапазона в Excel.

1. Выберите диапазон с десятичной дробью, который нужно извлечь, а затем щелкните Кутулс > Текст > Извлечь текст. Смотрите скриншот:

2. в Извлечь текст диалоговое окно, введите .* в текстовое поле, а затем щелкните значок Добавить кнопка. Наконец нажмите кнопку OK кнопка. Смотрите скриншот:

3. В другом выскакивающем Извлечь текст диалоговом окне выберите пустую ячейку для поиска результата, а затем щелкните значок OK .

Затем сразу же извлекаются все десятичные значения в выбранном диапазоне. Смотрите скриншот:

Относительные статьи:

• Извлечь время или час только в Excel