Как автоматически вставить текст каждой ячейки в столбце в качестве комментария к другой ячейке

Question

Допустим, у меня есть 2 столбца. Назовем их column1 и column2. Ячейки обоих столбцов содержат текст или пусты. Я хочу вставить текст ячейки в column2 как комментарий к ячейке в той же строке в column1 и применить его ко всем строкам.

Например, дана такая таблица:

ячейка с Text1будет иметь комментарий qith Text4:

и так далее:

Answer 1

Допустим, у нас есть данные вА1черезБ100. Если вы передумали и готовы принять решение на основе макросов, попробуйте следующее:

Sub CommentMaker()
    Dim A As Range, aa As Range

    Set A = Range("A1:A100")
    A.ClearComments

    For Each aa In A
        aa.AddComment
        aa.Comment.Text Text:=CStr(aa.Offset(0, 1).Value)
    Next aa
End Sub