Excelで全てのリンク（外部参照）を検索してリスト化するにはどうすればよいですか？

Excelでは、外部参照を作成することで別のワークブック内のセルの内容を参照します。しかし、Excelでワークブック内のすべてのリンクをリスト化したい場合、すべての外部参照（リンク）を見つけてリスト化するのは難しいように思えます。この記事で紹介する巧妙な方法は、ワークブック内のすべてのリンクを迅速に見つけ出してリスト化するのに役立ちます。

「検索」コマンドを使用してすべてのリンクを検索しリスト化する

Kutools for Excelを使用してすべてのリンクを検索しリスト化する

VBマクロを使用してすべてのリンクを検索しリスト化する

「検索」コマンドを使用してすべてのリンクを検索しリスト化する

外部リンクには角括弧「[ 」が含まれているため、ワークブック全体からすべての角括弧を見つけられれば、外部リンクも見つけ出すことができます。

1. 「ホーム」＞「検索と選択」＞「検索」をクリックして、「検索と置換」ダイアログボックスを開きます。Ctrl + Fキーを押すことで「検索と置換」ダイアログボックスを開くこともできます。

2. 「検索内容:」ボックスに、角括弧の左部分「[」を入力します。

3. 「オプション」をクリックし、「範囲 」ドロップダウンリストで、リンクを見つけたい「シート」または「ワークブック」を選択します。スクリーンショットをご覧ください：

4. 次に「すべて検索」ボタンをクリックします。すると、「検索と置換」ダイアログボックスですべての外部参照が即座にリストされます。Ctrl + Aを押して、次のスクリーンショットのようにすべてのリンクセルを選択します：

角括弧の左部分を使用して、ワークブック全体の外部リンクを見つけることができます。内部リンクや外部リンクなど、すべての種類のリンクを見つけたい場合は、「検索内容:」ボックスに感嘆符「!」を入力してください。

Kutools for Excelを使用してすべてのリンクを検索しリスト化する

Kutools for Excelの「リンクを検索して解除する」機能を使用すると、アクティブなワークシートのすべての外部リンクを見つけることができ、同時に必要に応じて特定のリンクを解除することもできます。

Kutools for Excelをインストールしている場合は、以下の手順を行ってください：

1. リンクを見つけたいワークシートをアクティブにして、「Kutools」＞「 リンク」＞「リンクを検索して解除する」をクリックします。スクリーンショットをご覧ください：

2. 「リンクを検索して解除する」ダイアログボックスで、「フィルター」ドロップダウンリストをクリックして「すべてのリンク」を選択すると、アクティブなワークシート内のすべてのリンクがリストされます。リンクのステータスも確認でき、OKはリンクが有効であることを示し、エラーはリンクが壊れていることを意味します。

注意：

1. 「セルをアクティブにする」オプションがチェックされている場合、リスト内のリンクをクリックすると、そのリンクを含む特定のセルが見つけられて移動します。

2. また、リンクを解除したい場合は、リストからリンクを選択して「リンクの解除」をクリックします。

今すぐKutools for Excelをダウンロードして無料でお試しください！

この機能についてさらに詳しく知りたい場合は、「 リンクを検索して解除する」をクリックしてください。

VBマクロを使用してすべてのリンクを検索しリスト化する

次のVBAマクロを使用すると、現在のワークブックの新しいワークシートにすべてのリンク元のワークブックをリスト化できます。

1. ALT + F11 キーを押したままにすると、Microsoft Visual Basic for Applicationsウィンドウが開きます。

2. 「挿入」＞「モジュール」をクリックし、次のマクロをモジュールウィンドウに貼り付けます。

VBA：Excelですべてのリンクをリスト化する

Sub ListLinks()
    Dim xSheet As Worksheet
    Dim xRg As Range
    Dim xCell As Range
    Dim xCount As Long
    Dim xLinkArr() As String
    On Error Resume Next
    For Each xSheet In Worksheets
        Set xRg = xSheet.UsedRange.SpecialCells(xlCellTypeFormulas)
        If xRg Is Nothing Then GoTo LblNext
        For Each xCell In xRg
            If InStr(1, xCell.Formula, "[") > 0 Then
                xCount = xCount + 1
                ReDim Preserve xLinkArr(1 To 2, 1 To xCount)
                xLinkArr(1, xCount) = xCell.Address(, , , True)
                xLinkArr(2, xCount) = "'" & xCell.Formula
           End If
        Next
LblNext:
    Next
    If xCount > 0 Then
        Sheets.Add(Sheets(1)).Name = "Link Sheet"
        Range("A1").Resize(, 2).Value = Array("Location", "Reference")
        Range("A2").Resize(UBound(xLinkArr, 2), UBound(xLinkArr, 1)).Value = Application.Transpose(xLinkArr)
        Columns("A:B").AutoFit
    Else
        MsgBox "No links were found within the active workbook.", vbInformation, "KuTools for Excel"
    End If
End Sub

3. F5キーを押してこのマクロを実行します。すると、「 Link Sheet」という名前の新しいワークシートが作成され、そこにすべてのリンクの場所とリンク元のワークブック名および保存パスが一度にリストされます。スクリーンショットをご覧ください：

Kutools for Excelを使用してすべてのリンクを検索しリスト化する