Webクエリで取り込んだ文字列のハイパーリンクをurl表示にする方法

質問

エクセルについて質問させていただきます。
Webクエリで取り込んだ文字列のハイパーリンクを
一括でurl表示にしたいのですがどうすればよいかわかりません。

あああ　…　http//aaa.com/ のリンクが貼られています。
いいい　…　http//bbb.com/ のリンクが貼られています。
ううう　…　http//sss.com/ のリンクが貼られています。

↑これを

http//aaa.com
http//bbb.com
http//sss.com

としたいのです。全部同列にあります。
困っているのでぜひぜひ教えてください。
どうぞよろしくお願いします。

回答No.4

xls88 · ベストアンサー

Dim myLink As Hyperlink

For Each myLink In Range("A1:A50").Hyperlinks
myLink.TextToDisplay = myLink.Address
'↓でも可
'myLink.Range.Value = myLink.Address
Next myLink

お礼

すぐにお返事できずすいませんでした。
xls88さんから教えていただいた通りやったところ
無事解決できました。

本当にありがとうございました！

回答No.3

xls88

レスがないですが、進んでいますか？
よく解らなかったのですが
＞テキストファイルの中にはURL表示はなく
＞ハイパーリンクです。
↑の意味は、例えば、このページの上部にありますが
教えて！goo > デジタルライフ > ソフトウェア > Office系ソフト
というように表示されているハイパーリンクから、URLアドレスを取り出したいという事ですか？
それなら
MsgBox ActiveCell.Hyperlinks(1).Address
で取り出せます。

全部同列にあるということですから、For文で回せばよいと思います。
Dim myLink As Hyperlink
For Each myLink In 対象セル範囲.Hyperlinks
・処理
Next myLink

回答No.2

xls88

＞回答番号：No.1 この回答への補足
捕捉内容は、試された結果ですか？
セル表示が、提示された内容なら、ハイパーリンクであろうが無かろうが無関係だと思います。
うまくいかないのなら、どのようにされて、どんな結果になりますか？
エラーが表示されますか？

回答No.1

xls88

テキストファイルの中からURLを抽出するには？
http://questionbox.jp.msn.com/qa1987189.html

↑のmasa_peeさんの回答が参考になると思います。
適用出来ない場合、捕捉で質問してください。

補足

テキストファイルの中にはURL表示はなく
ハイパーリンクです。

<a href=http://aaa.com/>あ</a>
<a href=http://bbb.com/>い</a>
<a href=http://sss.com/>う</a>

webクエリはhtmlで読み込んでいるので
通常のハイパーリンクとは違う？ようです。
（右クリックで「ハイパーリンクの削除」が表示されないので。）

すいません。お手数掛けます。