VBA改写数字 加逗号

laoau138

VBA改写数字 加逗号

datongye

1. Sub 置换()
   
2. m = Sheets(1).Cells(65536, 2).End(xlUp).Row
   
3. Set reg = CreateObject("VBSCRIPT.REGEXP")
   
4. With reg
   
5.   .Global = True
   
6.   .Pattern = "(^| )(\d)(?!\d)"
   
7.   For i = 1 To m
   
8.     ss = Sheets(1).Cells(i, 2)
   
9.     ss = .Replace(ss, "$10$2")
   
10.     Sheets(1).Cells(i, 3) = VBA.Replace(ss, " ", ",")
    
11.   Next i
    
12. End With
    
13. Set reg = Nothing
    
14. End Sub

复制代码