右クリックはもう不要！Excelのハイパーリンク操作（抽出・削除・設定）をマクロで自動化するテクニック

Sub URLを抽出する()
    ' 選択したセルの右隣にURLを表示します
    Dim rng As Range
   
    ' エラーが起きても止まらないようにする（リンクがない場合など）
    On Error Resume Next
   
    For Each rng In Selection
        ' ハイパーリンクが設定されている場合のみ処理
        If rng.Hyperlinks.Count > 0 Then
            ' AddressプロパティでURLを取得
            rng.Offset(0, 1).Value = rng.Hyperlinks(1).Address
        End If
    Next rng
   
    On Error GoTo 0
    MsgBox "抽出完了しました！", vbInformation
End Sub

Sub ハイパーリンクを全削除()
    ' 選択範囲のリンクを解除します（文字は残ります）
    Selection.Hyperlinks.Delete
   
    MsgBox "リンクを削除しました。", vbInformation
End Sub

Sub リンクを一括設定()
    Dim rng As Range
   
    For Each rng In Selection
        ' セルの値を使ってハイパーリンクを設定
        If rng.Value <> "" Then
            ActiveSheet.Hyperlinks.Add _
                Anchor:=rng, _
                Address:=rng.Value
        End If
    Next rng
   
    MsgBox "すべてリンク付きに変換しました", vbInformation
End Sub