自定义函数：实现多对多的替换

comeonllg

手头有一批药品名称数据，里面包含了酸根盐基，同时我也有大部分的酸根盐基数据，需要将药品内的酸根盐基替换掉，替换为空即可；一般表格自带一对多的替换，那意味着每一个待替换字符我都得操作一遍，如果数量少还可，一旦数量多就是长时间的重复操作，那这时候就可以考虑让VB编程写一个代码，满足多对多的快速替换。


具体代码如下：

Function ReplaceTextWithNumbers(inputTextAs String, searchList As Range, replaceList As Range) As String

    '将文本1中包含数列1的字符全部依次替换成数列2

   Dim i As Integer

   For i = 1 To searchList.Rows.Count

       inputText = Replace(inputText, searchList.Cells(i, 1).Value,replaceList.Cells(i, 1).Value)

   Next i

   ReplaceTextWithNumbers = inputText

End Function

xunanming

有模拟附件上传一下,这样好模拟代码.