Excelのハイパーリンクを一括で削除する方法
 2007.06.07

Excelに、URLやメールアドレスを多数入力/コピーして、ハイパーリンクが張られた場合、いっぺんにハイパーリンクを削除したい場合があります。 一件ずつなら、右クリック→ハイパーリンク→ハイパーリンクの削除 とやれば消せますが、一度に全てとなるとどうもやり方が分かりません。 私の場合、以下のようなスクリプトを作ってあります。
Sub Del_HL()
Dim r
    With Selection
        For Each r In .Cells
            r.Hyperlinks.Delete
        Next
    End With
End Sub
んで、このVBAを登録したファイルを作っておいて、ハイパーリンクまみれのリスト一緒に開き、ハイパーリンクを消したい対象を選択し、「ツール」→「マクロ」→「マクロ」から、Del_HLを選んで消しています。 2007とかからは一括で削除できるようになっているんでしょうか? それとも、2000,2002,2003とかでも出来るけど私が知らないだけでしょうか? ご存知の方がいらっしゃれば、コメント欄に一言お教え下さい。
カテゴリー:Windowsアプリ