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

Это руководство расскажет вам, как извлечь только десятичное значение из строки в Excel.

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

Извлечение десятичного значения с помощью формулы в Excel

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

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

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

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

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

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

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

1. Нажмите Alt + F11, чтобы открыть окно Microsoft Visual Basic for Applications.

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

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

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

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

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

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

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

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

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

Связанные статьи:

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