正在阅读：excel混合文本提取数字excel混合文本提取数字

　　我们可以通过快捷键提取，也可以通过word文档的替换功能来提取，还可以通过代码提取。我们要根据数据复杂程度来选择提取方式，将混合文本中的数字提取到单独一列上。具体介绍如下：

　　方法一：规律提取

　　1、【Ctrl】+【E】键可以同步规律操作，如A列是混合文本，我们要将数字提取到B列。

　　2、在B1单元格填写A1单元格中的数字，然后选中B列所有对应的单元格，同时按下【Ctrl】+【E】键，完成快速填充，可以发现A列文本中的数据已经被提取到B列了。

　　方法二：替换提取

　　1、打开excel文档，将A列的混合文本复制到Word文档中，粘贴方式为【链接与使用目标格式】；

　　2、同时按下【Ctrl】+【H】键或是点击【开始】-【编辑】-【替换】，在弹出的【查找和替换】窗口中的查找内容框输入【[!0-9]】（通配符【[!0-9]】表示0-9之间的数字，前面【!】表示非的意思，非0-9，非数字的内容全部被替换，只留下数字），【替换为】一栏不填；

　　3、点击窗口下方的【更多】，勾选【使用通配符】，然后点击【全部替换】。这时表格内的内容就只剩下数字；

　　4、将Word文档内整列数字复制回Excel单元格就可以了。

　　方法三：代码提取

　　1、打开excel文档，B列是混合文本，我们要将数字提取到C列。

　　2、在工具栏上找到【开发工具】-【visual basic】，鼠标右键点击【ThisWorkbook】-【插入】-【模块】；

　　3、将以下代码复制到右侧的空白框中：

　　【Sub 获取座位数（）

　　Dim obj As Object

　　Dim a As Integer, i As Integer, j As Object, objs As Object

　　re = “\d+”

　　Set obj = CreateObject（“VBScript.RegExp”）

　　With obj

　　.Global = True

　　.Pattern = re

　　End With

　　For a = 2 To Cells（Rows.Count, 1）。End（xlUp）。Row

　　Set objs = obj.Execute（Cells（a, 2））

　　i = 0

　　For Each j In objs

　　i = j + i

　　Next

　　Cells（a, 3） = i

　　Next

　　MsgBox “已完成”

　　End Sub】

　　4、点击左上角的Excel图标回到表格页面，点击菜单栏的【开发工具】-【宏】，在弹出的菜单中点击【执行】-【确定】。这时B列的数字就被提取到C列。