有时候表格中的批注会变成一条线显示不出来,如果太多的话挨个整理就会很麻烦。

所以右击工作表名称——查看代码,将下面的代码粘贴进去,然后关闭VB。

回到工作表之后按alt+F8,点击执行。

Sub test()
Dim cmt As Comment
For Each cmt In ActiveSheet.Comments
With cmt
.Shape.TextFrame.AutoSize = True
End With
Next
End Sub