咔片PPT · AI自动生成演示文稿，模板丰富、排版精美 讯飞智文 · 一键生成PPT和Word，高效应对学习与办公

有这样一个需求：我手头有一批药品名称数据，里面包含了酸根盐基，同时我也有大部分的酸根盐基数据，需要将药品内的酸根盐基替换掉，替换为空即可；一般表格自带一对多的替换，那意味着每一个待替换字符我都得操作一遍，如果数量少还可，一旦数量多就是长时间的重复操作，那这时候就可以考虑让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真的是人类的一大助手无疑的。