Как в Excel вернуть комментарии на место

У меня довольно часто «съезжают» комментарии к ячейкам в Excel, что очень неприятно, когда их много. Оказывается, есть простой способ вернуть их на место. Для этого добавляем в книгу такой макрос:

Sub ResetComments()
    Dim cmt As Comment
    For Each cmt In ActiveSheet.Comments
        cmt.Shape.Top = cmt.Parent.Top + 5
        cmt.Shape.Left = cmt.Parent.Offset(0,1).Left + 5
    Next
End Sub

Запускаем и вуаля – все комментарии около своих ячеек ;)

Кучу подобных полезностей можно найти тут.