Excelでハイパーリンクを一括で設定・置換・削除する方法

当サイトはアフィリエイト広告を利用しています。

今回は、Excelでハイパーリンクを一括で設定・置換・削除する方法をご紹介します。

ハイパーリンクを設定したい文字列や、リンク先を変更したいハイパーリンク、文字列に戻したいハイパーリンクなどがたくさんある場合、この方法を知っていると作業時間を短縮できて便利ですよ。

目次非表示

Excelでハイパーリンクを一括で設定する方法
- 方法1：HYPERLINK関数を使う
- 方法2：マクロを使う
Excelでハイパーリンクのアドレスを一括で置換する方法
- 方法1：マクロを使う
- 方法2：検索と置換機能を使う
Excelでハイパーリンクを一括で削除する方法
- 方法1：ハイパーリンクの削除を行う
- 方法2：TEXT関数を使う
ExcelでURLやメールアドレスを自動でハイパーリンクにする方法
まとめ

目次へ

Excelでハイパーリンクを一括で設定する方法

Excelでハイパーリンクを一括で設定する方法には、以下のようなものがあります。

HYPERLINK関数を使う
マクロを使う

方法1：HYPERLINK関数を使う

Webサイトやローカルファイルへのハイパーリンクを一括で設定する場合は、「HYPERLINK関数」を使いましょう。

HYPERLINK関数（ハイパーリンク関数）は、指定したリンク先へのハイパーリンクを作成する関数です。

HYPERLINK関数の構文

HYPERLINK（リンク先, ［リンク文字列］）

リンク先（必須）: リンク先のアドレスやパスを指定する。
リンク文字列（省略可）: セルに表示する文字列を指定する。省略すると【リンク先】として指定した文字列がリンク文字列となる。

たとえば、A2以下にWebサイトのアドレスが入力されていて、そのアドレスへのハイパーリンクをB2以下に表示したい場合は、B1に=HYPERLINK(A2)と入力し、この数式を任意のセルまでオートフィルします。

参照するセルが完全なアドレスではない場合は、=HYPERLINK("https://example.com"&A2)のように、省略されている文字列を&演算子で追加しましょう。

方法2：マクロを使う

シートへのハイパーリンクを一括で設定する場合は、「マクロ」を使いましょう。マクロを使うと、たとえば「一番左のシートに、左から2番目以降のシートへのハイパーリンクを一括で設定する」といったことができます。

コードなどは以下の記事でご紹介していますので、そちらを参考にしてみてください。

Excelでシート名を取得！一覧化・セルの値を反映させる方法

Excelでハイパーリンクのアドレスを一括で置換する方法

Excelでハイパーリンクのアドレスを一括で置換する方法には、以下のようなものがあります。

マクロを使う
検索と置換機能を使う

方法1：マクロを使う

ハイパーリンクの追加機能を使っている場合は、「マクロ」を使いましょう。マクロの使い方がわからない方は、先に以下の記事をご一読ください。

【初心者向け】Excelマクロ（VBA）の基本的な作り方・使い方を解説！

マクロを使ってハイパーリンクのアドレスを一括で置換するには、まずVBEを起動して標準モジュールに以下のコードをコピペします。

Sub ハイパーリンクを一括置換()

    Dim oldAddress As String
    Dim newAddress As String
    Dim rng As Range
    Dim cell As Range
    Dim hl As Hyperlink
    
    oldAddress = InputBox("検索文字列を入力してください")
    If oldAddress = "" Then Exit Sub

    newAddress = InputBox("置換文字列を入力してください")

    Set rng = Selection
    
    For Each cell In rng
        For Each hl In cell.Hyperlinks
            ' リンク先に検索文字列があれば置換文字列に置換
            If InStr(hl.Address, oldAddress) > 0 Then
                hl.Address = Replace(hl.Address, oldAddress, newAddress)
            End If
            ' リンク文字列に検索文字列があれば置換文字列に置換
            If InStr(hl.TextToDisplay, oldAddress) > 0 Then
                hl.TextToDisplay = Replace(hl.TextToDisplay, oldAddress, newAddress)
            End If
        Next hl
    Next cell
    
    MsgBox "ハイパーリンクの一括置換が完了しました"
    
End Sub

コードをコピペしたら、置換したいハイパーリンクのセル範囲を選択した状態で「ハイパーリンクを一括置換」マクロを実行します。