我的EXCEL表差了很多批注，现在想修改，可一个一个修改比较麻烦，能不能批量修改呢？
在第一张表批量修改批注格式：
请在表名上点击右键，选中‘查看代码’，离开工作表并进入VBE编程界面，粘贴下面的代码，最后回到工作表，点击菜单“工具－宏－宏－运行aaa这个宏
Sub aaa()
x = Sheets(1).Comments.Count
For i = 1 To x
Sheets(1).Comments(i).Text Text:="如何成批的修改EXECL单元格的批注的格式？"
Sheets(1).Comments(i).Visible = True
Sheets(1).Comments(i).Shape.Select
With Selection.Font
.Name = "宋体"
.FontStyle = "加粗"
.Size = 11
.ColorIndex = 3
End With
Next
[a1].Select
End Sub
请在表名上点击右键，选中‘查看代码’，离开工作表并进入VBE编程界面，粘贴下面的代码，最后回到工作表，点击菜单“工具－宏－宏－运行aaa这个宏
Sub aaa()
x = Sheets(1).Comments.Count
For i = 1 To x
Sheets(1).Comments(i).Text Text:="如何成批的修改EXECL单元格的批注的格式？"
Sheets(1).Comments(i).Visible = True
Sheets(1).Comments(i).Shape.Select
With Selection.Font
.Name = "宋体"
.FontStyle = "加粗"
.Size = 11
.ColorIndex = 3
End With
Next
[a1].Select
End Sub
温馨提示：答案为网友推荐，仅供参考
第1个回答 2019-03-17
工具-宏-VB编辑器，插入－模块，然后将Sub
test()
Dim
mCom
As
Comment
For
Each
mCom
In
ActiveSheet.Comments
With
mCom.Shape.TextFrame.Characters
With
.Font
.Bold
=
msoTrue
'改变粗细
.Size
=
14
'改变大小
.ColorIndex
=
3
'改变颜色
End
With
End
With
Next
End
Sub
程序复制，执行即可。
test()
Dim
mCom
As
Comment
For
Each
mCom
In
ActiveSheet.Comments
With
mCom.Shape.TextFrame.Characters
With
.Font
.Bold
=
msoTrue
'改变粗细
.Size
=
14
'改变大小
.ColorIndex
=
3
'改变颜色
End
With
End
With
Next
End
Sub
程序复制，执行即可。
第2个回答 2008-10-14
查找替换，范围批注
第3个回答 2008-10-14
你好
好像不能
好像不能
