批量修改Excel超高的批注

有些EXCEL表格无缘无故达到几十万行，但实际的表格内容却没那么多行，尝试删除最后一个单元格是无法缩减，甚至有可能在删除空白行时提示“无法将对象移到工作表外”。此时应考虑是否有超高度的批注卡住整个表格。

把表格拖到最后一行，点选审阅-显示所有批注，看看是否有这样的批注出现，如果有就用下面的代码恢复

按下ALT+F11，在弹出的VBA编辑器左侧找到当前表格名称，双击进入，粘贴代码，点击运行即可。

Sub 批量修改批注框()
Dim Cmt As Comment
For Each Cmt In ActiveSheet.Comments
    With Cmt
    .Shape.Width = 200
    .Shape.Height = 100
    .Shape.Top = .Parent.Top - 7.5
    .Shape.Left = .Parent.Left + .Parent.Width + 11.25
    End With
Next Cmt
End Sub