如何在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