ハイパーリンクのURLを隣のセルに表示する

質問

EXCELのシートの縦一列のセルにハイパーリンクの設定のある文字があります。
(1)この列の隣の列にそれぞれのハイパーリンクのURLを表示する。
(2)この列の文字表示を全てURLに一致させる。

(1)または、(2)は手作業でも出来ますが、できれば一括処理したいのですが、関数または、マクロでいい方法がありましたら教えてください。

よろしくお願いします。

回答No.1

noname#123709 · ベストアンサー

これで大丈夫かな？
Sub test()
Dim i As Long
For i = 1 To Range("A65536").End(xlUp).Row
Cells(i, 1).Hyperlinks(1).TextToDisplay = Cells(i, 1).Hyperlinks(1).Address
Cells(i, 2).Value = Cells(i, 1).Hyperlinks(1).Address
Next i
End Sub

お礼

完璧です。有難うございました。