关键字的小写数字转大写

ykcbf1100

用正则试一下吧。

ykcbf1100

参与一下。。。

1. Sub ykcbf()    '//2024.9.13
   
2.     Set reg = CreateObject("VBScript.Regexp")
   
3.     Set d = CreateObject("Scripting.Dictionary")
   
4.     zrr = [{0,"零";1,"壹";2,"贰";3,"叁";4,"肆";5,"伍";6,"陆";7,"柒";8,"捌";9,"玖"}]
   
5.     For i = 1 To UBound(zrr)
   
6.         s = CStr(zrr(i, 1))
   
7.         d(s) = zrr(i, 2)
   
8.     Next
   
9.     With reg
   
10.         .Global = False
    
11.         .IgnoreCase = True
    
12.         .pattern = "(\d+)(\D+)"
    
13.     End With
    
14.     With Sheets("Sheet1")
    
15.         r = .Cells(Rows.Count, 1).End(3).Row
    
16.         arr = .[a1].Resize(r, 3)
    
17.         For i = 2 To UBound(arr)
    
18.             s = arr(i, 1)
    
19.             Set mh = reg.Execute(s)
    
20.             num = d(Right(mh(0).submatches(0), 1))
    
21.             st = mh(0).submatches(1)
    
22.             arr(i, 3) = num & st
    
23.         Next
    
24.         .[c1].Resize(r, 1) = Application.Index(arr, 0, 3)
    
25.     End With
    
26.     MsgBox "OK！"
    
27. End Sub
    

复制代码