这个正则式为啥只显示第1个数字

gxgjack · 发表于 2024-9-19 10:37

Sub 长度()
Dim 正则, i, 字符串, 结果集合
字符串 = Range("p" & 5).Value
Set 正则 = CreateObject("Vbscript.regexp")
正则.Pattern = "\d"
正则.Global = True

Set 结果集合 = 正则.Execute(字符串)
If 结果集合.Count > 0 Then Range("u" & 5).Value = 结果集合(0)

Set 正则 = Nothing
Set 结果集合 = Nothing
End Sub

limonet · 发表于 2024-9-19 11:53

结果集合(0)第一个，结果集合(1)是第二个，依此类推。

usedrange · 发表于 2024-9-19 12:25

\d表示一个数字，要表示多个数字可以用\d+

gxgjack · 发表于 2024-9-19 12:46

limonet 发表于 2024-9-19 11:53
结果集合(0)第一个，结果集合(1)是第二个，依此类推。

那如何表示所有提取数字显示在一个单元格里呢

limonet · 发表于 2024-9-19 13:05

gxgjack 发表于 2024-9-19 12:46
那如何表示所有提取数字显示在一个单元格里呢

把原始文本内容发出来。

大灰狼1976 · 发表于 2024-9-19 13:13

Sub 长度()
Dim 正则, 字符串
字符串 = Range("p" & 5).Value
Set 正则 = CreateObject("Vbscript.regexp")
正则.Pattern = "[^\d]"
正则.Global = True
Range("u" & 5).Value = 正则.Replace(字符串, "")
Set 正则 = Nothing
End Sub

复制代码

ykcbf1100 · 发表于 2024-9-19 14:19

换个思路，把非数字的删除，留下的就全是数字了。

gxgjack · 发表于 2024-9-19 17:05

limonet 发表于 2024-9-19 13:05
把原始文本内容发出来。

度公差上限(mm):10;定尺长度公差下限(mm):-10

limonet · 发表于 2024-9-19 17:10

问一下说一下，还是一次表述清楚。
这是提取2组数字，=REGEXEXTRACT(A1,"-?\d+",1)

wang-way · 发表于 2024-9-19 20:34

附件呢？在哪里呢？

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

[求助] 这个正则式为啥只显示第1个数字

评分