ハイパーリンクのアドレスを取得したい

質問

Ａ１セルにリンクが張ってあるのですが、
それをＶＢＡを使って、Ｂ１セルにＡ１のアドレスを書き出したいのですが、
どうすればいいですか？

Sub test()
Range("b1").Value = Range("a1").Hyperlink.Address
End Sub

だと、
「オブジェクトは、このプロパティまたはメソッドをサポートしていません。」
となってしまいます。

回答No.1

osamuy · ベストアンサー

Range("A1").Hyperlinks(1).Address

お礼

ありがとうございました。