如何在Excel中从字符串中提取小数值？

本教程将告诉您如何在Excel中仅从字符串中提取小数值。

使用公式在Excel中提取小数值
使用VBA在Excel中提取小数值
使用Kutools for Excel轻松提取小数值

使用公式在Excel中提取小数值

有两个公式可以帮助您从字符串中提取小数值，请根据需要选择其中之一。

不考虑值符号的公式：

选择一个单元格并输入此公式 =ABS(A1-TRUNC(A1)) （A1是您要提取小数的单元格）到编辑栏(F)中，然后按 Enter 键。保持选中第一个结果单元格，向下拖动填充柄以获取所有结果。您可以看到如下截图所示，只有无符号的小数值被提取出来。

反映值符号的公式：

选择一个单元格并输入此公式 =A1-TRUNC(A1)（A1是您要提取小数的单元格）到编辑栏(F)中，然后按 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 for Excel对话框，请选择您要提取小数值的区域，然后点击 确定 按钮。请参见截图：

4. 接着另一个Kutools for Excel对话框弹出，您需要选择一个单元格来放置提取的小数值。请参见截图：

您可以看到，指定数字的小数值已被提取并放置在某个区域中，如下方截图所示。

使用Kutools for Excel轻松提取小数值

如果您不喜欢公式和VBA方法，这里我向您介绍一个方便的工具——Kutools for Excel。通过其提取文本功能，您可以轻松从Excel中的区域提取所有小数值。

1. 选择包含您要提取小数的区域，然后点击 Kutools > 文本 > 提取文本。请参见截图：

2. 在“提取文本”对话框中，在文本框中输入 .* ，然后点击 添加 按钮。最后点击 确定 按钮。请参见截图：

3. 在另一个弹出的“提取文本”对话框中，选择一个空白单元格用于放置结果，然后点击 确定 按钮。

然后，所选区域中的所有小数值都会立即被提取出来。请参见截图：

相关文章：

• 仅在Excel中提取时间或小时