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

ms exceladvanced excel functionmicrosoft technologies更新于 2024/9/30 13:32:17

本教程将向您展示如何在 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