如何在 Excel 中查找並列出所有連結（外部引用）？

在 Excel 中，您通過建立外部引用來引用另一個工作簿中的單元格內容。但是，當您想在 Excel 中列出某個工作簿的所有連結時，似乎很難找到並列出所有的外部引用（連結）。本文介紹的巧妙方法將幫助您快速找出並列出工作簿中的所有連結。

使用「尋找」命令查找並列出所有連結

使用 Kutools for Excel 查找並列出所有連結

使用 VB 宏查找並列出所有連結

使用「尋找」命令查找並列出所有連結

由於外部連結包含方括號 [ 符號，如果我們能找到整個工作簿中的所有方括號符號，就可以找出外部連結。

1. 點擊「Home」>「Find & Select」>「Find」以打開「尋找和替換」對話框。您也可以通過按下 Ctrl + F 鍵打開「尋找和替換」對話框。

2. 在「尋找內容：」框中，輸入左方括號符號「[」。

3. 點擊「Options」，在「Within 」下拉列表中選擇「Sheet」或「Workbook」，從中您希望查找連結。 參見截圖：

4. 然後點擊「Find All」按鈕。然後它會立即在「尋找和替換」對話框中列出所有外部引用。按下 Ctrl + A 選擇所有連結單元格，如下圖所示：

左方括號符號可以找出整個工作簿中的外部連結。如果您想找出所有類型的連結，包括內部連結和外部連結，可以在「尋找內容」框中輸入驚嘆號「!」。

使用 Kutools for Excel 查找並列出所有連結

借助 Kutools for Excel 的「Find and Break broken Links」功能，您可以找到活動工作表的所有外部連結，同時，您可以根據需要斷開特定的連結。

如果您已經安裝了 Kutools for Excel，請按照以下步驟操作：

1. 啟動您要查找連結的工作表，並點擊「Kutools」> Link>「Find and Break Broken Links」，參見截圖：

2. 在「Find and Break broken Links」對話框中，點擊「Filter」下拉列表選擇「All links」，活動工作表中的所有連結都會被列出，您還可以查看連結狀態，OK 表示連結有效，Error 表示連結已斷開。

注意：

1. 如果勾選了「View cell」選項，當您點擊列表中的連結時，它會找到並導航到工作表中含有該連結的具體單元格。

2. 如果您想斷開某個連結，您可以從列表中選擇該連結，然後點擊「Break link」。

立即點擊下載 Kutools for Excel 並免費試用！

如果您想了解更多關於此功能的信息，請點擊「 Find and Break broken Links」。

使用 VB 宏查找並列出所有連結

以下 VBA 宏可以幫助我們在當前工作簿的新工作表中列出所有鏈接源工作簿。

1. 按住 ALT + F11 鍵，打開 Microsoft Visual Basic for Applications 窗口。

2. 點擊「Insert」>「Module」，並將以下宏粘貼到模塊窗口中。

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 查找並列出所有連結