这个函数名为 ExtractNumbers，在每次提取到数字时判断接下来的一个字符是否是数字，如果不是则在结果字符串后面添加一个逗号。最后将 result 返回给函数调用者。
以下是一个使用该函数的示例：
=ExtractNumbers("Hello123World456") '此处括号内可以直接引用含有数字的文本单元格这个公式将会返回字符串 "123,456"。
需要注意的是，此函数仍然不能处理负号、小数点等特殊字符。如果需要处理这些情况，则需要修改函数代码或编写其他自定义函数。
VBA自定义函数提取文本中的数字
Function ExtractNumbers(str As String) As String Dim i As Integer Dim result As String For i = 1 To Len(str) If IsNumeric(Mid(str, i, 1)) Then result = result & Mid(str, i, 1) If Not IsNumeric(Mid(str, i + 1, 1)) And i < Len(str) Then result = result & "," End If End If Next i ExtractNumbers = resultEnd Function
作者最新文章
教育TOP
- 1 “全家都没案底,为何卡我”,工作人员调出浏览记录,大学生愣住
- 2 “18cm,谁受得了啊”,大学女新生晒出宿舍床,隔着屏幕感到无助
- 3 山东车祸,该反省的不应是家长吗?是谁情绪发泄让学校选择关校门
- 4 江苏:几百位学子撕录取书,并放弃报到,院校:现在开不了学!
- 5 大学生一天伙食费仅90元,家长还嫌多?消费观念差异引发热议!
- 6 学生购买“军阀服”充当军训服,校长后悔了:不该让学生自行购买
- 7 全国13所大学出现0投档!无法完成招生任务,实属罕见!
- 8 “18厘米,谁受得了啊”?大学女新生晒物品,隔着屏幕都感到无助
- 9 幼师女大学生奶味打扮,像极9岁小学生,男网友炸锅!
- 10 “断子绝孙”成为现状,官方穷尽方法也无奈了,此局该怎么破?
教育最新文章
- 1 今年民办大学集体“崩盘”,将来是否还值得读?
- 2 安徽严重退步的211大学,曾经全国排名前20,如今存在感很低
- 3 不长记性!重庆大学又出错:中秋放假通知,直接复制粘贴惹笑话
- 4 西部地区新一轮高校排名,川大退居第四,西北大学排名15
- 5 罕见!江苏一本科生从民办高校转入到公办高校,网友:背景不简单
- 6 2024年“掉队”的3所985大学,排名跌出前40,被“双非”超越!
- 7 全国仅6所大学上榜!入选国家101计划,有望冲击双一流
- 8 比富二代更让人崩溃的是“铁三代”,大学生吐槽,让人看清现实
- 9 中美俄人均住房面积对比:美国67㎡,俄罗斯35㎡,中国令人意外
- 10 今年“最惨”的4所211,录取分数不到500分,适合捡漏
热门分类