ベストアンサー

エクセルでハイパーリンクのＵＲＬだけを文字抽出したい

2006/08/23 11:32

ホームページからコピーし、エクセルにリンク文字をペーストすると、青文字（文字にハイパーリンクがかかった状態）が貼りつきます。その張り付いた文字の、リンク先ＵＲＬを文字としてほしい（http○○・・）のですが、できますか？青文字を右クリックしてハイパーリンクの編集からＵＲＬは見られるのですが、たくさんのリンクリストからＵＲＬだけを抽出するのが大変なので、よい方法がありましたらお願いします。

baffalo30
お礼率51% (74/145)

オフィス系ソフト
回答数5
ありがとう数5

みんなの回答 （5）
専門家の回答

質問者が選んだベストアンサー

ベストアンサー

bonaron
ベストアンサー率64% (482/745)

2006/08/23 14:35 回答No.5

No3 です。サブアドレスの存在を忘れていました。訂正です。 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, 1) = a 　　Next End Sub

質問者

お礼 2006/08/23 17:19

大変ありがとうございます！一瞬でできました！感動しました。感謝感謝です。本当にありがとうございました！

ログインすると、全ての回答が全文表示されます。

その他の回答 (4)

ks3285
ベストアンサー率20% (1/5)

2006/08/23 14:06 回答No.4

先ほど、書き込みしたのですが、 B列全体だと何も入力されていないセルに0が入ってしまいます。範囲を指定してください。（ハイパーリンクになっていない文字のセルを選択してしまっても問題はありません。

ログインすると、全ての回答が全文表示されます。

bonaron
ベストアンサー率64% (482/745)

2006/08/23 13:12 回答No.3

現在アクティブなシートのすべてのハイパーリンクの URL を右隣のセルに書き出すマクロです。 Public Sub GetURL() 　　Dim h As Hyperlink 　　For Each h In ActiveSheet.Hyperlinks 　　　　h.Range.Offset(0, 1) = h.Address 　　Next End Sub

ログインすると、全ての回答が全文表示されます。

ks3285
ベストアンサー率20% (1/5)

2006/08/23 12:11 回答No.2

抽出方法は申し訳ないことにわからないのですが、空いているセルに数字で「1」（「」はいらないです）を入れるたとえばA1に1を入力する A1を選択してコピー URLが入ってしまっているセルを選択し（B列ならB列全体を選択して）ツール→編集→形式を選択して貼り付け→乗算→OK ではいかがでしょうか？

ログインすると、全ての回答が全文表示されます。

tetnon2000
ベストアンサー率43% (92/213)

2006/08/23 11:41 回答No.1

抽出方法は別として、とりあえずハイパーリンクを文字列にするには、メニューのツールー＞オートコレクトのオプションを開き、入力オートフォーマットのタブを選択してください。入力中に自動で変更する項目の、「インターネットとネットワークのアドレスをハイパーリンクに変更する」にチェックをはずしてください。そのあと、ハイパーリンクの列を別の列にコピーすればだたの文字列になるはずです。

ログインすると、全ての回答が全文表示されます。