Ａ列の最終行までハイパーリンクを付けたい

質問

Ａ列の最終行までハイパーリンクを付けたいのですがコードがわかりません。

Sub test()
Dim i As Long
For i = 1 To Cells(Rows.Count, "A").End(xlUp).Row
'ハイパーリンクにするコード
Next i
End Sub

まではわかりました。

表示文字列もＵＲＬもセルに入ってる値にしたいです。
ご教授よろしくお願いします。

回答No.1

keithin · ベストアンサー

こんばんは。

「新しいマクロの記録」で実際に「セルにハイパーリンクを設定する」という操作を記録マクロに録ってみると、ほとんどそのまま利用できるサンプルマクロを入手できます。

作成例：
sub macro1()
　dim h as range
　for each h in range("A1:A" & range("A65536").end(xlup).row)
　　activesheet.hyperlinks.add anchor:=h, address:=h.value
　next
end sub

お礼

ご回答ありがとうございます。