小编use*_*866的帖子

如何编写 Excel VBA 代码来检索特定单元格中超链接的 url/地址？

我正在处理我的工作簿的sheet2，它包含大约300行。每行在“AD”列处都有一个唯一的超链接。我想要做的是循环“J”列中的每个空白单元格，并将其值从空白更改为“AD”列单元格的超链接 URL。我目前正在使用这段代码：

do while....
    NextToFill = Sheet2.Range("J1").End(xlDown).Offset(1).Address
    On Error Resume Next
    GetAddress = Sheet2.Range("AD" & Sheet2.Range(NextToFill).Row).Hyperlinks(1).Address
    On Error GoTo 0
loop

上面代码的问题是它总是获得第一个超链接的地址，因为代码是.Hyperlinks(1).Address. 是否有办法通过范围地址获取超链接地址，就像也许一样sheet1.range("AD32").Hyperlinks.Address？