批量替换Excel批注中的部分内容，看似棘手的问题5秒钟搞定！

Excel情报局
Excel职场联盟
生产挖掘分享Excel基础技能
Excel爱好者大本营
用1%的Excel基础搞定99%的职场问题
做一个超级实用的Excel公众号
Excel是门手艺玩转需要勇气
数万Excel爱好者聚集地
SUPER EXCEL MAN

前言｜职场实例

今天我们继续解决一个群里的小伙伴提出的问题：
在Excel中如何批量查找替换批注（注释）里面的部分内容。
下面我们来看一下具体的职场实例：
在下面的工作表中，我们看到左表中的B列“2021年应收款”列中的每个单元格都插入了一个批注（注释），并且每个批注里面的整体内容都是不同的（如批注内容里面所显示的凭证号都不同）。
我们如何将每个批注里面的“2020”批量修改为“2021”呢？普通的小伙伴可能会选择手动一个一个进行逐个修改。假设如果有1000个单元格，那我们的工作效率可想而知了。

有的小伙伴说了，这种问题使用Excel中的“查找和替换”的功能不就可以了。但是我们通过按住快捷键“Ctrl+F”，调出“查找和替换”的对话框后，我们在【查找内容】框输入：2020；然后点击“选项”按钮，将【查找范围】设置为“批注”，点击“全部查找”。

我们发现最后查找出来的只是批注所在的单元格内的数据，而不是批注框内的内容。

综上所述，所以用“查找和替换”的功能是不现实的。

解决方案｜VBA代码法瞬间完成替换

既然用“查找和替换”的方法行不通，那么我们就用一段小小的VBA代码快速解决今天这个看似很棘手的问题吧。

我们右击工作表名称标签，点击“查看代码”，进入VBA编辑器界面（或按快捷键Alt+F11进入）。

然后将下面一段VBA代码复制粘贴到VBA编辑器录入界面中，最后点击上方的【运行】-【运行子过程/用户窗体】后，关闭VBA编辑器窗口。

Private Sub CommandButton1_Click()Dim a As CommentFor Each a In Commentsa.Text Text:=Replace(a.Text, "2020", "2021")NextEnd Sub

当我们返回到Excel工作表时，惊喜的发现：

已经成功地将每个单元格插入的批注框里面的“2020”批量修改为“2021”了。如下图所示：

注意事项｜代码灵活修改的部分

下面一句代码需要根据我们的实际需求灵活修改：
a.Text Text:=Replace(a.Text, "2020", "2021")
其中
“2020”内容位置处，是我们需要查找替换的旧文本内容
“2021”内容位置处，是我们需要将查找出来的旧文本替换为的新内容。
使用此代码的优点：
不仅可以查找替换批注框里的全部内容，还可以像本例这样查找替换批注框里的部分字段内容，非常的方便。
阅读完文章之后，希望小伙伴们在文章底部帮助小编[点赞]+点亮[在看]；如果觉得内容有价值欢迎[分享]给你的同事朋友；小编也和大家一样，正在不断的学习与积累中，坚持持续分享的道路上很艰辛，需要有你们的鼓励与支持！别逃避问题，否则它只会越积越多；每天进步一点点，你就胜过了大多数人。
赞 (0)

相关推荐