HYPERLINK関数からURL抜き出し

VBAからのHYPERLINK関数のアドレス取得法

いつもお世話になっています。Excel 2003のVBAについてご質問させてください。あるセル上に、下記のように別名が指定されたHYPERLINK関数があります。=HYPERLINK(配置先, ファイル名)現在、VBAよりHYPERLINK...

oshiete.goo.ne.jp

上記サイトのコードをお借りしました。

ちょっとだけ改造

Sub test2()
    
    Dim r As Range
    Set r = Sheets("Sheet1").Range("A3")
    
    Debug.Print GetURL(r)

End Sub


Function GetURL(ByRef rTarget As Range) As String
    Dim sStr1, sStr2, i
    Dim sStr3 As String

    If rTarget = "" Then Exit Function
    sStr1 = Split(rTarget.Formula, "HYPERLINK(")
    sStr2 = Split(sStr1(1), ",")
    

    For i = 0 To (UBound(sStr2) - 1)
        sStr3 = sStr3 & sStr2(i) & ","
    Next i
    sStr3 = Mid(sStr3, 1, Len(sStr3) - 1)
    Range("A999").Formula = "=" & sStr3
    GetURL = Range("A999").Value
    Range("A999").Clear
End Function