Задача:

Есть документ Excel, с многочисленными примечаниями в ячейках.

Были изменены размеры ячеек, а примечания остались на старых местах (их очень много)

Нужно написать макрос, который все примечания поставит в положение по умолчанию, не потерев содержимое есстественно.

Здравствуйте, Copywriter, Вы писали:

C>Задача:

C>Есть документ Excel, с многочисленными примечаниями в ячейках.

C>Были изменены размеры ячеек, а примечания остались на старых местах (их очень много)

C>Нужно написать макрос, который все примечания поставит в положение по умолчанию, не потерев содержимое есстественно.

Ну что-нибудь типа

    Dim wks As Worksheet, cel As Range
    Set wks = ActiveSheet
    
    MsgBox wks.Comments.Count

    For Each cel In wks.Cells.SpecialCells(xlCellTypeComments)
        MsgBox cel.Address
        
        With cel.Comment.Shape
            .Left = cel.Left + cel.Width - 10
            .Top = cel.Top - cel.Comment.Shape.Height - 10
            .TextFrame.AutoSize = True
        End With
    Next cel

Спасибо, помогло.