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

日々の実務では、ハイパーリンクが大量にあると管理が大変です。特に確認メッセージが出るたびに中断されると作業効率が大幅に低下します。この記事では、VBAを使ってハイパーリンクを非表示にする方法を紹介し、業務の効率化を実現します。

サンプルコード

VBA

Option Explicit
Sub HideHyperlinks()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("Sheet1")
    With Application
        .ScreenUpdating = False
        .DisplayAlerts = False
    End With
    Dim lastRow As Long, i As Long
    lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row
    For i = 1 To lastRow
        If Not IsEmpty(ws.Hyperlinks(i)) Then
            ws.Hyperlinks(i).Delete
        End If
    Next i
    With Application
        .ScreenUpdating = True
        .DisplayAlerts = True
    End With
End Sub

よくある質問

Q 元に戻せますか？

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

Q エラーが出たら？

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