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

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

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

и так далее:

1 ответ1

2

Скажем, у нас есть данные от A1 до B100. Если вы передумаете и примете решение на основе макросов, попробуйте это:

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

Всё ещё ищете ответ? Посмотрите другие вопросы с метками .