Как вставить в примечание к ячейке текст из буфера обмена?

Question

[TicSo]

Excel 2019 (версия 2410 64-разрядная)
Зафиксировать примечание, чтобы не пропадало его окно, - могу, а вот вставить содержимое из буфера (Ctr+V) не получается. Т.е. не получается вставить именно скопированные значения группы ячеек в буфер. Если скопировать одну ячейку из строки ввода, то такая вставка получается.

Answer 1

[Refguser]

Вставляй без форматирования (можно через блокнот)

Comments

[TicSo]

Я не совсем понял Ваш совет.
У меня получается, если все строки преобразовать в одну строку, например онлайн. Но не знаю какой разделитель выбрать, чтобы получить в примечании
опять строки. Типа <бр> ... Вот спрашиваю. Спасибо.

[Refguser]

TicSo, Скопировал из эселя - вставил в блокнот. Скопировал из блокнота - вставил в примечание.

Кроме того в экселе, насколько я помню, есть "вставка без форматирования". Ею тоже можно попробовать воспользоваться.

[TicSo]

Да, через блокнот получилось, спасибо. Жаль, что сам интерфейс не даёт,
там выбор `Параметры вставки` не активно:

[Refguser]

TicSo, А попробуй вставлять через "Ctrl+Shift+V"

[TicSo]

Refguser, я так сразу пробовал, знаю про "Ctrl+Shift+V", но не работает. Как только курсором фокус попадает на поле примечания - эффект выделенной курсивом области, которую скопировал, - СРАЗУ пропадает. Ну и не вставляет уже никакими командами ...

[Refguser]

TicSo, понятно. Ну ещё есть вариант со сторонними программами для буфера. Но я из не юзал, так что конкретные не подскажу.

[CSmile84]

Попробуйте включить в настройках Windows работу с историей буфера обмена. Тогда, возможно, получится вставлять сочетаем клавиш win+v без промежуточных действий.

[Refguser]

CSmile84, история никак не влияет на форматирование.

[Ahulinet]

Sub PasteDataToComments()
Dim DataObj As Object
Dim CopiedText As String
Dim Lines() As String
Dim rng As Range
Dim cell As Range

Set DataObj = CreateObject("MSForms.DataObject")
DataObj.GetFromClipboard
CopiedText = DataObj.GetText
Lines = Split(CopiedText, vbCrLf)
Set rng = Selection

For Each cell In rng
If cell.Comment Is Nothing Then cell.AddComment
cell.Comment.Text Text:=Join(Lines, vbCrLf)
Next cell
End Sub