Excelですべてのリンク（外部参照）を見つけて一覧表示するにはどうすればよいですか？

Excelでは、外部参照を作成して、別のブックのセルの内容を参照します。 ただし、ブックのすべてのリンクをExcelで一覧表示する場合、すべての外部参照（リンク）を見つけて一覧表示するのは難しいようです。 この記事のトリッキーな方法は、ワークブック内のすべてのリンクをすばやく見つけて一覧表示するのに役立ちます。

検索コマンドを使用してすべてのリンクを検索して一覧表示します

VBマクロを使用してすべてのリンクを検索して一覧表示します

Kutools forExcelのすべてのリンクを検索して一覧表示します

検索コマンドを使用してすべてのリンクを検索して一覧表示します

外部リンクにはブラケットが含まれているため [ 記号、ワークブック全体ですべての括弧記号を取得できる場合は、外部リンクを見つけることができます。

1. クリック ホーム > 検索と選択 > もう完成させ、ワークスペースに掲示しましたか? を開く 検索および置換 ダイアログボックス。 開くこともできます 検索および置換 を押すとダイアログボックス Ctrlキー + F キー。

2.  何を見つける： ボックスに、角かっこ記号の左側を入力します "[".

3. クリック オプション、で 中で ドロップダウンリスト、選択 シート or ワークブック リンクを見つけたいもの。 スクリーンショットを参照してください：

4. そして、 すべて検索 ボタン。 次に、すべての外部参照を一覧表示します。 検索および置換 すぐにダイアログボックス。 押す Ctrlキー+ A  次のスクリーショットのように、すべてのリンクセルを選択します。

括弧記号の左側は、ワークブック全体の外部リンクを見つけることができます。 内部リンクと外部リンクを含むすべての種類のリンクを知りたい場合は、感嘆符「」を入力できます。!" の中に 見つける：ボックス。

VBマクロを使用してすべてのリンクを検索して一覧表示します

次のVBAマクロは、リンクされているすべてのソースブックを現在のブックの新しいワークシートに一覧表示するのに役立ちます。

1. 押したまま 頭の中 + F11 キーを押すと、Microsoft Visual Basic forApplicationsウィンドウが開きます。

2に設定します。 OK をクリックします。 インセット > モジュール、モジュールウィンドウに次のマクロを貼り付けます。

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 このマクロを実行するためのキー。 次に、という名前の新しいワークシートを作成します リンクシート すべてのリンクの場所とリンクされたソースワークブックの名前を一覧表示し、パスを一度に保存します。 スクリーンショットを参照してください：

Kutools forExcelのすべてのリンクを検索して一覧表示します

連絡先 Kutools for Excelさん 壊れたリンクを見つけて壊す、アクティブなワークシートのすべての外部リンクを見つけることができます。同時に、必要に応じて特定のリンクを解除できます。

あなたがインストールしている場合 Kutools for Excel、次のようにしてください。

1. リンクを検索するワークシートをアクティブにして、[ クツール > リンク > 壊れたリンクを見つけて壊す、スクリーンショットを参照してください：

2.  壊れたリンクを見つけて壊す ダイアログボックスで、をクリックします。 フィルタ 選択するドロップダウンリスト すべてのリンク、およびアクティブなワークシート内のすべてのリンクが一覧表示され、リンクのステータスも表示できます。 OK リンクが有効であることを表します。 エラー リンクが壊れていることを意味します。

ノート:

1。 もし セルを表示 リスト内のリンクをクリックすると、オプションがチェックされます。 ワークシート内のリンクを含む特定のセルを見つけて移動します。

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

クリックしてKutoolsfor Excelと無料トライアルを今すぐダウンロードしてください！

この機能について詳しく知りたい場合は、をクリックしてください。 壊れたリンクを見つけて壊す.

Kutools forExcelのすべてのリンクを検索して一覧表示します

Kutools for Excel 300以上の便利なExcelツールが含まれています。 30日以内に制限なしで無料でお試しいただけます。 今すぐ無料トライアルをダウンロードしてください！