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

Author Siluvia Last modified 2025-08-23

本教程提供三種方法，幫助您從 Excel 中的混合字母數字字串中提取數字。

extract numbers from text strings

使用公式從混合的字母數字字串中提取數字
 使用一款出色的工具輕鬆從混合的字母數字字串中提取數字
使用 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),"")

Extract numbers from text strings with formula

注意：在公式中，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) 點擊「確定」。

specify the options in the dialog box

注意：勾選對話框左下角的「作為公式插入」框會將結果作為公式插入到結果單元格中。當引用單元格的值發生變化時，結果將自動更新。

3. 在「提取文本」對話框中，選擇一個空白單元格以輸出提取的文本，然後點擊「確定」。

select a blank cell to output the result

然後，文字字串中任何位置的數字都被提取出來。請參見截圖：

numbers from any position in a text string are extracted

如果您想免費試用（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 對話框，請選擇包含要保留數字的混合字母數字字串的範圍，並點擊「確定」按鈕。

vba code to select the data list

現在，所選範圍內的所有非數字字符都立即被刪除，並且只保留了數字。請參見截圖：

all nonnumeric characters are removed

最佳 Office 生產力工具

🤖	Kutools AI 助手：以智能執行為基礎，革新數據分析｜生成程式碼｜創建自訂公式｜分析數據並生成圖表｜調用 Kutools 增強函數…
	熱門功能：查找、選取項目的背景色或標記重複值｜刪除空行｜合併列或單元格且不遺失數據｜四捨五入（免公式）...
	高級 LOOKUP：多條件 VLookup｜多值 VLookup｜多表查找｜模糊查找...
	高級下拉列表：快速創建下拉列表｜依賴型下拉列表｜多選下拉列表...
	列管理器：添加指定數量的列｜移動列｜切換隱藏列的顯示狀態｜比較區域及列...
	精選功能：網格聚焦｜設計檢視｜增強編輯欄｜工作簿及工作表管理器｜資源庫（快捷文本）｜日期提取器｜合併資料｜加密/解密儲存格｜按列表發送電子郵件｜超級篩選｜特殊篩選（篩選粗體/傾斜/刪除線...）...
	15 大工具集：12 項文本工具（添加文本、刪除特定字符…）｜50+ 儀表類型（甘特圖等）｜40+ 實用公式（基於生日計算年齡等）｜19 項插入工具（插入QR码、根據路徑插入圖片等）｜12 項轉換工具（金額轉大寫、匯率轉換等）｜7 項合併與分割工具（高級合併行、分割儲存格等）｜...及更多