セルのURL

質問

excel のセルにURLを手入力すると、自動的にリンクされます。
別のスクリプト(CGI）で作成した***.xls　データを読み込むと、URLの部分が単なるテキストのなってしまい、リンクが無効です。
このリンクのテキストを、リンクが有効に変更したいのですがどうしたらできますか。
セルには　http://abc/def/hij.html 等と入力されています。
よろしくお願いします。

回答No.1

marbin · ベストアンサー

VBAで一括設定、でいかがでしょう？

Sub test()
Dim c As Range
For Each c In ActiveSheet.UsedRange
If c.Value Like "http*" Then
ActiveSheet.Hyperlinks.Add Anchor:=c, Address:=c.Value, TextToDisplay _
:=c.Value
End If
Next
End Sub

お礼

marbin　ありがとうございました。
御礼が遅くなってすみませんでした。