Автоматическая вставка примечаний в ячейки таблицы Excel, пишем макрос

Автоматическая вставка примечаний в Excel

Иногда нам требуется быстро вставить примечания в определённом диапазоне, делать это с помощью вкладок программы или контекстного меню (правой кнопки мыши) неудобно да и долго. Напишем свой макрос для быстрой вставки примечаний в ячейки таблицы.

Текст макроса:

Sub CreateComments()
   Dim cell As Range
   ' Производим поиск по всем ячейкам диапазона и добавляем примечания _
   ко всем ячейкам, содержащим слово "Выручка"
   For Each cell In Range("E1:E100")
      If cell.Value Like "*Выручка*" Then
         cell.ClearComments
         cell.AddComment "Сдать в банк"
      End If
   Next
End Sub

Всем удачи!