【ExcelVBA】ハイパーリンクの削除・解除

ExcelVBA,セルの操作

セル

ハイパーリンクの削除

セルA1のハイパーリンクを削除する例
Sub Sample()

  With ThisWorkbook.Worksheets("Sheet1").Range("A1")
    .Hyperlinks.Delete 'ハイパーリンク削除
  End With

End Sub
※罫線と背景色も、一緒に消えます。
※罫線と背景色を残したい場合は、下記のハイパーリンクの解除を参照ください。

ハイパーリンクの解除

セルA1のハイパーリンクを解除する例
Sub Sample()

  With ThisWorkbook.Worksheets("Sheet1").Range("A1")
    .ClearHyperlinks               'ハイパーリンク解除
    .Font.Underline = False        '文字のアンダーライン解除
    .Font.ColorIndex = xlAutomatic '文字色を自動設定
  End With

End Sub
※4行目でハイパーリンクを解除しただけでは、文字は青色、文字下にアンダーラインが残ります。
※5行目・6行目でアンダーラインの除去と文字色を標準に戻しています。
※罫線と背景色は、そのまま残ります。


シート内全部

ハイパーリンクの削除（シート内全部）

シート内のハイパーリンクを全て削除する例 
Sub Sample()

  With ThisWorkbook.Worksheets("Sheet1")
    .Hyperlinks.Delete 'ハイパーリンク削除
  End With

End Sub
※ハイパーリンクのセルに関わっていた罫線と背景色も一緒に消えます。