excel工作簿所有工作表中的多值替换
2023-01-26 餐饮美食网 【 字体:大 中 小 】
有两个工作簿,一个工作簿中存放着要查找并替换成的文本,如下图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
如何自制蛋挞
肉火烧面怎么和面
奶茶几分糖好喝
过桥米线是哪里的?
面霜和乳液的区别
怎么摘隐形眼镜
粉饼和散粉的区别
冷烫和热烫的区别
高品质香水如何鉴别?用三步就可以解决
如何去除黑眼圈