前景提要

在上一节，我们学习了通过VBA的方式来批量删除批注，但是删除批注并不是我们的最终目的，我们的最终目的是修改批注，批注之所谓称之为批注，简单一点理解就是备注，备注是比较随意，并且是随时都可以更改个，但是很明显，Excel的单元格批注的修改并不是那么简单和顺利，所以今天我们来学习下如何快速的修改批注

场景说明

还是一样的场景，不变的配方，我们今天更换下目的，我们今天要实现的目的是批量修改单元的批注

上一节，我们留下一个悬念，因为我们大致能够猜想到修改批注，无非就是判断是否存在批注，如果存在就利用

a.Comment.text text:="******"

的方式来重新设置单元格的批注就可以了，那么真的是这样嘛？

试一下就知道了。

代码区

Sub changepizhu()

Dim rng As Range, a As Range

Set rng = Application.InputBox("请选择单元格区域", "需要删除批注的单元格区域", , , , , , 8)

For Each a In rng

a.ClearComments

a.Comment.Text Text:=a.Offset(0, 1).Value & "的成绩"

Next a