Могу ли я напечатать содержимое ячейки с комментариями к ячейке в конце листа?

Question

Как распечатать содержимое ячейки с комментариями вместе с комментариями к ячейке в конце листа? Я знаю, как напечатать комментарии в конце, но можно ли добавить содержимое ячейки?

Пример:

Ячейка E96 в моей рабочей таблице содержит: "Удалить штормовые окна"

Комментарий к ячейке E96: «6 окон плюс 1 маленький ... скажем .5 часов каждое = 3,5 часа»

Когда я печатаю лист с комментариями, добавленными после листа, я получаю:

Сотовый | E96

Комментарий | 6 окон плюс 1 маленький ... скажем .5 часов каждое = 3,5 часа

Я также хотел бы добавить туда содержимое ячейки с комментариями, например так:

(или что-то подобное, я гибкий)

Сотовый | E96 Удалить штормовые окна

Комментарий | 6 окон плюс 1 маленький ... скажем .5 часов каждое = 3,5 часа

Answer 1

Я взял код из ссылки chuffs и исправил некоторые ошибки.

Макрос извлекает адрес ячейки, значение ячейки, автора, текст комментария из всех закомментированных ячеек и записывает их на новый лист. Этот лист можно распечатать отдельно от вашего обычного листа.

• откройте свою рабочую книгу и нажмите ALT+F11
• вставьте приведенный ниже код в Sheet1 или новый модуль
• закройте редактор VBA и вернитесь к листу с вашими комментариями
• нажмите ALT+F8 и выполните макрос

---

Sub ListComments()
Application.ScreenUpdating = False

    Dim X As Long, RngName As String, newwks As Worksheet, curwks As Worksheet

    Set curwks = ActiveSheet
    If curwks.Comments.Count Then

        Set newwks = Worksheets.Add
        newwks.Range("A1").Resize(1, 4) = Array("Address", "Cell Value", "Author", "Comment")

        On Error Resume Next
        For X = 1 To curwks.Comments.Count
            With curwks.Comments.Item(X)
                newwks.Range("A1").Offset(X, 0).Resize(1, 4) = _
                    Array(.Parent.Address(False, False), .Parent.Value, .Author, .Text)
            End With
        Next
    End If

Application.ScreenUpdating = True
End Sub

Answer 2

Я не уверен, что это поможет вам, но вы можете попробовать CTRL V, он должен копировать формулы, значения и т.д. Я не знаю, будет ли это делать то, что вы хотите, но думал, что вы можете попробовать это, если вы не уже известно об этой функции.