打印一系列超链接

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 =范围（ “A2”）。完（xlDown） '中的 “A” 与 LASTROW =范围（ “A2”）。完（xlDown）.row打印只有所选行'在“A”中仅打印选定的行

Chris