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

ba3259878266

jjmysjg 发表于 2024-9-17 18:28
1、arr = .Range("C3:C" & .Cells(Rows.Count, "C").End(3).Row)
C列是空置。C改F
2、With Sheet3改Wit ...

老师 我弄懂了  谢谢

wtzxuexivba

WPS中使用正则表达式：
G2单元格=SUM(--REGEXP(D2,"\d+"))   公式下拉即可

blackttea1

学习啦 ，谢谢

blackttea1

学习啦，谢谢

ba3259878266

杨建营 发表于 2024-9-3 08:27
请楼主参考。

谢谢老师帮忙

ba3259878266

Qs18 发表于 2024-9-4 13:32
再试试看.....

老师你好  用起来才知道  当只有一行数字时 有错误  麻烦你修改一下  谢谢你了

Sub qs()
    Dim testString As String
With Sheet12
arr = .Range("AA3:AA" & .Cells(Rows.Count, "AA").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("AC3:AC10000").ClearContents
.Range("AC3").Resize(UBound(arr), 1) = arr
End With
End Sub

ba3259878266

Qs18 发表于 2024-9-4 13:32
再试试看.....

老师 用起来才知道  当只有一行数字时执行出现错误  为什么 麻烦你检查一下  谢谢老师



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("k3:k" & .Cells(Rows.Count, "k").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("m3:m10000").ClearContents
.Range("m3").Resize(UBound(arr), 1) = arr
End With
End Sub

ba3259878266

杨建营 发表于 2024-9-3 08:27
请楼主参考。

谢谢老师  这个好用  麻烦你了  能设置一下  第二次计算时 清除第一次的数字 可以吗

ba3259878266

Qs18 发表于 2024-9-4 13:32
再试试看.....

老师 你好  45楼的VBA 用起来才知道  当只有一行数字时 计算就错误  怎样解决 谢谢你