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

grf1973

用js试试。。。。。。

ykcbf1100

cjc209 发表于 2025-11-3 16:20
你的表达式让人脑壳痛

哈哈，你说得也对。

yannierr

谢谢ykcbf1100老师，谢谢cjc209老师，代码运行成功的，但有些为什么没识别出来，还请帮忙看看

yannierr

谢谢ykcbf1100老师，谢谢cjc209老师，代码在小程序中运行成功，但有部分却没捕获到，能帮忙看看吗？

yannierr

谢谢ykcbf1100老师，谢谢cjc209老师，为什么部分没捕获到，还请帮忙看看

ykcbf1100

yannierr 发表于 2025-11-3 17:00
谢谢ykcbf1100老师，谢谢cjc209老师，代码运行成功的，但有些为什么没识别出来，还请帮忙看看

改好了。。。

ykcbf1100

1. Sub ykcbf()   '//2025.11.3
   
2.     r = Cells(Rows.Count, 1).End(xlUp).Row
   
3.     For i = 2 To r
   
4.         txt = Cells(i, 1).Value
   
5.         Set reg = CreateObject("VBScript.RegExp")
   
6.         reg.IgnoreCase = True
   
7.         reg.Global = False
   
8.         reg.Pattern = "^\s*\d+[.、]\s*(.*?)([0-9]+(?:\s*元)?)\s*$"
   
9.         If reg.Test(txt) Then
   
10.             Set matches = reg.Execute(txt)
    
11.             namePart = Trim(matches(0).SubMatches(0))
    
12.             amountPart = Trim(matches(0).SubMatches(1))
    
13.             Cells(i, 3).Value = namePart
    
14.             Cells(i, 4).Value = amountPart
    
15.         Else
    
16.             reg.Pattern = "^\s*\d+[.、]\s*(.*)$"
    
17.             If reg.Test(txt) Then
    
18.                 Set matches = reg.Execute(txt)
    
19.                 namePart = Trim(matches(0).SubMatches(0))
    
20.                 Cells(i, 3).Value = namePart
    
21.             End If
    
22.         End If
    
23.     Next
    
24. End Sub
    
25. 
    

复制代码

cjc209

yannierr 发表于 2025-11-3 17:00
谢谢ykcbf1100老师，谢谢cjc209老师，代码运行成功的，但有些为什么没识别出来，还请帮忙看看

你的数据太随意了 还是要规范些 正则匹配是以你的具体文本 表达式是会随之更改才行的
改好了

cjc209

你试试看看

cjc209

ykcbf1100 发表于 2025-11-3 17:10
改好了。。。

多次匹配 可以一次性匹配完成
"([一-龥 ]+)[.。 ]*(\d+元?$)?" 足够了