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

MHanys

~~~~~~~~~~~~~

Qs18

ba3259878266 发表于 2024-9-4 11:04
老师 放到其它表格 还是出错 什么原因

您的Excel的版本是03版，最大行号是65536

Qs18

1. Sub 按钮1_Click()
   
2. Call qs
   
3. End Sub
   
4. Function SumNumbersInString(inputString As String) As Double
   
5.     Dim regex As Object
   
6.     Set regex = CreateObject("VBScript.RegExp")
   
7.    
   
8.     ' 正则表达式模式，匹配所有数字
   
9.     regex.Pattern = "\d+(\.\d+)?" ' 匹配整数和小数
   
10.     regex.Global = True ' 匹配所有出现的数字
    
11.    
    
12.     Dim matches As Object
    
13.     Set matches = regex.Execute(inputString)
    
14.    
    
15.     Dim total As Double
    
16.     total = 0
    
17.    
    
18.     ' 遍历所有匹配的数字并累加
    
19.     Dim match As Object
    
20.     For Each match In matches
    
21.         total = total + CDbl(match.Value)
    
22.     Next match
    
23.    
    
24.     ' 返回总和
    
25.     SumNumbersInString = total
    
26.    
    
27.     ' 清理
    
28.     Set regex = Nothing
    
29.     Set matches = Nothing
    
30. End Function
    
31. 
    
32. Sub qs()
    
33.     Dim testString As String
    
34. With Sheet3
    
35. arr = .Range("k3:k" & .Cells(Rows.Count, "k").End(3).Row)
    
36. For i = 1 To UBound(arr)
    
37.     If arr(i, 1) <> Empty Then
    
38.     testString = arr(i, 1)
    
39.     ' 调用函数并显示结果
    
40.     Dim result As Double
    
41.     result = SumNumbersInString(testString)
    
42.     arr(i, 1) = result
    
43.     End If
    
44. Next
    
45. .Range("m3:m10000").ClearContents
    
46. .Range("m3").Resize(UBound(arr), 1) = arr
    
47. End With
    
48. End Sub
    

复制代码

Qs18

再试试看..........

Qs18

再试试看.....

ba3259878266

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

老师 谢谢 收到 达到效果

ba3259878266

Qs18 发表于 2024-9-4 13:26
您的Excel的版本是03版，最大行号是65536

师傅 你好 遇到这样一个问题 请教你说明一下 我是小白

原来你写的AAAAA里面C列整理后 在G列显示 很好  现在我想复制你的代码  在BBBBB使用  就是F列整理在H列显示  出错 不能使用  错在哪里 怎样解决 麻烦你了  有空的话我弄一下  最好是有个说明  学习了  谢谢

jjmysjg

ba3259878266 发表于 2024-9-17 00:57
师傅 你好 遇到这样一个问题 请教你说明一下 我是小白

原来你写的AAAAA里面C列整理后 在G列显示 很好 ...

1、arr = .Range("C3:C" & .Cells(Rows.Count, "C").End(3).Row)
C列是空置。C改F
2、With Sheet3改With Sheet4
不懂VBA,QS大师的一通神讲解，懂了这两点。

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 ...

老师  谢谢你 解决了  感谢

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 ...

With Sheet3改With Sheet4    为什么不是改With Sheet5 或者With Sheet6  能解译一下吗 谢谢