【VBA】ハイパーリンクを確認メッセージを出さずに削除する方法

手作業でハイパーリンクを一つ一つ削除するのは時間がかかります。この記事では、VBAを使って簡単にハイパーリンクを一括で削除する方法を紹介します。確認メッセージが出ないように設定することで、業務効率化に貢献します。

サンプルコード

VBA

Option Explicit
Sub RemoveHyperlinks()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("Sheet1")
    Application.DisplayAlerts = False ' 確認メッセージを出さない設定
    For Each cell In ws.UsedRange.Cells
        If cell.Hyperlinks.Count > 0 Then
            For i = cell.Hyperlinks.Count To 1 Step -1
                cell.Hyperlinks(i).Delete
            Next i
        End If
    Next cell
    Application.DisplayAlerts = True ' 確認メッセージを再設定
End Sub

よくある質問

Q 元に戻せますか？

VBAの実行結果は「元に戻す」が効きません。必ずバックアップを取ってから実行してください。

Q エラーが出たら？

シート名や列番号が正しいか確認してください。