有这样一个需求：我手头有一批药品名称数据，里面包含了酸根盐基 ， 同时我也有大部分的酸根盐基数据，需要将药品内的酸根盐基替换掉，替换为空即可；一般表格自带一对多的替换，那意味着每一个待替换字符我都得操作一遍，如果数量少还可，一旦数量多就是长时间的重复操作 ， 那这时候就可以考虑让VB编程写一个代码，满足多对多的快速替换 。
如图所示
以下我通过与AI的聊天过程：
具体的代码如下：
Function ReplaceTextWithNumbers(inputText As 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
就完成以上的操作，我一共用了5分钟不到 ， 看来AI真的是人类的一大助手无疑的 。