Question

利用VBA如何计算一个单元格中所有的（）里的数字的总和（请帮忙）

03街道：01(74)、02(74)、03(58)、04(114)、05(112)、06(57)、07(81)、
04街道：01(61)、02(117)、03(170)、04(148)、05(74)、06(127)、07(175)、08(173)、05街道：01(221)、02(128)、03(92)、04(53)、
06街道：01(79)、02(152)、03(117)、04(77)、05(215)、06(119)、07(97)、
如上面的格式，它们在一个合并的单元格中，如何计算里面所有（）里的数字之和

Answer 1

假如它们所在的单元格是A1，那么在A2显示其和值，程序如下：
Sub lxx()
For i = 1 To Len(Cells(1, 1))
a = 0
If Mid(Cells(1, 1), i, 1) = "(" Then
For j = 1 To Len(Cells(1, 1)) - i
If Mid(Cells(1, 1), i + j, 1) <> ")" Then
a = a & Mid(Cells(1, 1), i + j, 1)
Else: Exit For
End If
Next
b = b + Val(a)
End If
Next
Cells(2, 1).Value = b
End Sub

Answer 2

可以先分列，在用函数

追问

不好意思，我希望用VBA自动实现

追答

呵呵，找个高手解决吧

Answer 3

最好发个表格图片，数字之和放在那个单元格中？