[已解决]VBA自定义函数支持两个区域中的值一一替换

laoau138

VBA自定义函数支持两个区域中的值一一替换

最佳答案

月排行榜 / 总排行榜

大灰狼1976

2017-10-28 15:31

1. Function replacetwo(rng1, rng2, rng3)
   
2. Dim arr, brr, i&, s$
   
3. s = rng1: arr = rng2: brr = rng3
   
4. For i = 1 To UBound(arr)
   
5.   s = Replace(s, arr(i, 1), brr(i, 1))
   
6. Next i
   
7. replacetwo = s
   
8. End Function

复制代码

跳转到最佳答案楼层

大灰狼1976

1. Function replacetwo(rng1, rng2, rng3)
   
2. Dim arr, brr, i&, s$
   
3. s = rng1: arr = rng2: brr = rng3
   
4. For i = 1 To UBound(arr)
   
5.   s = Replace(s, arr(i, 1), brr(i, 1))
   
6. Next i
   
7. replacetwo = s
   
8. End Function

复制代码

laoau138

大灰狼1976 发表于 2017-10-28 15:31

VBA用两种方法获取字符前面或后面数值


http://www.excelpx.com/thread-434656-1-1.html

laoau138

大灰狼1976 发表于 2017-10-28 15:31

果然是高手