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

本教程提供了三种方法来帮助从Excel中的混合字母数字文本字符串中提取数字。

使用公式从混合的字母数字文本字符串中提取数字
使用VBA代码从混合的字母数字文本字符串中提取数字
使用出色的工具轻松地从混合的字母数字文本字符串中提取数字

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

您可以应用以下公式从Excel文本字符串中的任意位置提取数字。

1.选择一个空白单元格以输出提取的数字，在其中输入以下公式，然后按 输入 键。 然后向下拖动自动填充手柄以将公式应用于其他单元格。

=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应用程序 窗口。

2.在 Microsoft Visual Basic应用程序 窗口中，单击 插页 > 模块。 然后将下面的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 按钮。

现在，所选范围内的所有非数字字符都将被立即删除，仅保留数字。 看截图：

使用 Kutools for Excel 轻松从混合字母数字文本字符串中提取数字

本节推荐 Kutools for Excel 的提取文本实用程序。使用此实用程序，可以轻松处理从文本字符串中提取数字。

1。 点击 库工具 > 文本 > 提取文字 启用该功能。

2.在 提取文字 对话框，请进行以下设置。

2.1）点击 按位置提取 选项卡（默认情况下启用此选项卡）；

2.2）在 范围 部分，点击 按钮选择要从中提取文本的单元格范围；

2.3）在 附加选项 部分：选择 提取号码 选项;

2.4）点击 确定。

请注意： 访问 作为公式插入 对话框左下角的框会将结果作为公式插入到结果单元格中。 当引用的单元格的值更改时，结果将自动更新。

3.在 提取文字 对话框中，选择一个空白单元格以输出提取的文本，然后单击“确定”。 确定。

然后从文本字符串中任何位置提取数字。 看截图：

最佳办公生产力工具

🤖	Kutools 人工智能助手：基于以下内容彻底改变数据分析： 智能执行   |  生成代码  |  创建自定义公式  |  分析数据并生成图表  |  调用 Kutools 函数...
	热门特色: 查找、突出显示或识别重复项   |  删除空白行   |  合并列或单元格而不丢失数据   |   不使用公式进行四舍五入 ...
	超级查询: 多条件VLookup  |   多值VLookup  |   跨多个工作表的 VLookup   |   模糊查询 ....
	高级下拉列表: 快速创建下拉列表   |  依赖下拉列表   |  多选下拉列表 ....
	列管理器: 添加特定数量的列  |  移动列  |  切换隐藏列的可见性状态  |  比较范围和列 ...
	特色功能: 网格焦点   |  设计图   |   大方程式酒吧   |  工作簿和工作表管理器   |  资源库 （自动文本）   |  日期选择器   |  合并工作表   |  加密/解密单元格   |  按列表发送电子邮件   |  超级筛选   |   特殊过滤器 （过滤粗体/斜体/删除线...）...
	前 15 个工具集:  12 文本 工具 (添加文本, 删除字符，...）   |   50+ 图表 类型 (甘特图，...）   |   40+ 实用 公式 (根据生日计算年龄，...）   |   19 插入 工具 (插入二维码, 从路径插入图片，...）   |   12 转化 工具 (小写金额转大写, 货币兑换，...）   |   7 合并与拆分 工具 (高级组合行, 分裂细胞，...）   |   ... 和更多

使用 Kutools for Excel 增强您的 Excel 技能，体验前所未有的效率。 Kutools for Excel 提供了 300 多种高级功能来提高生产力并节省时间。  单击此处获取您最需要的功能...

阅读更多 免费下载...

---

Office Tab 为 Office 带来选项卡式界面，让您的工作更加轻松

• 在Word，Excel，PowerPoint中启用选项卡式编辑和阅读，发布者，Access，Visio和Project。
• 在同一窗口的新选项卡中而不是在新窗口中打开并创建多个文档。
• 每天将您的工作效率提高50％，并减少数百次鼠标单击！

阅读更多 免费下载...