单行文本（多行文本）中的.TextString取出，转化为数字，并求和

crazylsp

可能是没有“[”号或者是个全角的“[”   ?    这里打不出来自己找个粘贴进去。
sset.Item(i).color = acYellow
If   Left(E1, 1) = "["  or "全角的["  Then E1 = Val(Right(Left(E1, Len(E1) - 1), Len(E1) - 2))
else
E1 = Val(Right(Left(E1, Len(E1) ), Len(E1) - 1))
end if
qh=qh+Val(E1)

crazylsp

Dim i As Integer
Dim str, strArray() As String         '定义一个字符串和一个字符串数组
str = "｛\WO.7; 240 }"                '声明字符串
strArray = Split(str, " ")            '将字符串以空格为分界符分成一个字符数组
For i = 0 To UBound(strArray)         '循环输出字符数组中的值
Print strArray(i)
Next

'返回 strArray(0)=｛\WO.7;
      'strArray(1)=240就是你要的
      'strArray(2)=}

guankuiwu

楼上的分享一下啊！