读取列，选择超链接，然后粘贴链接名称

Question

我有一列数据。我想选择包含超链接的单元格并仅打印这些单元格的值。

我有以下代码来提取超链接。我希望单元格 A1 中有一个名为"hello"的链接，它不会打印链接本身，而是打印"hello"。

Sub ExtractHL()
Dim HL As Hyperlink
For Each HL In ActiveSheet.Hyperlinks
HL.Range.Offset(0, 1).Value = HL.Address
Next
End Sub

我刚刚的另一个想法是说，如果一行中的单元格不包含超链接，则删除该行，但我不确定如何否定"对于工作表中的每个 HL"行。

Answer 1

更改"HL.地址"到HL。范围粘贴该范围。