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

作者Siluvia修改日期2024-10-31

本教學提供三種方法，協助您輕鬆從 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 為包含您欲提取數字之文字字串的儲存格，請依需求調整。

此時，數字已從指定儲存格的文字字串任意位置成功提取，如上圖所示。

利用 Kutools for Excel 輕鬆從混合字母數字文字字串中提取數字

本節推薦使用 Kutools for Excel 的「提取文本」功能，讓您輕鬆從文字字串中提取數字。

Kutools for Excel 提供超過 300 項進階功能，簡化複雜作業，提升創造力與效率。整合 AI 功能，Kutools 能精準自動化各項任務，讓資料管理輕鬆無負擔。Kutools for Excel 的詳細資訊…… 免費試用……

1. 點選 Kutools > 文字 > 提取文本 以啟用此功能。

2. 在提取文本對話方塊中，請進行下列設定。

2.1) 點選按位置提取分頁（此分頁預設為啟用狀態）；

2.2) 在範圍區段中，點選選取按鈕

按鈕以選取您要提取文本的儲存格範圍；

2.3) 在選項區段中：選取提取數字選項；

2.4) 點選 OK。

在對話方塊中指定選項

注意：勾選對話方塊左下角的作為公式插入勾選核取方塊，即可將結果以公式形式插入儲存格。日後當參照儲存格的數值變更時，結果將自動更新！

3. 在提取文本對話方塊中，選取一個空白儲存格作為提取文字的輸出位置，然後點選 OK。

選取空白儲存格以輸出結果

此時，文字字串中任意位置的數字皆已成功提取。詳情請參閱截圖：

從文字字串的任意位置提取數字

想免費試用此工具 30 天嗎？立即下載，並依照上述步驟操作！

僅保留混合字母數字文字字串中的數字（使用 VBA 程式碼）

下列 VBA 程式碼可協助您從指定區域中移除所有非數字字元，僅保留儲存格內的數字。請依照以下步驟操作：

注意由於程式碼會直接作用於原始範圍，務必事先備份原始資料，以防遺失！

1. 同時按下 Alt+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 鍵執行程式碼，此時將彈出 Kutools for Excel 對話方塊。請選取包含混合字母數字文字字串的範圍（您將僅保留其中的數字），然後點選 OK 按鈕。

用於選取資料清單的 VBA 程式碼

現在所有非數字字元已立即從選取區域中移除，僅保留數字。請參閱截圖：

所有非數字字元皆已移除

最佳 Office 生產力工具

🤖	KUTOOLS AI 助手：基於以下內容徹底革新數據分析：智慧執行｜產生程式碼｜建立自訂公式｜分析資料並產生圖表｜呼叫增強函數……
	熱門功能：尋找、醒目提示或標記重複值｜刪除空白行｜合併列或儲存格而不遺失資料｜不使用公式的四捨五入……
	高級 LOOKUP：多重條件 VLookup ｜多重數值 VLookup ｜跨多個工作表 VLookup ｜模糊查找……
	高級下拉列表：快速建立下拉式清單｜相依式下拉式清單｜多選下拉式清單……
	欄位管理員：新增指定數量的欄位｜移動欄位｜切換隱藏欄位的可見狀態｜比較範圍與欄位……
	精選功能：網格聚焦｜設計視圖｜增強編輯欄｜工作簿與工作表管理員｜資源庫（自動文字）｜日期提取｜合併工作表｜加密／解密儲存格｜依清單傳送電子郵件｜超級篩選｜特殊篩選（篩選粗體儲存格／斜體／刪除線……） ......
	頂尖 15 工具組：12 文字工具（添加文本，刪除特定字符，……）｜ 50+ 圖表類型（甘特圖，……）｜ 40+ 實用公式（基於生日計算年齡，……）｜ 19 插入工具（插入二維碼，從路徑插入圖片，……）｜ 12 轉換工具（金額轉大寫，匯率轉換，……）｜ 7 合併和拆分工具（高級合併行，分割儲存格，……）｜……以及更多