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

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”行...

编辑：找到答案。将“ HL.Address”更改为HL.Range会粘贴该范围。

因此，新代码如下：

  

Sub ExtractHL（）

     

将HL视作超链接

     

对于ActiveSheet.Hyperlinks中的每个HL

     

HL.Range.Offset（0，1）.Value = HL.Range

     

下一步

     

结束子

Answer 1

将“ HL.Address”更改为HL.Range会粘贴该范围。