Копирование содержимого из ячейки и вставка в новые комментарии / заметки на другом листе

Question

Я пытаюсь скопировать содержимое из ячеек Sheet1 и вставить его в другой Sheet2 в виде комментариев / Notes через VBA. может кто-нибудь помочь?

Answer 1

Dim x As Integer
Dim sheetnameLR As Integer

sheetnameLR= ThisWorkbook.Sheets("sheetname").Cells(Rows.Count, 1).End(xlUp).Row + 1  

For x = i To j
ThisWorkbook.Sheets("sheetname").Cells(sheetnameLR, x - 1).AddComment ThisWorkbook.Sheets("othersheet").Cells(x, i).Value

Next x

Answer 2

Dim rngInput As Range
Dim rngOutput As Range
Dim cll As Range

For i = 1 To rngInput.Count
    'rngInput(i).Copy
    rngOutput(i).AddComment
    rngOutput(i).Comment.Text Text:=rngInput(i).Value2
Next