質問: エクセルでリンクされているurlを取り出したい exel2003です。 a列にサイト名が並んであり、すべてにurlアドレスがハイパーリンクされています。 つまりa列のどれかのセルをクリックするとブラウザが立ち上がり、リンク先のurlに飛びます。 この状態で、b列にハイパーリンクされているurlアドレスを入れたいのですが、どうすればいいのでしょうか? ひとつひとつなら手作業でできるのですが、数が多いので困っています。 よろしくお願いします。
回答: 失礼しました。vbの掲示板ではありませんでしたね。 しかし、excel の通常操作では難しいような気がします。 参考までに、マクロの登録&実行方法を記しておきます。 注:マクロを使うには、マクロのセキュリティーレバルを 「中」以下にしておく必要があります。 (1)(下準備)ツール ⇒ マクロ ⇒ セキュリティ 「中」か「低」にチェックを入れる ⇒ ok (「高」になっていた場合、一度excelを再起動する) (2)(vbの起動)ツール ⇒ マクロ ⇒ visual basic editor (この操作のショートカットは alt + f11 です) (3)(コードの書き込み)vbの画面が出たら、 挿入 ⇒ 標準モジュール module1 が挿入されますので、右側の広い場所へ 下記コードをコピ&ペーストしてください。 (sub からend sub まで10行) sub リンク表示() dim i as integer for i = 1 to 9999 if cells(i, 1).value = "" then exit for end if cells(i, 2).select selection.value = activecell.offset(, -1).hyperlinks(1).address next i end sub (4)(書き込み終了)vbの画面は閉じてください。 (この操作のショートカットは alt + q です) (5)(マクロの実行)あとは登録したマクロを動かすだけです。 ツール ⇒ マクロ ⇒ マクロ (この操作のショートカットは alt + f8 です) 今回は、「リンク表示」しかないはずですから、 実行を押してください。 a列に値があって、ハイパーリンクが設定してないセルが ある場合、エラー表示がでます。その時は、「終了」を 押下してください。 (不完全なコードですみません。どなたか修正していただければ、 ありがたいのですが。。。)