Question

excel同一单元格有文字和数字怎样提取数字求和，并且没有规律的。

如：广西南宁市1370武汉61孝感市230汉川县等，想提取1370，61，230求和，感谢高手大哥解分忧，谢谢！

Answer 1

这个我用自定义函数,可以做到,用函数太麻烦了.不考虑.自定义函数的用法跟excel 的函数差不多类似,
按ALT+F11打开VBA编辑窗口.在左侧的列表里点鼠标右键选插入模块,粘贴一下代码到右边的窗口并保存,返回工作表就可以使用这个自定义函数了.用法跟excel 的函数差不多类似,
比如A1单元格是你要提取求和的单元格,那么在B1输入=myget(A1) 就可以获得A1里的数字的和.
Function MyGet(Srg As String)
Dim i As Integer
Dim s, MyString As String
Dim Bol As Boolean
Dim arr(1 To 100)

For i = 1 To Len(Srg)
s = Mid(Srg, i, 1)
Bol = s Like "#"
If Bol Then
Do
MyString = MyString & s
i = i + 1
s = Mid(Srg, i, 1)
Bol = s Like "#"
Loop While Bol
a = a + 1
arr(a) = MyString
MyString = ""
End If
Next
For n = 1 To 10
If arr(n) = "" Then Exit For
MyGet = MyGet + arr(n) * 1
Next
End Function