正则表达式找不出匹配内容，求解。

浩琛

本人写了代码，找不出问题。请各位大神帮忙解决，为什么正则匹配不到合适字符串。
目标字符串s内容简单:"快递费21200办公费8120"
代码如下，虽然有问题，自己查不出来。请大神帮忙检查。
感谢！
Option Explicit

Sub regexpDemo()

Dim s$, i&

Dim myReg As Object

Dim myMatches As Object, myMatch As Object

i = 1

s = ""

Do While Cells(i, 1) <> ""

    s = s & Cells(i, 1).Value

    i = i + 1

Loop

Set myReg = CreateObject("vbscript.regexp")

myReg.Pattern = "\s*(\w+费)(\d+)\s*"

myReg.Global = True

Set myMatches = myReg.Execute(s)

MsgBox myMatches.Count

i = 1

For Each myMatch In myMatches

    Cells(i, 2) = myMatch.submatches(0)
   
    Cells(i, 3) = myMatch.submatches(1)
   
    i = i + 1

Next myMatch

End Sub

正则表达式测试软件可以找出子字符串，但是VBA中找不出。请大神帮忙看下，谢谢！

无敌小猪猪

笨办法写2个Pattern，一个取中文，一个取数字

liulang0808

楼主要处理的字符串就是汉字跟数字的组合吗？
"\s*(\w+费)(\d+)\s*"
红色部分换一下吧

zpy2

公式

=webservice("http://e.anyoupin.cn/eh3/?preg_match~(\w+费)(\d+)~快递费21200~1")


=webservice("http://e.anyoupin.cn/eh3/?preg_match~(\w+费)(\d+)~快递费21200~2")

DevilW

\w+费：表示 “费” 之前匹配 1 个 或 多个  [ A-Za-z0-9_ ]字符，费 之前是汉字根本不能匹配上

zxsea_7426

liulang0808 发表于 2023-6-1 16:25
楼主要处理的字符串就是汉字跟数字的组合吗？
"\s*(\w+费)(\d+)\s*"
红色部分换一下吧

服，牛逼克拉斯

cyq4896

"[一-龢]+\d+"

cyq4896

这样改试试

ggmmlol

简简单单：
"(\D+)(\d+)"

全党

ggmmlol 发表于 2023-6-1 22:51
简简单单：
"(\D+)(\d+)"

赞