セルにURLをコピペしてそのままの状態だと、
リンクが貼られていない状態（黒い文字）で表示されてます。
そのセルをダブルクリックで編集モードにし、Enterを押すと、
URLへのリンクが貼られます。
上記のような、黒い文字でURLが入力されているセルが膨大な量あるのですが、
ひとつひとつダブルクリック（かF2）＞Enterするのは大変なので、 とても困っています。
各セルは同じリンク先を参照するのではなく、
URLはひとつひとつ異なりますので、
全セルを選択＞ハイパーリンクの挿入 の手順は不可能です。
何かよい方法がありますでしょうか？
よろしくお願いいたします。
No.1
13539
1198
27pt
マクロでやれば一発です。
A列に入っているものとします。
A列の一行目から 入っている行すべてまで。
違う列の場合は、
Cells(a, 1) の 1を その列に変更してください。
2 とか "B" というように。
3
2
Sub Macro1()
'
' Macro1 Macro
'
For a = 1 To 65536
b = Cells(a, 1)
If b = "" Then Exit For
ActiveSheet.Hyperlinks.Add Anchor:=Cells(a, 1), Address:=b, TextToDisplay:=b
Next a
End Sub
No.1
135391198
ここでベストアンサー
27pt
マクロでやれば一発です。
A列に入っているものとします。
A列の一行目から 入っている行すべてまで。
違う列の場合は、
Cells(a, 1) の 1を その列に変更してください。
2 とか "B" というように。
Sub Macro1()
'
' Macro1 Macro
'
For a = 1 To 65536
b = Cells(a, 1)
If b = "" Then Exit For
ActiveSheet.Hyperlinks.Add Anchor:=Cells(a, 1), Address:=b, TextToDisplay:=b
Next a
End Sub
できました！
一発で行全部にリンクがはられるので、気分が爽快ですね。
助かりました、ありがとうございました。
No.2
933
27pt
りこうなやり方ではないかもしれませんが、
最初にリンクが貼られたセルをコピーし、
他のセルに形式を選択して貼り付け(書式)
でもできます。
なるほど、盲点でした！
簡便な操作ですので、今後に役立ちそうです。
勉強になりました、ありがとうございました。
No.3
1366141
26pt
マクロ、コピペと来たので関数の方法も参考までに挙げておきます。
A列にURLが入っているとして、
B1=HYPERLINK(A1)
と入力して該当行までフィルコピー。
これでB列にハイパーリンク表示されます。
A列のみにしたい時は、B列を列選択してコピー、そのまま右クリックで「形式を選択して貼り付け」の値貼り付けをし、A列を削除します。
既出の方法とちょっと異なる点は、
例えば、A列にURL、B列にURLページタイトルが入っているとして、
C1=HYPERLINK(A1,B1)
と入力すると、URLそのものではなく、URLページタイトルで表示されるリンクが簡単に作れます。
以上ご参考まで。
なるほど！便利ですね。
関数を入力し、その後A列を削除すると。
手順も簡単で、使い易いですね。
ありがとうございます。
ムーンドルド瑠川菜月
2007/10/03 19:27:56
1
1
1
できました！
一発で行全部にリンクがはられるので、気分が爽快ですね。
助かりました、ありがとうございました。