excel工作簿所有工作表中的多值替换
时间:2023-05-07 15:29:52
有两个工作簿,一个工作簿中存放着要查找并替换成的文本,如下图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
![](/images/zang.png)
![](/images/jiucuo.png)
猜你喜欢
微软输入法打字时不显示选字框?win10输入法的选字框不见了?
![](https://img.aspxhome.com/file/2023/1/a274078_0s.jpg)
2022XGP必玩游戏排行榜荐 XGP值得一玩的游戏推荐
![](https://img.aspxhome.com/file/2023/30/a266850_0s.jpg)
Firefox浏览器在Mac上如何设置允许自动更新?
![](https://img.aspxhome.com/file/2023/7/a205287_0s.jpeg)
在Excle中如何插入剪贴画?
Win8系统打补丁KB3045999后VirtualBox无法启动怎么办?
![](https://img.aspxhome.com/file/2023/28/a250100_0s.jpg)
AirPods Max上线,4399是耳机价格
![](https://img.aspxhome.com/file/2023/0/a209100_0s.png)
Win10启动特别慢怎么办?Win10启动特别慢解决办法
![](https://img.aspxhome.com/file/2023/26/a223649_0s.png)
Win10系统禁用/启用任务管理器方法
![](https://img.aspxhome.com/file/2023/28/a241002_0s.jpg)
excel中VBA删除工作簿中的所有批注
Win11 22H2(太阳谷 2)更新内容大盘点
![](https://img.aspxhome.com/file/2023/28/a239922_0s.jpg)
Word怎么做括号分支?Word插入括号分支的方法
![](https://img.aspxhome.com/file/2023/4/30914_0s.jpg)
新版edge浏览器兼容模式怎么设置?
![](https://img.aspxhome.com/file/2023/1/a275427_0s.png)
如何在wps中设置文字旋转
Win10系统如何修改注册表的权限,Win10系统修改注册表的权限的教程
![](https://img.aspxhome.com/file/2023/8/46618_0s.jpg)
如何通过WiFi将Apple iOS设备连接到TouchCopy
![](https://img.aspxhome.com/file/2023/1/a213161_0s.jpeg)
四种IE浏览器的新鲜用法
如何在Excel中拉动单元格时表头不变形?
![](https://img.aspxhome.com/file/2023/9/39919_0s.jpg)
Win11蓝牙耳机声音小怎么办?
![](https://img.aspxhome.com/file/2023/2/a284236_0s.jpg)