excel工作簿所有工作表中的多值替换

有两个工作簿，其中一个存储要查找和替换的文本，如下图1所示。A列中要查找的文本替换为B列中对应的文本，例如“Excel”替换为“Excel”。

图1

另一个工作簿是我们要替换其文本的工作簿。我们希望在本工作簿的所有工作表中找到上面图1中A列中的值，并用B列中的文本替换找到的文本，如图2所示。

图2。

要达到的结果如下图3所示。

图3。

使用以下VBA代码完成上述任务。在图1所示的工作簿中，打开VBE，插入一个标准模块，并输入代码：

查找并替换指定工作簿中的多个文本。

Sub MultiFindReplace()

将替换列表另存为工作簿

工作簿中的Dim替换

将周调暗为工作表

作为字符串的暗淡替换

将替换列表调暗为范围

模糊如龙

获取工作簿以替换文本。

替换=应用程序。GetOpenFilename(_

"要替换文本的工作簿，*。xls？”, 1, _

“选择要替换文本的工作簿”)

如果单击“取消”，您将退出该程序。

如果替换为“假”，则退出接头

申请。屏幕更新=假

替换文本的工作簿。

设置替换工作簿。打开(替换)

替换文本所在的工作簿。

设置ReplaceListWB=此工作簿

替换文本所在的区域。

设置ReplaceList=ReplaceListWB。工作表(1)。_

单元格(1，1)。当前区域

遍历工作簿中要替换文本的所有工作表。

在替换中的每一周。工作表

用替换文本替换工作表中的数据。

带替换列表

对于i=2至.行，计数

打电话给wks。使用范围。替换(_。细胞(I，1)。价值，_。细胞(I，2)。价值，_

xlPart，False)

接下来我

以…结尾

然后

保存并关闭要替换文本的工作簿。

ReplaceInWB。救援

ReplaceInWB。关闭

申请。屏幕更新=假

末端接头

运行代码，弹出如下图4所示的对话框，要求您选择工作簿文件来替换文本。选择工作簿文件后，工作簿中的文本将根据上面图1中工作表中的文本自动搜索和替换。

图4