Sub test()
Dim cmt As Comment
For Each cmt In ActiveSheet.Comments
With cmt
.Shape.TextFrame.AutoSize = True
End With
Next
End Sub
使用方法：
1、Sheet上右击“查看代码”，打开VB编辑器；
2、把上面的代码贴进来，然后关闭VB窗口；
3、返回要修正的sheet，ALT+F8，执行。
用数据有效性弄批注呗。
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024