数字后面加空格

540437111

查找有数字的数据内容
如果内容有数字 且 数字后面没有空格  那么
就在数字后面加上2个空格

liulang0808

供参考。。。。。。

540437111

liulang0808 发表于 2023-6-1 14:33
供参考。。。。。。

这个写的可以，完美！ 感谢！

ericxzhou

1. Sub Test()
   
2.     Dim i%, arr, str$
   
3.     With CreateObject("vbscript.regexp")
   
4.         .Pattern = "(\d+)[A-Z]+"
   
5.         .Global = True
   
6.         arr = [b2].CurrentRegion
   
7.         For i = 2 To UBound(arr)
   
8.             If .Execute(arr(i, 1)).Count > 0 Then
   
9.                 str = .Execute(arr(i, 1))(0).submatches(0)
   
10.                 arr(i, 1) = Replace(arr(i, 1), str, str & "  ")
    
11.             End If
    
12.         Next
    
13.     End With
    
14.     [c1].Resize(UBound(arr), UBound(arr, 2)) = arr
    
15. End Sub

复制代码