Как извлечь десятичное число из строки в Excel?
В этом руководстве показано, как извлечь только десятичную часть числа из строки в Excel.
Извлечение десятичного значения с помощью формулы в Excel
Извлечение десятичного значения с помощью VBA в Excel
Легкое извлечение десятичного значения с помощью Kutools для Excel
Извлечение десятичного значения с помощью формулы в Excel
Вам доступны две формулы для извлечения десятичного значения из строки — выберите ту, которая подходит именно вам.
Формула, не зависящая от знака значений:
Выберите ячейку и введите в строку формул эту формулу: =ABS(A1-TRUNC(A1)) (где A1 — ячейка, из которой нужно извлечь десятичную часть), затем нажмите клавишу Enter. Далее, не снимая выделения с первой ячейки с результатом, перетащите маркер заполнения вниз, чтобы получить все остальные значения. Как видно на скриншоте ниже, в результате остаются только положительные десятичные части чисел.
Формула, учитывающая знак значений:
Выберите ячейку и введите в строку формул следующую формулу: =A1-TRUNC(A1) (где A1 — ячейка, из которой нужно извлечь десятичную часть), затем нажмите клавишу Enter. Не снимая выделения с первой ячейки с результатом, перетащите маркер заполнения вниз, чтобы получить все значения. Как видно на скриншоте ниже, десятичные части извлекаются вместе со знаком.
Легко извлекайте десятичные числа из Выберите диапазон в Excel:
Утилита Извлечь текст из Kutools для Excel позволяет легко извлекать все десятичные значения из ограниченного диапазона, как показано в демонстрации ниже.
Скачайте и попробуйте прямо сейчас! (30-дневная бесплатная пробная версия))
Извлечение десятичного значения с помощью 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 Sub3. Нажмите клавишу F5, чтобы запустить код. После этого откроется диалоговое окно Kutools для Excel — выберите диапазон, из которого нужно извлечь только десятичные значения, и нажмите кнопку OK. См. скриншот:
4. Затем появится ещё одно диалоговое окно Kutools для Excel, в котором нужно выбрать ячейку для размещения извлечённых десятичных значений. См. скриншот:
Вы увидите, что из указанных чисел извлечены только десятичные значения и размещены в заданном диапазоне, как показано на скриншоте ниже.
Легкое извлечение десятичного значения с помощью Kutools для Excel
Если вам не нравятся методы с формулами и VBA, представляем удобный инструмент — Kutools для Excel. С помощью его утилиты Извлечь текст вы легко извлечёте все десятичные значения из диапазона в Excel.
1. Выделите диапазон с десятичными числами, которые нужно извлечь, и нажмите Kutools > Текст > Извлечь текст. См. скриншот:
2. В диалоговом окне Извлечь текст введите .* в поле «Текст» и нажмите кнопку Добавить. Затем нажмите кнопку OK. См. скриншот:
3. В появившемся диалоговом окне Извлечь текст выберите пустую ячейку для размещения результата и нажмите кнопку OK.
Затем все десятичные значения из выбранного диапазона будут немедленно извлечены. См. скриншот:
Если вы хотите воспользоваться бесплатной пробной версией (30 дней) этой утилиты, нажмите, чтобы скачать её, а затем выполните операцию в соответствии с приведёнными выше шагами.
Смежные статьи:
Лучшие инструменты повышения продуктивности в Office
Раскройте весь потенциал Excel с помощью Kutools для Excel и ощутите эффективность как никогда раньше.Kutools для Excel предлагает более 300 расширенных функций для повышения продуктивности и Экономия времени.Нажмите здесь, чтобы получить нужную Вам функцию…
Office Tab добавляет в Office вкладки и значительно упрощает Вашу работу
- Включите редактирование и чтение во вкладках в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Открывайте и создавайте несколько документов во вкладках одного окна — вместо того чтобы использовать отдельные окна.
- Повышает вашу продуктивность на 50 % и экономит сотни кликов мышью каждый день!
Все надстройки Kutools — один установщик
Kutools for Office — набор надстроек для Excel, Word, Outlook и PowerPoint, а также Office Tab Pro, идеально подходящий командам, работающим с разными приложениями Office.
- Единый комплект— надстройки для Excel, Word, Outlook и PowerPoint + Office Tab Pro
- Один установщик, одна лицензия— настройка занимает считанные минуты (готово для MSI)
- Лучше работать вместе— оптимизированная продуктивность во всех приложениях Office
- 30-дневная полнофункциональная пробная версия— без регистрации и кредитной карты
- Лучшее соотношение цены и качества— экономия по сравнению с покупкой отдельных надстроек