Question

求高手帮写在EXCEL中去汉字、字母、符号计算的宏代码

Answer 1

亲，这个用VBA编写一个自定义函数可以解决。代码如下。

 

打开你的Excel文件，按“Alt+F11”打开VBA编辑窗口，然后在左侧空白处点击右键，“插入”，“模块”。右侧空白处粘贴下面的代码。关闭VBA窗口。

然后在B2输入：=QH(A2)

下拉公式。

 

 

Function QH(rng As Range) As Double
Dim regex As Object
Set regex = CreateObject("VBScript.RegExp")
Dim s As String
Dim sArr
Dim i As Long
Dim rg As Range
For Each rg In rng
    s = rg.Value
    With regex
        .Global = True
        .Pattern = "[^0-9]"
        s = .Replace(s, "☆")
    End With
    sArr = Split(s, "☆")
    For i = 0 To UBound(sArr)
        If IsNumeric(sArr(i)) Then QH = QH + --sArr(i)
    Next
    Erase sArr
Next
Set regex = Nothing
End Function

Answer 2

应该是去掉汉字,字母,计算符号不能去掉
用正则吧

追问

大神帮忙写一下啊，谢谢！

Answer 3

格式都是一样的吗？都是“物品”后面跟金额然后跟个+号吗？如果格式是这样的话用公式就可以了。还有单项最高金额是多少？

追问

怎么用？

追答

=SUMPRODUCT(TEXT(LEFT(TEXT(MID(A1&"a",COLUMN(1:1),ROW($1:$99)),),ROW($1:$99)-1),"[];;0;!0")*ISERR(-MID(A1,COLUMN(1:1)-1,2)))