ハイパーリンク情報を別セルへコピー

*************************************************************
＜例＞・・・A列にはハイパーリンクされているセルとされていないセルが混在です
　A列（社名）　　B列（郵便番号）　　C列（住所）　　D列（電話番号）

　(株)ＡＢＣ商事　　　100-1234　　　　　　　東京都港区…　03-1234-5678
　ＸＹＺ運送（有）　　　200-6789　　　　　　　東京都港区…　03-8765-4321
　(株)あいう物産　　　100-1234　　　　　　　東京都港区…　03-9999-0001
　　　　　　　　　　　　　　↓VBA実行↓
　A列（社名）　　B列（郵便番号）　　C列（住所）　　D列（電話番号）
　　　E列
　(株)ＡＢＣ商事　　　100-1234　　　　　　　東京都港区…　03-1234-5678　　　
http://www.abc.co.jp
　ＸＹＺ運送（有）　　　200-6789　　　　　　　東京都港区…　03-8765-4321　　
　
　(株)あいう物産　　　100-1234　　　　　　　東京都港区…　03-9999-0001　　
http://www.aiu.ne.jp
*************************************************************
上記のようなデータがExcel上に有ります。
A列にはハイパーリンクされているセルとされていないセルが混在していますが、この、情報を別の列に一括でコピー出来ないでしょうか？
現在は、１つずつ、A列のURLをE列にコピペしています。
非常に手間が掛かり困っています。
よろしくお願い致します。

No.1 回答者： noname#97729 回答日時： 2007/06/28 20:03

http://oshiete1.goo.ne.jp/qa2356920.html
こちらを参考にしました。


【手順】
1.　[Alt]+[F11]でVisual Basic Editor起動（以下VBE）
2.　VBE画面で[挿入]-[標準モジュール]クリック
3.　2.で開いたウインドウにVBAコードをコピー＆ペースト
4.　VBEを閉じる
5.　[ツール]-[マクロ]-[マクロ]で実行

-----------------------------------------------------------

Public Sub GetURL()
Dim h As Hyperlink
Dim a As String
Dim s As String
For Each h In ActiveSheet.Hyperlinks
a = h.Address
s = h.SubAddress
If s <> "" Then
a = a & "#" & s
End If
h.Range.Offset(0, 4) = a
Next
End Sub

この回答へのお礼

ヒエーーー！驚きました！
”アッという間に”出来るんですね。
今まで何時間も掛けてコピペしていたのが、バカみたいです。

感謝感激です。有難う御座いました。

お礼日時：2007/06/29 09:12