Excel: переместить содержимое ячейки, чтобы оставить комментарий в определенной ячейке

Question

Мне нужно преобразовать текстовое содержимое в ячейке в комментарий в другой ячейке (тот, что слева). Я видел этот пост, и код работает нормально, но он помещает комментарий в ту же ячейку, где находится текстовое содержимое.

Пример: мне нужно, чтобы текст в столбце B был комментарием к столбцу A.

Answer 1

Выберите ячейки, содержащие данные (в вашем случае ячейки в столбце B)

и запустите этот короткий макрос:

Sub CommentMaker()
   Dim r As Range, v As String
   For Each r In Selection
      If r.Column <> 1 Then
         If r.Text <> "" Then
         v = r.Text
         With r.Offset(0, -1)
            .ClearComments
            .AddComment
            .Comment.Visible = False
            .Comment.Text Text:=v
         End With
         End If
      End If
   Next r
End Sub

Примечание: это не удалит исходные данные!