Перенос примечания из одной ячейки в другую

@psyomikron · Регистрация: 23.07.2018

Author24 — интернет-сервис помощи студентам

Добрый день!

Я новичок в написании макросов, поэтому прошу помощи у профессионалов.

Допустим есть таблица, в некоторых ячейках по строкам есть примечания с текстом. Какой макрос позволит перенести примечание (не текст примечания, а само примечание) в другую ячейку по этому же столбцу на несколько строк вверх?

Прикладываю файл для примера.

Заранее спасибо!

@Hugo121 · 23.07.2018, 14:43

Добрый день.
Т.к. в примере не показано - что Вы хотели высказать словом "перенести"? А то тут по форумам это означает совсем не то, что написано...
Ну и по самому макросу -

Сообщение от psyomikron

в некоторых ячейках по строкам есть примечания с текстом

- в каких некоторых? Во всех по листу, или только во всех по конкретной таблице? Она всегда вот именно такая?
Далее деталь -

Сообщение от psyomikron

есть примечания с текстом

- а если без текста, то не обращать внимания?

Добавлено через 9 минут
Хотя может угадал:

Visual Basic

Sub Move_comments()
    Dim x As Comment
    For Each x In ActiveSheet.Comments
        x.Parent.Offset(-3).AddComment.Text Text:=x.Text
        x.Delete
    Next

Выполнить ОДИН раз!

@psyomikron · 23.07.2018, 14:44 **[ТС]**

Hugo121, спасибо за ответ!

Сообщение от Hugo121

что Вы хотели высказать словом "перенести"

Я хочу что бы из строки 4, столбца D примечание скопировалось в строку 1, столбец D (т.е. появился красный треугольник (знаю, тупо звучит но что бы было понятно) и т.д.

Сообщение от Hugo121

в каких некоторых?

Здесь я имел в виду что не в каждой ячейке листа есть примечания. Речь шла про ячейки в которых есть примечания.

Сообщение от Hugo121

Во всех по листу, или только во всех по конкретной таблице?

Во все по листу.

Сообщение от Hugo121

Она всегда вот именно такая

Да, всегда такая.

Сообщение от Hugo121

- а если без текста, то не обращать внимания?

Во всех примечаниях есть текст.

@Hugo121 · 23.07.2018, 14:46

Значит я не всё угадал... Но угадал то, что

Сообщение от Hugo121

это означает совсем не то, что написано...

Ну значит удалите в коде строку x.Delete

@psyomikron · 23.07.2018, 14:48 **[ТС]**

Спасибо большое, все получилось!

@psyomikron 0 / 0 / 0 Регистрация: 23.07.2018 Сообщений: 5
	23.07.2018, 14:44 [ТС]	3
	Hugo121, спасибо за ответ! Сообщение от Hugo121 что Вы хотели высказать словом "перенести" Я хочу что бы из строки 4, столбца D примечание скопировалось в строку 1, столбец D (т.е. появился красный треугольник (знаю, тупо звучит но что бы было понятно) и т.д. Сообщение от Hugo121 в каких некоторых? Здесь я имел в виду что не в каждой ячейке листа есть примечания. Речь шла про ячейки в которых есть примечания. Сообщение от Hugo121 Во всех по листу, или только во всех по конкретной таблице? Во все по листу. Сообщение от Hugo121 Она всегда вот именно такая Да, всегда такая. Сообщение от Hugo121 - а если без текста, то не обращать внимания? Во всех примечаниях есть текст. 0

@Hugo121 6945 / 2849 / 549 Регистрация: 19.10.2012 Сообщений: 8,724
	23.07.2018, 14:46	4
	Значит я не всё угадал... Но угадал то, что Сообщение от Hugo121 это означает совсем не то, что написано... Ну значит удалите в коде строку x.Delete 0

@psyomikron 0 / 0 / 0 Регистрация: 23.07.2018 Сообщений: 5
	23.07.2018, 14:48 [ТС]	5
	Спасибо большое, все получилось! 0

Перенос примечания из одной ячейки в другую

Решение