[已解决]VBA用数组一定要用正则替换字符

laoau138

VBA用数组一定要用正则替换字符


第一次发问正则，高手快来解答

最佳答案

月排行榜 / 总排行榜

大灰狼1976

2017-6-15 10:56

1. Sub aaa()
   
2. Dim reg As Object, k&, arr, i&
   
3. Set reg = CreateObject("vbscript.regexp")
   
4. arr = [a1].CurrentRegion
   
5. With reg
   
6.   .Global = True
   
7.   .Pattern = "消售部"
   
8.   For i = 2 To UBound(arr)
   
9.     arr(i, 1) = .Replace(arr(i, 1), "销售部")
   
10.   Next i
    
11. End With
    
12. [a1].CurrentRegion = arr
    
13. End Sub

复制代码

跳转到最佳答案楼层

大灰狼1976

1. Sub aaa()
   
2. Dim reg As Object, k&, arr, i&
   
3. Set reg = CreateObject("vbscript.regexp")
   
4. arr = [a1].CurrentRegion
   
5. With reg
   
6.   .Global = True
   
7.   .Pattern = "消售部"
   
8.   For i = 2 To UBound(arr)
   
9.     arr(i, 1) = .Replace(arr(i, 1), "销售部")
   
10.   Next i
    
11. End With
    
12. [a1].CurrentRegion = arr
    
13. End Sub

复制代码