利用VBA统计出D列各行的总数

Qs18

试试..........

Qs18

试试.........

ba3259878266

Qs18 发表于 2024-9-3 15:58
试试.........

谢谢老师 太好用了  辛苦你了  还差一点  每次执行时 需要清除上次的数据  怎样设置

Qs18

加一句清空的代码就可以了

Qs18

Sub 按钮1_Click()
Call qs
End Sub
Function SumNumbersInString(inputString As String) As Double
    Dim regex As Object
    Set regex = CreateObject("VBScript.RegExp")
   
    ' 正则表达式模式，匹配所有数字
    regex.Pattern = "\d+(\.\d+)?" ' 匹配整数和小数
    regex.Global = True ' 匹配所有出现的数字
   
    Dim matches As Object
    Set matches = regex.Execute(inputString)
   
    Dim total As Double
    total = 0
   
    ' 遍历所有匹配的数字并累加
    Dim match As Object
    For Each match In matches
        total = total + CDbl(match.Value)
    Next match
   
    ' 返回总和
    SumNumbersInString = total
   
    ' 清理
    Set regex = Nothing
    Set matches = Nothing
End Function

Sub qs()
    Dim testString As String
With Sheet3
arr = .Range("g3:g" & .Cells(Rows.Count, "g").End(3).Row)
For i = 1 To UBound(arr)
    If arr(i, 1) <> Empty Then
    testString = arr(i, 1)
    ' 调用函数并显示结果
    Dim result As Double
    result = SumNumbersInString(testString)
    arr(i, 1) = result
    End If
Next
.Range("h3").Resize(UBound(arr)).ClearContents
.Range("h3").Resize(UBound(arr)) = arr
End With
End Sub

Qs18

再试试..........

Qs18

再试试..........

ba3259878266

Qs18 发表于 2024-9-3 19:23
再试试..........

老师  谢谢  有出错

zhangcheng6688

正则表达式，留底

Qs18

ba3259878266 发表于 2024-9-3 22:07
老师  谢谢  有出错

我再看看...........