マクロで選択した各列の5行目以降に単独または連続コピペしたハイパーリンク付き文字列を下記のマクロにて第二階層分を上から順番にそのおのおの同じ行の隣の列にテキストファイルにてコピペ(セル内32767文字制限以下)してから置き換えで「*)は、」と「。*」で文字列を省略してください。
Sub HyperlinkFollowTest()
On Error Resume Next
Dim h As Hyperlink
Dim sht As Worksheet
Set sht = ActiveSheet
'// シートの全ハイパーリンクをループ
For Each h In sht.Hyperlinks
'// ハイパーリンクを実行
Call h.Follow
Next
End Sub
「第二階層分」の意味が解らないのですが、
まさか「*)は、あいうえお。*」がリンク先はないと思うので、
ハイパーリンクでジャンプ先がF1なら、
F1に「*)は、あいうえお。*」が入っている、と勝手に解釈しました。
他ブック、やインターネットへのハイパーリンクでは、何も表示されません。
Option Explicit
'
Sub HyperlinkFollowTest()
Dim Hyperlink As Hyperlink
Dim Address As String
'
For Each Hyperlink In ActiveSheet.Hyperlinks
On Error Resume Next
Address = Range(Hyperlink.Name)
Address = Replace(Address, "*)は、", "")
Address = Replace(Address, "。*", "")
Range(Hyperlink.Range.Address).Offset(, 1) = Address
Next Hyperlink
End Sub
お礼
この度は、最初にSI299792さんをはじめありがとうございました