打印一系列的超链接

我怎样才能得到这个打印列“D：E”中find的超链接文件通过select列“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

YOu需要引用最后一行而不是其中的数据，即replace

LastRow = Range（“A2”）。End（xlDown）'仅在“A”中打印带有LastRow =范围（“A2”）的选定行结束（xlDown）.row'仅打印“A”

克里斯