如何從Excel中的混合字母數字文本字符串中提取數字？

本教程提供了三種方法來幫助從Excel中的混合字母數字文本字符串中提取數字。

使用公式從混合的字母數字文本字符串中提取數字
使用VBA代碼從混合的字母數字文本字符串中提取數字
使用出色的工具輕鬆地從混合的字母數字文本字符串中提取數字

---

使用公式從混合的字母數字文本字符串中提取數字

您可以應用以下公式從Excel文本字符串中的任意位置提取數字。

1.選擇一個空白單元格以輸出提取的數字，在其中輸入以下公式，然後按 Enter 鍵。 然後向下拖動自動填充手柄以將公式應用於其他單元格。

=IF(SUM(LEN(A2)-LEN(SUBSTITUTE(A2, {"0","1","2","3","4","5","6","7","8","9"}, "")))>0, SUMPRODUCT(MID(0&A2, LARGE(INDEX(ISNUMBER(--MID(A2,ROW(INDIRECT("$1:$"&LEN(A2))),1))* ROW(INDIRECT("$1:$"&LEN(A2))),0), ROW(INDIRECT("$1:$"&LEN(A2))))+1,1) * 10^ROW(INDIRECT("$1:$"&LEN(A2)))/10),"")

備註：在公式中，A1是包含要提取數字的文本字符串的單元格。 請根據您的需要進行更改。

然後從指定單元格中的文本字符串中的任意位置提取數字，如上圖所示。

---

僅將數字保留在帶有VBA代碼的混合字母數字文本字符串中

以下VBA代碼可以幫助您刪除指定範圍內的所有非數字字符，並在單元格中僅保留數字。 請執行以下操作。

備註：由於代碼直接執行原始範圍，因此請保留原始範圍的副本，以防丟失數據。

1。 按 其他 + F11 同時打開 Microsoft Visual Basic for Applications 窗口。

2。 在裡面 Microsoft Visual Basic for Applications 窗口中，單擊 插入 > 模塊。 然後將下面的VBA代碼複製並粘貼到“模塊”窗口中。

VBA代碼：從單元格中刪除所有非數字字符

Sub GetNumbers()
'Updated by Extendoffice 20210125
    Dim xRegEx As Object
    Dim xRg As Range
    Dim xCell As Range
    Dim xTxt As String
    On Error Resume Next
    xTxt = ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Pease select range:", "Kutools for Excel", xTxt, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    Set xRegEx = CreateObject("VBScript.RegExp")
    With xRegEx
        .Pattern = "\D+"
        .IgnoreCase = True
        .Global = True
    End With
    xRg.NumberFormat = "@"
    For Each xCell In xRg
        xCell.Value = xRegEx.Replace(xCell.Value, "")
    Next
    Set xRegEx = Nothing
End Sub

3。 按 F5 鍵來運行代碼。 然後一個 Excel的Kutools 對話框彈出，請選擇包含混合字母數字文本字符串的範圍，您將只保留數字，然後單擊 OK 按鈕。

現在，所選範圍內的所有非數字字符都將立即刪除，僅保留數字。 看截圖：

---

使用Kutools for Excel輕鬆地從混合字母數字文本字符串中提取數字

本節推薦Kutools for Excel的Extract Text實用程序。 使用此實用程序，可以很容易地從文本字符串中提取數字。

1。 點擊 庫工具 > 文本 > 提取文字 啟用該功能。

2。 在裡面 提取文字 對話框，請進行以下設置。

備註： Check the 作為公式插入 對話框左下角的框會將結果作為公式插入到結果單元格中。 當引用的單元格的值更改時，結果將自動更新。

3。 在裡面 提取文字 對話框，選擇一個空白單元格以輸出提取的文本，然後單擊 確定。

然後從文本字符串中任何位置提取數字。 看截圖：