操作步骤
(1)vba中新建一个模块
写入代码
Sub reg()
Dim strTxt As String
Dim strkey As String
Dim resuNum As Integer
Dim objRegEX As Object
Dim objMatch As Object
Dim objMH As Object
'正则匹配开始
Set objRegEX = CreateObject("VBScript.RegExp")
objRegEX.Global = True
objRegEX.Pattern = "[0-9]+"
strTxt = Cells(1, 1)
Set objMatch = objRegEX.Execute(strTxt)
If objMatch.Count > 0 Then
For Each objMH In objMatch
strkey = objMH
resuNum = resuNum + Val(strkey)
Next
End If
'正则匹配结束
'向文件中保存开始
Dim fnsave
fnsave = Application.GetSaveAsFilename("", "TXT(*.txt),*.txt")
If fnsave = False Then Exit Sub
With CreateObject("ADODB.Stream")
.Type = 2
.Charset = "UTF-8"
.Open
.WriteText resuNum, 0
.Savetofile fnsave, 2
.Close
End With
'向文件中保存结束
End Sub
(3)新建一个button
(4)指定宏
(5)测试结果