Excel注释不会停留在单元格附近

Question

我有一个像数据库一样使用的电子表格-根据需要，我用很多不同的方式对它进行排序。我在某些单元格中有评论。当我单击“显示评论”时，评论有时在其连接的单元格下方一千行以上。查看屏幕截图：

我想查看我的评论，然后单击显示评论-就在那儿：

我向下滚动将近1000行-在那里！大小已更改为几乎不可见，现在我必须调整大小并将其向上拖动。

现在，我将其备份并调整大小。为什么要这样做，以及使其停止的最佳实践是什么？我搜索了此答案，但没有找到与我的问题类似的东西。

Answer 1

我添加到由@ cybernetic.nomad共享也调整批注框是注释的大小，而不是巨大的或微小extendoffice的代码。然后我添加了

Application.screenupdating=False 

命令开头，因为我的工作表很大，因此运行代码很慢。这是我的最终作品：

Sub ResetComments()
'move comments back to parent cell and autosize

Dim pComment As Comment

Application.ScreenUpdating = False
For Each pComment In Application.ActiveSheet.Comments
   pComment.Shape.Top = pComment.Parent.Top + 5
   pComment.Shape.Left = pComment.Parent.Offset(0, 1).Left + 5
   pComment.Shape.TextFrame.AutoSize = True
Next
End Sub

谢谢大家！我一直在寻找一种防止移动评论的方法，但这很容易解决！