使用VBA从多个单元格中提取超链接

Question

我想遍历一个列，并提取要在代码中使用的每个超链接（将其与某些文本进行比较）。

关于如何进行提取部分的任何好的指示？

Answer 1

您可以使用.Hyperlinks(1).Address获取超链接

例如，这将提取从A1到A5的超链接

Sub Sample()
    Dim i As Long

    For i = 1 To 5
        Debug.Print Range("A" & i).Hyperlinks(1).Address
    Next
End Sub