如何解决在VBA中使用“查找并替换”来替换多行?
我已经在VBA中创建了一个简单的代码来隐藏和显示某些列,但是现在我想使用“查找并替换”窗口替换所有模块中的部分代码。
(请原谅我很少的编码知识...我真的很需要解决这个问题)
例如我有一个代码:
' Hide column "Region"
Range("A:A").Select
Selection.EntireColumn.Hidden = True
,并希望在所有模块中将其替换为:
' Hide column "Region" (INACTIVE)
Range("A:A").Select
Selection.EntireColumn.Hidden = False
我尝试在VBA中使用“查找和替换”窗口,并在“查找内容”框中键入原始代码,但最后我只显示了第一行:
'隐藏“地区”列
如何在“查找内容”框中键入代码以搜索整个代码?我尝试使用“ ^ p”,“ ”,“ \ p”和“ ”在“查找内容”框中键入以下内容,而没有任何搜索结果:
'隐藏列“ Region” ^ pRange(“ A:A”)。Select ^ pSelection.EntireColumn.Hidden = True
'隐藏列“ Region” Range(“ A:A”)。Select Selection.EntireColumn.Hidden = True
'隐藏列“ Region” \ pRange(“ A:A”)。Select \ pSelection.EntireColumn.Hidden = True
'隐藏列“ Region” Range(“ A:A”)。Select Selection.EntireColumn.Hidden = True
等等...
我曾经成功做过一次,但是我不记得我是怎么做的!有没有人可以帮助我?
解决方法
我通过将每个模块中的代码复制到Word中并使用“查找并替换”在那里的所有位置替换代码来修复它。
在Word中,“ ^ p”在“查找内容”框中充当paragrapgh符。
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。