リンクを解除してアドレスを取り出す

マクロ講座53回　

Excel 2013　マクロ講座 53回

ハイパーリンクを解除してもアドレスは保存

以前、ハイパーリンクを解除するマクロは、ハイパーリンクをまとめて削除するマクロで紹介しました。

今回は、ハイパーリンクを解除したいんだけど、設定してあったアドレスは、残しておきたいというケースです。
はじめに、ハイパーリンクからアドレスだけを取り出すマクロを、次にハイパーリンクを解除して隣にアドレスを抽出するマクロの２つを紹介します。
（サンプルファイルは、こちらからマクロ講座53回サンプルデータ）

対象範囲のハイパーリンクを解除するには

ではまず、3行マクロ講座 20回のおさらいです。
アクティブシートのハイパーリンクを解除するマクロは、

Sub アクティブシートのハイパーリンク削除()
    ActiveSheet.Hyperlinks.Delete
End Sub

で、シート上のハイパーリンクすべてが削除されます。

こちらは、選択範囲のセルに設定してあるハイパーリンクを解除します。

Sub 選択したハイパーリンク削除()
    Selection.Hyperlinks.Delete
End Sub

どちらも、Hyperlinksコレクションに対してDeleteメソッドを実行して、対象範囲のすべてのHyperlinkオブジェクトを一括で解除するマクロです。。

セルに設定されたアドレスを隣のセルに書き出すには、

HyperlinkオブジェクトのRangeプロパティでは、そのハイパーリンクが設定されているセルを表すRangeオブジェクトが取得できます。
ハイパーリンクを解除してアドレスを取り出すマクロ1

はじめに、リンクに対して、変数の宣言をします。
Hyperlinkのhが使われることが多いですが、ここではわかりやすくするためにリンクとしましょう。

Dim リンク As Hyperlink

個々のリンクのアドレスを取り出すためには、For Each ～ Next構文を使いループします。もうお馴染みですね。
For　Each～Nextステートメント

コードを構文に当てはめると、

Sub ハイパーリンクを隣のセルに抽出()
    Dim リンク As Hyperlink
    For Each リンク In Selection.Hyperlinks
        実行したい処理
     Next リンク
End Sub

実行したい処理は、アドレスを隣に取り出すということですね。
これは、Rangeプロパティでハイパーリンクが設定されているセルを表すRangeオブジェクトが取得できるのですから、

リンク.Range.Offset(0, 1).Value = リンク.Address

とできます。

コードを実行すると、
ハイパーリンクを解除してアドレスを取り出すマクロ3

ハイパーリンクを隣の列に抽出することができました。
ハイパーリンクを解除してアドレスを取り出すマクロ4

コードは、

Sub ハイパーリンクを隣のセルに抽出()
    Dim リンク As Hyperlink
    For Each リンク In Selection.Hyperlinks
        リンク.Range.Offset(0, 1).Value = リンク.Address
     Next リンク
End Sub

ハイパーリンクを解除してもアドレスを抽出

アドレスを隣に取り出して、ハイパーリンクは削除するコードに変更します。
リンク.Deleteを追加するだけです。

Sub ハイパーリンクを解除して抽出()
    Dim リンク As Hyperlink
    For Each リンク In Selection.Hyperlinks
        リンク.Range.Offset(0, 1).Value = リンク.Address
        リンク.Delete
    Next リンク
End Sub