vba - Excel VBA 获取特定单元格的超链接地址

Question

如何编写 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？

Answer 1

不知道为什么我们要大惊小怪，代码很简单

Sub ExtractURL()
    Dim GetURL As String
    For i = 3 To 500
        If IsEmpty(Cells(i, 1)) = False Then
            Sheets("Sheet2").Range("D" & i).Value = 
               Sheets("Sheet2").Range("A" & i).Hyperlinks(1).Address
        End If
    Next i
End Sub