如何在Excel中提取字符串中的小数

本教程将向您展示如何在Microsoft Excel中提取嵌入在文本字符串中的特定小数值。处理结合语言和数字的数据可能很困难，尤其是在需要分离和提取特定数字以进行额外研究或计算时。Excel拥有一些强大的功能和方法，可以帮助您快速完成此任务。

学习如何从字符串中提取小数值将极大地提高您在Excel中操纵数据的能力，无论您是在处理财务数据、产品代码还是任何其他包含数字信息的语言。在本教程结束时，您将牢固掌握在Excel中从字符串高效提取小数值所需的方法和函数。让我们开始吧，利用Excel的全部潜力来检索那些难以捉摸的小数！

从字符串中提取小数值

在这里，我们将首先创建一个VBA模块，然后运行它来完成任务。让我们来看一个简单的流程，学习如何在Excel中从字符串中提取小数值。

步骤1：考虑一个Excel表格，其中您有一列类似于下图的小数字符串。

首先，使用Alt + F11打开VBA应用程序。

步骤2：然后单击“插入”，选择“模块”，并将下面的代码复制到文本框中。

插入 > 模块 > 复制。

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:", "Extract Decimal Value", xAddress, , , , , 8)
    If xSRg Is Nothing Then Exit Sub
    Set xDRg = Application.InputBox("Select single cell:", "Extract Decimal Value", , , , , , 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