[已解决]请大神帮我看一下这段自定义函数的问题

lovelfg

一个单元格内出现若干个A列的序号，现要将所有序号替换为对应的B列，于是尝试写了如下函数，但是却得不到正确结果，请大神帮我看一下

最佳答案

月排行榜 / 总排行榜

大灰狼1976

2017-3-29 15:35

1. Function reval(rng As Range)
   
2. Application.Volatile
   
3. Dim arr, a, s$
   
4. arr = Split(rng.Value, "/")
   
5. For Each a In arr
   
6.   s = s & "/" & Columns(1).Find(a, lookat:=xlWhole).Offset(, 1)
   
7. Next
   
8. reval = Mid(s, 2)
   
9. End Function

复制代码

跳转到最佳答案楼层

大灰狼1976

1. Function reval(rng As Range)
   
2. Application.Volatile
   
3. Dim arr, a, s$
   
4. arr = Split(rng.Value, "/")
   
5. For Each a In arr
   
6.   s = s & "/" & Columns(1).Find(a, lookat:=xlWhole).Offset(, 1)
   
7. Next
   
8. reval = Mid(s, 2)
   
9. End Function

复制代码