老师请帮忙用vba计算，谢谢

qdchyq

老师请帮忙用vba计算，谢谢

shiruiqiang

2句话？

qdchyq

很多，举个例子，谢谢老师

沈默00

附件说明一下计算什么？模拟下需要的结果

gwjkkkkk

计算合计吗？没看出逻辑来。。。

ykcbf1100

用正则试一下。

ykcbf1100

参与一下。。。

1. Sub ykcbf()  '//2024.5.7
   
2.     Set reg = CreateObject("VBScript.Regexp")
   
3.     With reg
   
4.         .Pattern = "[一-龢]+"
   
5.         .Global = True
   
6.     End With
   
7.     Sum = 0
   
8.     r = Cells(Rows.Count, 1).End(3).Row
   
9.     For i = 1 To r
   
10.         st = Split(Cells(i, 1), "，")
    
11.         For x = 0 To UBound(st)
    
12.           Sum = Sum + Val(reg.Replace(st(x), ""))
    
13.         Next
    
14.     Next
    
15.     [f2] = Sum
    
16.     MsgBox "合计：" & Sum
    
17. End Sub
    

复制代码

qdchyq

ykcbf1100 发表于 2024-5-7 19:33
参与一下。。。

谢谢老师帮忙，老师若没有逗号呢

qdchyq

ykcbf1100 发表于 2024-5-7 19:33
参与一下。。。

老师若没有逗号呢

ykcbf1100

qdchyq 发表于 2024-5-8 09:41
老师若没有逗号呢

那就这样改一下。