excel混合文本提取数字

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

  具体介绍如下：　　方法一：规律提取　　1、【Ctrl】+【E】键可以同步规律操作，如A列是混合文本，我们要将数字提取到B列。　　2、在B1单元格填写A1单元格中的数字，然后选中B列所有对应的单元格，同时按下【Ctrl】+【E】键，完成快速填充，可以发现A列文本中的数据已经被提取到B列了。  

  　　方法二：替换提取　　1、打开文档，将A列的混合文本复制到Word文档中，粘贴方式为【链接与使用目标格式】；　　2、同时按下【Ctrl】+【H】键或是点击【开始】-【编辑】-【替换】，在弹出的【查找和替换】窗口中的查找内容框输入【[!0-9]】（通配符【[!0-9]】表示0-9之间的数字，前面【!】表示非的意思，非0-9，非数字的内容全部被替换，只留下数字），【替换为】一栏不填；　　3、点击窗口下方的【更多】，勾选【使用通配符】，然后点击【全部替换】。这时表格内的内容就只剩下数字；　　4、将Word文档内整列数字复制回Excel单元格就可以了。  

  　　方法三：代码提取　　1、打开excel文档，B列是混合文本，我们要将数字提取到C列。　　2、在工具栏上找到【开发工具】-【visualbasic】，鼠标右键点击【ThisWorkbook】-【插入】-【模块】；　　3、将以下代码复制到右侧的空白框中：　　【Sub获取座位数（）　　DimobjAsObject　　DimaAsInteger,iAsInteger,jAsObject,objsAsObject　　re=“\d+”　　Setobj=CreateObject（“VBScript.RegExp”）　　Withobj　　.Global=True　　.Pattern=re　　EndWith　　Fora=2ToCells（Rows.Count,1）。  

  End（xlUp）。Row　　Setobjs=obj.Execute（Cells（a,2））　　i=0　　ForEachjInobjs　　i=j+i　　Next　　Cells（a,3）=i　　Next　　MsgBox“已完成”　　EndSub】　　4、点击左上角的Excel图标回到表格页面，点击菜单栏的【开发工具】-【宏】，在弹出的菜单中点击【执行】-【确定】。  

  这时B列的数字就被提取到C列。