[[20041226071910]]　『ハイパーリンク先の一括編集について』（白龍）　ページの最後に飛ぶ

『ハイパーリンク先の一括編集について』（白龍）

はじめまして　白龍と申します
Excel2002　win xp pro　sp2適用済みを使用しております

早速　質問ですが　現在とあるデータがあるのですが　そのデータはクリックするとリンク先に飛ぶようになっています

しかし　私が必要なのは　リンク先のURLで編集されたものなのです

そこで　一括変換できないものかと　ご質問させていただいてます

　　　　A　　　　B　　　C

１　　○○名前　←これをクリックするとリンク先に飛ぶようになっています

しかし　私が欲しいのは

　　　　A　　　　B　　　　C

１　http://www○○←リンク先URL

と編集されたものなのです（ハイパーリンクのはってないもの）

そこで　いろんなサイトを回りこちらにたどり着きました
過去ログをみても　ハイパーリンクを一括して　削除する方法はありましたが
ハイパーリンク先に一括変換するのは見当たりませんでした

現在は　一件一件手作業で　上の○○名前　をクリックして　サイトに飛び　URLを表示させBの欄に貼り付け編集しなおしております

しかし　実は12000件あるので　途方にくれております

エクセルに関しては　恥ずかしながら　ド素人で　HPを見るたびに　へぇ～こんなことも出来るの？と驚いているレベルです

元々そんな機能はないのか？
あるとすれば　どうすればよいか　また　そういった特別なソフトがあるとか何でも結構ですので　ご教授頂けたらと思います

藁にもすがる思いです(>_<)
よろしく　お願いします　m(__)m

 リンク先URLをテキストで抽出するマクロです。
 A1:A15000のリンク先をB1:B15000に出力します。
 VBEの標準モジュールに↓を貼り付けて、実行してください。
 HYPERLINK関数のハイパーリンクについては無効です。
 （ramrun）

 Sub viewlink()
 On Error Resume Next
 For Each adr In Range("A1:A15000")
    adr.Offset(0, 1).Value = adr.Hyperlinks.Item(1).Address
 Next adr
 End Sub

早速のご回答大変ありがとうございます

まさか返事がもらえるとか　解決方法があるとか　思ってなかったので　
ものすごく嬉しいです

ありがとう　ございます　m(__)m

しかし　今回初めて　エクセルに触れたのですが　凄く奥が深くて面白そうですね
何だか　はまりそうです(>_<)

また何かあれば書かせてもらいます
ありがとうございました　m(__)m

白龍です

早速　ご報告です

お陰さまで　12000件　表示　コピー　貼り付け　から　開放されました(>_<)

年内に仕上げないといけなかったものですから　出来たときは魔法にかかったようで
飛び上がる程でした(^^ゞ

今　HPをいくつかやっているのですが　今まではフロントページでやっていたのですが
ビルダーに乗り換えて　フォトショップ+フラッシュMX+ビルダー8と勉強中ですが　
ついでにエクセルも。。なんて思ってしまいました(^^ゞ

しかし　実を言いますと　（ramrun）様がHNとは知らずに　一緒にこぴぺしてました。。
いやぁ　お恥ずかしい(^^ゞ

再度　ありがとう　ございました　大変助かりました　m(__)m

 いへいへ、どういたまして。
 かこいいFlashでも出来たら見しておくんなさいまし。
 （ramrun）

コメント返信：

[ 一覧(最新更新順) ]

[[20041226071910]] 『ハイパーリンク先の一括編集について』（白龍） ページの最後に飛ぶ

[[20041226071910]]　『ハイパーリンク先の一括編集について』（白龍）　ページの最後に飛ぶ