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

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

動画で3行マクロ解説

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

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

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

https://youtu.be/rfVZU1Uhavc

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

ハイパーリンクをまとめて削除するマクロマクロ記事解説へ戻る

次の動画3行マクロ動画講座15回