ハイパーリンクをまとめて削除

ハイパーリンクをまとめて削除したりURLを取り出す

動画で3行マクロ解説

選択範囲やシート上のハイパーリンクを削除

動画版「今日は Excel のハイパーリンクを まとめて削除する3行マクロを作ります。 Excel に ウェブサイトの URL やメールアドレスを入力すると自動的にハイパーリンクを設定するという機能があります。 便利な反面、編集する時には勝手にウェブサイトブラウザやメールソフトが立ち上がり面倒くさい 困ることが多いのも事実です。 そんな時にはハイパーリンクを削除したいなと思うに違いありません。」です。
今日は Excel のハイパーリンクを まとめて削除する3行マクロを作ります。 Excel に ウェブサイトの URL やメールアドレスを入力すると自動的にハイパーリンクを設定するという機能があります。 便利な反面、編集する時には勝手にウェブサイトブラウザやメールソフトが立ち上がり面倒くさい 困ることが多いのも事実です。 そんな時にはハイパーリンクを削除したいなと思うに違いありません。 しかしまたハイパーリンクを設定するときのことを考えてハイパーリンクから URL を隣のセルに取り出しておきましょう。 表示文字列と URL からハイパーリンクを作成するにはハイパーリンク関数を使います。

選択範囲やシート上のハイパーリンクを削除する、ハイパーリンクからURLを取出すマクロ

VBA 選択範囲やシート上のハイパーリンク、メールリンクを削除、URLを取出すマクロ

'==============================================================
'=３行マクロ講座入門編　14回　https://kokodane.com/
'==============================================================
Sub 選択ハイパーリンクを削除()
    Selection.Hyperlinks.Delete
End Sub

Sub シートのハイパーリンク削除()
    ActiveSheet.Hyperlinks.Delete
End Sub

Sub アクティブセルのハイパーリンクからアドレスを取り出す()
    With ActiveCell
    .Offset(0, 1) = .Hyperlinks(1).Address
    End With
End Sub

Sub 選択範囲のハイパーリンクからアドレスを隣に取り出し()
    Dim URL As Hyperlink
    For Each URL In Selection.Hyperlinks
        URL.Range.Offset(0, 1).Value = URL.Address
     Next URL
End Sub