VBA从0学起来-批量替换(源码)（word vba批量替换）

学好EXCEL，就是学会了OFFICE系列的最重要的工具。

但如何算是学好呢，从无到有，从有到精，从精到巧为共勉！

近来有人私信留言我，也是我自己最近也需要用到一个VBA功能，就是批量替换。

就是这嘎达呢，一键灵活替换了自己辛苦一上午的手工替换的工作量。

老师也录制了上下两集从0到1的见证视频，当然，源码在下方！

Sub 批量替换()
'精确匹配的做法
'1.选择匹配的区域
Dim rng_替换 As Range
Set rng_替换 = Application.InputBox("选取替换匹配的区域(2列 多行)", Type:=8)
'1.1 数组
Dim arr() '动态数组
arr = rng_替换.Value
'2.循环替换
For i = 1 To 2
[c2:e16].Replace What:=arr(i, 1), Replacement:=arr(i, 2), LookAt:=xlWhole, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Range("D12").Select
Next
'3.结束
MsgBox "小主，全部按你的心意，精确匹配替换完成了！"
End Sub

单选/ 本次选择区域用了那个内置对话框？

• A.application.msgbox
• B.application.inputbox
• C.application.msgbox

投票