修法布施得聪明智慧，多分享让生霰翌倡戈活更美好。上回分享了《Excel数字、数字图形、数字文字混杂怎样求和》，如果是文本后面数字或多个数字无法用这方法处理。工作蒗钰妒蟥中经常遇到大量文本中有大量数字，要提取数字求和，如下图，一般方法是一一列出来再求和，很费时费力。下面介绍两种方法能够秒算出结果来。
工具/原料
MicrosoftOfficeExcel2007
ExcelVBA
方法一：宏处理
1、首先打开MicrosoftOfficeExcel2007，新建文档并保存文件名《Excel怎样批量提取文本中数字求和.xlsm》（演示文件，下面代码复制到能运行宏的工作簿都可以）如图。
2、然后按下快捷键ALT+F11打开VBE（宏）编辑界面，然后点菜单栏【插入】下拉中列表中点【模块（M）】如图。
3、然后插入了一个模块1，在代码框中复制如下代码：Sub选数据批量提取数字求和(拘七呷憎)'2020-8-1022:14:19DimmyrAsRange,myrs帆歌达缒AsRange,mAsString,sn,iSetmyrs=SelectionForEachmyrInmyrsm=myr.Textsn=0WithCreateObject("VBSCRIPT.REGEXP").Pattern="-[0-9]+(\.[0-9]*)?|[0-9]+(\.[0-9]*)?".Global=TrueIf.Test(m)ThenForEachiIn.Execute(m)sn=sn+Val(i)NextiElsesn="无数字"EndIfEndWithmyr.Offset(0,1).Value=snNextmyrEndSub
4、以上操作动态过程如下：
5、回到工作表窗口，首先选原数据表，然后运行【选数据批量提取数字求和】宏（菜单栏中点【视图】中下列表中【宏】列表【查看宏(V)】打开宏对方框，选该宏名，执行），在选单元格后一列输出求和结果，运行过程如下图。
方法二：自定义函数TEXTSUM
1、按下快捷键ALT+F龀音孵茧11打开VBE（宏）编辑界面，在【模块1】右边代码框【选数据批量提取数字求和】宏沪枭诽纾代码后面复制下面代码：FunctionTEXTSUM(mm)'2020-8-1022:24:12Dimmr,mAsString,sn,iOnErrorResumeNexti=0ForEachmrInmmi=i+1Ifi=1Thenm=mr.TextElsem=m&"@"&mr.TextEndIfNextmrIfErr.Number<>0Thenm=mmEndIfErr.Clearsn=0WithCreateObject("VBSCRIPT.REGEXP").Pattern="-[0-9]+(\.[0-9]*)?|[0-9]+(\.[0-9]*)?".Global=TrueIf.Test(m)ThenForEachiIn.Execute(m)sn=sn+Val(i)NextiElsesn="无数字"EndIfEndWithTEXTSUM=snEndFunction
2、函数TEXTSUM功能：文本中数据数字求和。语法:TEXTSUM(range)range为单元格或单元格区域和文本。
3、函数TEXTSUM使用公式说明（结果）=TEXTSUM(A1)-0.57=TEXTSUM(A2)-0.46=TEXTSUM(A1:A2)-1.03=TEXTSUM("a1b2c3")6
4、如果觉得这篇经验帮到了您，请点击下方的“投票点赞"或者“收藏”支持我！还有疑问的话可以点击下方的“我有疑问”，谢谢啦！