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
0
投稿猜你喜欢
Win10系统电脑打开英魂之刃提示获取游戏openkey失败怎么办？Win10系统电脑英魂之刃游戏无法正常登陆提示获取游戏openkey失败- Office InfoPath2007是微软发布的表单处理软件。很多网友都在找这款软件单独版下载，但是这款软件没有单独版，是集成在Offic
- 市场部经常要出各种分析报告，一写就是洋洋洒洒几十页。文字功底深厚的小王写东西自然不在话下，然而每每困扰他的却是排版的问题，每次都要花大量的时
- 微软说操作系统的UI应该向现代化、平面化发展，于是我们就看到最新的Windows 8里窗口半透明效果没有了，窗口层叠时的阴影效果取消了，按钮
- 很多朋友不清楚Mac怎么修改复制黏贴快捷键？下面小编给大家带来Mac修改复制黏贴快捷键的方法,需要的朋友可以参考下苹果电脑和市场上最多的Wi
- 不少用户有时候会因个人需求来更改电脑的用户名，不过最近一些升级到Win11系统的小伙伴说自己的电脑出现了无法更改用户名的情况，那么碰到这种问
- 平板电脑中的windows应用怎么设置全屏显示？windows平板应用是在平板界面使用的应用，在传统电脑下也可以全屏，也可以非全屏，那么我们
- 在wps中，有个图章生成器，对于大多数人来说，可能不知道如何使用该生成器，下面就让小编告诉大家如何使用wps图章生成器。使用wps图章生成器
- Win7系统开机后提示explorer无法启动uxtheme.dll丢失，该如何解决呢？Win7系统电脑开机黑屏提示explorer无法启动
- 我们在WPS中进行办公时，通常都会需要设置字体字号，字体颜色等字体的基础参数，我们有时候还会需要设置斜体，加粗，上标下标，拼音，高亮显示等。
- ISO是电脑光盘镜像的一种存储格式，现在很多系统安装光盘都是以ISO格式封装成系统镜像文件的，大家在网上下载的系统大多也是ISO镜像文件，那
- 很多朋友在使用win10时不知道如何安装和卸载远程服务器管理工具，今天小编就为大家带Win10安装和卸载远程服务器管理工具的详细步骤很多朋友
- MAC用户们在使用过程中，一定会发现一些控制条功能，这些控制条引起了许多用户的注意，不过具体该如何使用呢？现在就让小编来给大家讲解一下吧。音
- 为了提高我们的工作效率，我们一般在制作wps演示文稿的时候，都会用到模板，下面就让小编告诉你 如何使用wps演示模板的方法。使用wps演示模
- WIN10的特性发布会上没有介绍，所以用户也一直在发现新的特性，有用户发现win10虚拟键盘新增文本预测功能，我们可以看到Win10上的这种
- 很多高保真光碟上的歌曲是CDA格式的，以Track01.cda、Track02.cda这样的格式命名的，但这些CDA文件却只有1K，网上找来
- 今天有位朋友问：VLOOKUP能不能与MATCH匹配使用？当然可以。比如，一下动图，随意选取姓名与产品，都可以查出对应的销售量，就是用VLO
- 我们在使用键盘的时候，有时候会遇见键盘出现的问题，就是切换不出中文输入法，这是怎么一回事呢?有可能是不小心删除了输入法，下面一起来看看具体的
- Microsoft Excel 中 AVERAGEIF函数返回某个区域内满足给定条件的所有单元格的平均值（算术平均值）。AVERAGEIF函
- win10系统是微软开发的一款操作系统，吸取了win8系统的教训，回归了开始菜单，传统界面环境和之前Windows版本相比变化不是很大，但在
