求助用正则提取名字与金额

yannierr

请老师给我用正则代码写下，我写的不对，也想不出来了，谢谢！

ykcbf1100

附件供参考。。。

ykcbf1100

1. Sub ykcbf()   '//2025.11.3
   
2.     Dim reg As Object, matches As Object
   
3.     Dim namePart As String, amountPart As String
   
4.     Dim cell As Range
   
5.     Set reg = CreateObject("VBScript.RegExp")
   
6.     reg.Global = False
   
7.     reg.IgnoreCase = True
   
8.     reg.Pattern = "^\s*\d+[.、]\s*(.*?)([0-9]+(?:\s*元)?)\s*$"
   
9.     r = Cells(Rows.Count, 1).End(xlUp).Row
   
10.     For Each cell In Range("A2:A" & r)
    
11.         If Not IsEmpty(cell) Then
    
12.             If reg.Test(cell.Value) Then
    
13.                 Set matches = reg.Execute(cell.Value)
    
14.                 namePart = Trim(matches(0).SubMatches(0))
    
15.                 amountPart = Trim(matches(0).SubMatches(1))
    
16.                 cell.Offset(0, 2).Value = namePart
    
17.                 cell.Offset(0, 3).Value = amountPart
    
18.             End If
    
19.         End If
    
20.     Next cell
    
21. End Sub
    

复制代码

cjc209

=REGEXP(A2,".*?[一-龥 ]+|\d+元?$")

rym9401

1. =REGEXEXTRACT(A2,"[\pl ]+|\d+.?$",1)

复制代码

cjc209

ykcbf1100 发表于 2025-11-3 16:01
附件供参考。。。

你的表达式写的太复杂了 这样就行了
reg.Pattern = "([一-龥 ]+)(\d+元?$)"

cjc209

ykcbf1100 发表于 2025-11-3 16:01
附件供参考。。。

就是一个分组表达式 前面匹配汉字和空格 后面匹配以数字结尾或者元

cjc209

ykcbf1100 发表于 2025-11-3 16:01
附件供参考。。。

你的表达式让人脑壳痛

cjc209

你的这样就对了

cjc209

这种 公式更简单