正则提取数字进行累加

ccbbww · 发表于 2023-5-11 19:14

将表格中b列字符中数字提取出来进行累加，放到d列，b列中日期提取放到陈列

liulang0808 · 发表于 2023-5-11 19:40

在原来的基础上微调

三分醉，七分醒 · 发表于 2023-5-11 20:02

Sub text()
Set reg = CreateObject("Vbscript.Regexp")
reg.Global = True
reg.Pattern = "\d+月\d+日|\d+月|\d+\.*\d+"

arr = Sheet3.Range("a1").CurrentRegion
For i = 2 To UBound(arr)
Set y = reg.Execute(arr(i, 2))
Sheet3.Cells(i, 3) = y(0)
For m = 1 To y.Count - 1
s = s + y(m) * 1
Next m
Sheet3.Cells(i, 4) = s
s = 0
Next
End Sub

ccbbww · 发表于 2023-5-11 22:06

三分醉，七分醒发表于 2023-5-11 20:02
Sub text()
Set reg = CreateObject("Vbscript.Regexp")
reg.Global = True

飞常感谢帮助，问题圆满解决

DevilW · 发表于 2023-5-11 22:46

blackttea1 · 发表于 2023-5-12 09:28

学习啦，谢谢

smiletwo · 发表于 2023-5-12 11:55

grf1973 · 发表于 2023-5-12 15:58

也来凑个热闹

CNS1993 · 发表于 2023-5-12 16:45

grf1973 发表于 2023-5-12 15:58
也来凑个热闹

运行没通过。

grf1973 · 发表于 2023-5-12 22:45

CNS1993 发表于 2023-5-12 16:45
运行没通过。

检查一下拼写

		自动登录	找回密码
密码			免费注册

正则提取数字进行累加

评分