Распечатать диапазон гиперссылок

Question

Как я могу получить это, чтобы напечатать файлы гиперссылок, найденные в столбцах «D: E», выбрав строки в столбце «A»

Sub Print_Hyperlinks()

    Dim rng     As Range
    Dim row     As Range
    Dim cell    As Range
    Dim LastRow As Long


    LastRow = Range("A2").End(xlDown) 'Print only selected rows in "A"

    Set rng = Range("D2:E" & LastRow)

    For Each row In rng.Rows
      For Each cell In row.Cells
           Selection.Hyperlinks(1).Follow   'List of Hyperlinks in Column "D"
           Selection.Hyperlinks(2).Follow   'List of Hyperlinks in Column "E"
      Next cell
    Next row

End Sub

Answer 1

Вы должны ссылаться на последнюю строку, а не на данные в ней, т.е. заменить

LastRow = Range ("A2"). End (xlDown) 'Печатать только выбранные строки в "A" с LastRow = Range ("A2"). End (xlDown) .row 'Печатать только выбранные строки в "A"

Chris