1

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

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

4

1 回答 1

3

您可以使用.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
于 2012-07-02T07:53:54.517 回答