有时候表格中的批注会变成一条线显示不出来,如果太多的话挨个整理就会很麻烦。
所以右击工作表名称——查看代码,将下面的代码粘贴进去,然后关闭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
转载于:https://blog.51cto.com/4181793/1934941