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
猜你喜欢
- word怎么组合形状?1打开word,如下图:2选中菜单栏中的插入选选项,找到形状图标,如下图:3插入两个形状,如下图:4将两个形状重叠,按
- 在使用office 2010打开Excel时会出现一个错误提示窗口,不能打开表格文件,只能从历史记录里打开,即使重装office也不能解决,
- 用户在Word2003中完成Word字体的设置,并将该Word文档复制到另外的电脑上打开的时候,往往会由于当前电脑没有安装事先设置的字体而使
- Word文本如何转换为表格?在Word中的文本,如果需要转换为表格,通常你会插入一个表格,在一个个粘贴,今天一起来学习这个技巧,轻松将文本转
- 方法一:格式是这样的,=date(年,月,日)-date(年,月,日)比如:=date(2005,8,10)-date(2005,8,9)注
- 苹果在上周发布了iOS 16.2, 推出了“无边记”App,还为 iPhone 增加了 Apple Music 唱歌、锁定屏幕改进以及其他功
- 作为全世界最畅销的无线耳机,AirPods 在外观和便利性上首屈一指,但在音质方面的确非常一般。相较于三星的 Galaxy Buds、索尼的
- 在安装了office2013版本后,虽然进行了激活,但是仍然无法登录帐户让office进行联网,一般情况下会出现“管理员已禁用此功能”的提示
- Excel的DDB函数使用双倍余额递减法或其他指定方法,计算一笔资产在给定期间内的折旧值。 语法DDB(cost,
- 前不久看见有朋友问,Win 7下Word打不开 ,提示“向程序发送命令时出错”,重新启动Word,还是这样的问题,这是什么原因呢,遇到这种情
- 通过为Word2010中的艺术字文字设置发光效果,可以在艺术字文字周围呈现出特定颜色的彩色光晕,视觉感受上就如同文字向四周发出光芒。通过为W
- 第1步,打开Word2013文档窗口,依次单击“文件”→“打印”命令,如图1所示。 图1 单击“打印”命令第2步,
- 这篇文章主要介绍了excel sumproduct函数的使用方法及实例,需要的朋友可以参考下从excel2007版本以后,新增了一个sump
- 我们现在的电脑基本上都是带蓝牙功能的,可以连接各种蓝牙设备,非常的方便。但是有很多人却碰到了Win10蓝牙关闭后无法打开的情况,今天小编就给
- 有时候我们在使用Win10的过程弹出“某些设置由你的组织来管理”的提示的问题,那么我们该如何关闭这个烦人的窗口呢?今天小编给大家说说Win1
- 下面就Outlook Express为例来说明怎样使用其自动回信功能,需要的朋友可以参考下现在大多数政府部门、大型企业等都上了Interne
- 前几天高考小长假,老师让我做一个下周班级挑战赛的PPT,有一个项是:退步惊人的学生(我班的和他们班的),老师只给了我们班的,而没有给他们班的
- word遇到问题需要关闭的解决办法。你遇到没遇到过“Microsoft Office Word 遇到问题需要关闭。我们对此引起的不便表示抱歉
- 我们在使用word进行排版设置时经常会碰到到输入上标或下标的情况,上标下标的作用非常广泛,上标一般指比同一行中其他文字稍高的文字,用于上角标
- 1、点击“插入”菜单下的“特殊符号”2、在弹出的对话框中选择需要输入的符号即可.方法二:1、选择“插入”菜单下的“符号”2、在弹出的对话框中