Find centralized, trusted content and collaborate around the technologies you use most.
Teams
Q&A for work
Connect and share knowledge within a single location that is structured and easy to search.
我想遍历一列,并提取要在代码中使用的每个超链接(将其与某些文本进行比较)。
关于如何进行提取部分的任何好的指示?
您可以使用.Hyperlinks(1).Address获取超链接
.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