Как вставить примечание с текстом из соседней ячейки
Есть 2 столбца A и B, как можно добавить во все ячейки B примечание с текстом из A. В каждой строчке свой текст.
Вручную будет долго, формула в примечание вставляется как текст
Ответы (1 шт):
Автор решения: Akina
→ Ссылка
Sub AddComments()
Dim oneCell As Range
For Each oneCell In Range("B1:B5")
If oneCell.Comment Is Nothing Then oneCell.AddComment
oneCell.Comment.Text oneCell.Offset(0, -1).Text
Next
End Sub
ничего не подскажу, кроме общего соображения: опишите, что именно предлагаете. – aleksandr barakin
Перебираем все ячейки нужного диапазона по одной. Сперва проверяем, есть ли у очередной ячейки комментарий (в смысле место под него), если нет - добавляем. Потом записываем в комментарий нужный текст. Текст берём из соседней ячейки - задаём смещение от текущей на 1 ячейку влево.