【URLフラグメント】ExcelでGetHyperlink関数作ったけどURLに＃が入ってると＃以降がゲットできない件を解決する方法

Excelを開いた状態でAlt + F11

挿入→標準モジュール

以下のコードを貼り付ける。（Function から End Functionまで）

Function GetHyperlink(セル As Range) As String
Dim sp As Shape
If セル.Hyperlinks.Count > 0 Then
GetHyperlink = セル.Hyperlinks(1).Address & "#" & セル.Hyperlinks(1).SubAddress
End If
For Each sp In ActiveSheet.Shapes
If セル.Address = sp.TopLeftCell.Address Then
GetHyperlink = GetHyperlink & vbLf & sp.Hyperlink.Address
End If
Next
End Function

セル.Hyperlinks(1).Address　←＃より前を取得できる

セル.Hyperlinks(1).SubAddress　←＃より後ろを取得できる

↓GetHyperlink関数が使えるようになる

　

以上