vba结束本次循环进行下次_VBA从0学起来-批量替换（源码）

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

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

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

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

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

vba应用背景

Sub 批量替换()'精确匹配的做法'1.选择匹配的区域Dim rng_替换 As RangeSet 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:=FalseRange("D12").SelectNext'3.结束MsgBox "小主，全部按你的心意，精确匹配替换完成了！"End Sub

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

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

投票