エクセルのハイパーリンクで質問です。

添付画像のようにA1にはハイパーリンクが付いているのですが、
A2以降は付いていないです。

これを一括で全てハイパーリンクをオンにする操作方法は有りますでしょうか？

No.1 ベストアンサー 回答者： kigoshi 回答日時： 2023/11/06 14:48

Sub addLink()

Dim rIdx As Long
rIdx = 1
Do Until Cells(rIdx + 1, 1).Value = ""
rIdx = rIdx + 1
Cells(rIdx, 1).Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:=Cells(rIdx, 1).Value
Loop
End Sub

1）[Alt]＋[F11]
2）[挿入]→[標準モジュール]
3）右側のエディタエリアに上記コードを貼りつけ
4）[F5]

この回答へのお礼

すごい！
一発で出来ました！！
今まで１件づつやってたのは何だったのだろう、、
すごくありがとうございます。＼(^o^)／

お礼日時：2023/11/07 07:55