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

有两个工作簿，一个工作簿中存放着要查找并替换成的文本，如下图1所示，列A中是要查找的文本，将列A中查找到的文本替换成列B中相应的文本，例如，将找到的“Excel”替换成“Excel”。

图1

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

图2

要实现的结果如下图3所示。

图3

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

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

Sub MultiFindReplace()

Dim ReplaceListWB As Workbook

Dim ReplaceInWB As Workbook

Dim wks As Worksheet

Dim ReplaceIn As String

Dim ReplaceList As Range

Dim i As Long

‘获取要进行替换文本操作的工作簿

ReplaceIn =Application.GetOpenFilename( _

“要替换文本的工作簿, *.xls?”, 1, _

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

‘如果单击取消,则退出程序

If ReplaceIn =”False” Then Exit Sub

Application.ScreenUpdating = False

‘要替换文本的工作簿

Set ReplaceInWB = Workbooks.Open(ReplaceIn)

‘替换文本所在的工作簿

Set ReplaceListWB = ThisWorkbook

‘替换文本所在的区域

Set ReplaceList = ReplaceListWB.Worksheets(1). _

Cells(1,1).CurrentRegion

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

For Each wks In ReplaceInWB.Worksheets

‘使用替换文本来替换工作表中的数据

With ReplaceList

For i = 2 To .Rows.Count

Call wks.UsedRange.Replace( _

.Cells(i,1).Value, _

.Cells(i,2).Value, _

xlPart, ,False)

Next i

End With

Next

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

ReplaceInWB.Save

ReplaceInWB.Close

Application.ScreenUpdating = False

End Sub

运行代码，弹出下图4所示的对话框，要求选择要替换文本的工作簿文件。选择工作簿文件后，将根据上图1工作表中的文本自动对该工作簿中的文本进行查找和替换操作。

图4