Excel 将单个单元格数字求和

最新推荐文章于 2022-08-24 16:53:47 发布

iteye_20024

最新推荐文章于 2022-08-24 16:53:47 发布

阅读量857

点赞数

分类专栏： excel 文章标签： excel 正则表达式

本文链接：https://blog.csdn.net/iteye_20024/article/details/82613759

版权

excel 专栏收录该内容

1 篇文章 0 订阅

订阅专栏

首先自定义正则表达式函数

Function ExStr(Str As String, Parttern As String, ActionID As Integer, Optional RepStr As String = "")
Dim regex As Object
Set regex = CreateObject("vbscript.regexp")
With regex
.Global = True
.IgnoreCase = True
.MultiLine = True
.Pattern = Parttern
End With
Select Case ActionID
Case 1:
ExStr = regex.Replace(Str, RepStr)
Case 2:
ExStr = regex.test(Str)
Case 3:
Dim matches As Object
Set matches = regex.Execute(Str)
For Each Match In matches
ExStr = ExStr + CInt(Match.Value)
Next
End Select
End Function

加入宏 mudule中

ex:DALIAN CHINA: 12#LOS ANGELES CA: 1#DALIAN CHINA: 2#SAN DIEGO: 1#JINHE: 1#LOS ANGELES CA: 1#

formula: =ExStr($D3,"\d+",3)