以前、ハイパーリンクを解除するマクロは、ハイパーリンクをまとめて削除するマクロで紹介しました。今回は、ハイパーリンクを解除したいんだけど、設定してあったアドレスは、残しておきたいというケースです。はじめに、ハイパーリンクからアドレスだけを取り出すマクロを、次にハイパーリンクを解除して隣にアドレスを抽出するマクロの2つを紹介します。20回のおさらいです。シート上のハイパーリンクすべてが削除されます。こちらは、選択範囲のセルに設定してあるハイパーリンクを解除します。どちらも、Hyperlinksコレクションに対してDeleteメソッドを実行して、対象範囲のすべてのHyperlinkオブジェクトを一括で解除するマクロです。セルを表すRangeオブジェクトが取得できます。はじめに、リンクに対して、変数の宣言をします。Hyperlinkのhが使われることが多いですが、ここではわかりやすくするためにリンクとしましょう。Next構文を使いループします。Sub実行したい処理は、アドレスを隣に取り出すということですね。リンク.Addressとできます。コードを実行すると、ハイパーリンクを隣の列に抽出することができました。Subハイパーリンクを解除してもアドレスを抽出アドレスを隣に取り出して、ハイパーリンクは削除するコードに変更します。リンク.Deleteを追加するだけです。