（エクセル）ハイパーリンク先のURLをセルに表示

質問

教えてください。

エクセル2000で、

列Aに数字がはいっていて、その数字があるURLに、
ハイパーリンクしています。
列Bにそのハイパーリンク先のURLを表示させたいのですが、
可能ですか？
可能でしたら、どうしたらいいですか？

よろしくお願いします。

回答No.1

kbonb · ベストアンサー

こんにちは

Sub test()
Dim h As Hyperlink

Application.ScreenUpdating = False
For Each h In ActiveSheet.Columns(1).Hyperlinks
h.Parent.Offset(0, 1).Value = h.Address
Next
Application.ScreenUpdating = True
End Sub

でいかがでしょう？

参考URL：

http://www2.odn.ne.jp/excel/

お礼

kbonbさま。
ありがとうございますーーーーーー♪
できました！！
すごいすごい。すばらしい。
よいURLも教えていただいてありがとうございます。
気持ち的には30点！