あるURLの一覧が書いてあるエクセルシートがあるのですが、全部リンクしない設定になっています。これを、クリックするとそのページにいける設定にするにはどうしたらいいでしょう？一括で出来る方法をお願いします。

A1 のセルから A列に URL が入ってるとしますと、

B1 に次の式を入れ、リンク付きにします。

=HYPERLINK(A1,A1)

B列の必要な範囲に式をコピーすると、B列にリンクが完成します。

URLはダミーです。

http://www.yahoo.co.jp

http://www.news-web.org

というセルがあるとします。

ちょっと手の込んだ方法ですが、

このセルを秀丸などのエディタにコピーし、

これを置換して編集して

<a href=”http://www.yahoo.co.jp”>http://www.yahoo.co.jp</a>

<a href=”http://www.news-web.org”>http://www.news-web.org</a>

としてhoge.htmlとして保存します。

それをIEで開いてコピーしてエクセルに貼り付ければOKです。

置換はperlなどの正規表現を使うとよいです。

Sub Macro1()

For i = 2 To 10

Cells(i, 2).Hyperlinks.Add Anchor:=Cells(i, 2), Address:= _

Cells(i, 2).Text, TextToDisplay:=Cells(i, 2).Text

Next

End Sub

このようなマクロを利用することで一括して設定可能です。

この例ではB2～B10までのセルに対してリンクを張っています。たとえばA3～A8の場合はCells(i,2)の部分をCells(i,1)に置き換え、さらにfor i=2 to 10の部分をfor i=3 to 8のようにします。

　仮にＡ１～Ａ１５までＵＲＬが入力されているとします。

　まず、Ａ１にカーソルを移動し、Ｆ２を押し、エンターキーを押します。

　これで、Ａ１のＵＲＬは、クリック出来るようになったはずです。

　クリックできない場合は、Ａ１で右クリック→ハイパーリンクを選びます。そして、「表示文字列」と書いてある文字列をコピーして「アドレス」と書いてあるところに貼り付け、ＯＫボタンを押します。これで、Ａ１はクリック出来るようになったはずです。

　次に、Ａ１を右クリック→コピーを選択します。

　そして、Ａ２～Ａ１５を選択し、「形式を選択して貼り付け」を選びます。

　次に、「乗算」を選んでＯＫボタンを押します。

　これで、Ａ１～Ａ１５の全てのＵＲＬがクリック出来るようになったはずです。