ハイパーリンクをまとめて削除するマクロ

ハイパーリンクを一括で削除

3行マクロ 20回

エクセルのハイパーリンクを一括で削除するマクロ

Excelでは、セルにメールアドレスやホームページのURLを入力すると、ハイパーリンクが自動設定されます。リンクが簡単に設定できて便利です。
しかしこれも編集する時は、別です。いちいちメールソフトやブラウザソフトが立ち上がり、編集の邪魔になります。
そこで、Excel2013で自動的にハイパーリンクを設定しないや ハイパーリンクの設定と削除を紹介してきました。
しかしハイパーリンクの設定を後から削除しようとすると、セルを右クリックしハイパーリンクの削除を選ぶのですが、1つずつしか削除できません。 （Excel2010以降からは、複数のハイパーリンクを一括削除できるようになりました。範囲を選択して、右クリックからハイパーリンクの削除を選択します。）
今回は、ハイパーリンクをまとめて削除するマクロを作成しましょう。
（サンプルファイルは、こちらから 3行マクロ20回サンプルデータ）
Excelバージョン：Excel2016201320102007

ハイパーリンクをまとめて削除するマクロをつくる

予め「カンタン！Excel講座」からリンク付きの文字列をコピーして貼り付けてあります。リンクをクリックするとURLが開きます。

B2セルを選択した状態から、マクロの記録を開始しました。

マクロに名前を付けます。マクロの保存先は、個人用マクロブックにします。

右クリックメニューから、ハイパーリンクの削除を選択します。

リンク付きの文字列からハイパーリンクが削除されました。マクロの記録を終了します。

コードを見てみましょう。任意の選択範囲にたいして、ハイパーリンクを削除するコードの完成です。

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