如何在 Excel 中找出並列出所有外部連結（外部參照）？

作者Kelly修改日期2024-11-01

在 Excel 中，您可以透過建立外部參照來引用其他活頁簿中的儲存格內容；但若想列出某個活頁簿的所有連結，卻往往難以輕鬆找出並整理所有外部參照（連結）。本文提供的巧妙方法，將助您快速找出並完整列出活頁簿中的所有連結。

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

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

使用 VB 巨集找出並列出所有連結

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

由於外部連結包含方括號[符號，只要取得整個活頁簿中的所有方括號，就能輕鬆找出這些外部連結！

1. 按一下開始 > 尋找與選取 > 尋找，即可開啟查找和替換對話方塊。您也可以直接按下 Ctrl+F，快速開啟查找和替換對話方塊。

2. 在尋找目標：方塊中，輸入左方括號符號「[」。

在「尋找目標」方塊中輸入括號的左半部分

3. 按一下選項，在範圍下拉清單中，選擇工作表或活頁簿，即可指定要搜尋連結的範圍。請參閱截圖：

選擇「工作表」或「活頁簿」以尋找連結來源

4. 接著點擊全部尋找按鈕，系統將立即在查找和替換對話方塊中列出所有外部參照。按下 Ctrl + A 即可選取所有連結儲存格，如下圖所示：

所有外部參照均已列出，按 Ctrl + A 選取所有連結儲存格

只需輸入左方括號符號，即可快速找出整個活頁簿中的外部連結！若想一併找出所有類型的連結（包括內部與外部連結），請在!「尋找目標」方塊中輸入驚嘆號「！」。

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

透過 Kutools for Excel 的查找和斷開連結功能，您能輕鬆找出作用中工作表的所有外部連結，並依需求即時中斷特定連結！

Kutools for Excel 提供超過 300 項進階功能，簡化複雜作業，提升創造力與效率。整合 AI 功能，Kutools 能精準自動化各項任務，讓資料管理輕鬆無負擔。Kutools for Excel 的詳細資訊…… 免費試用……

若您已安裝 Kutools for Excel，請依照下列步驟操作：

1. 先啟用要尋找連結的工作表，然後點選 Kutools> 連結> 查找和斷開連結，詳情請參閱截圖：

點擊 Kutools 的「尋找並中斷損壞連結」功能

2. 在查找和斷開連結對話方塊中，點選篩選下拉清單，選擇所有連結，即可列出目前作用中工作表的所有連結，並查看其連結狀態：確定表示連結有效，錯誤則表示連結已損毀。

所有連結均列於對話框中

注意事項：

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 的新工作表，並列出所有連結的位置、來源活頁簿名稱及其儲存路徑。請參閱截圖：

用於列出工作表中所有連結的 VBA 程式碼

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

最佳 Office 生產力工具

🤖	KUTOOLS AI 助手：基於以下內容徹底革新數據分析：智慧執行｜產生程式碼｜建立自訂公式｜分析資料並產生圖表｜呼叫增強函數……
	熱門功能：尋找、醒目提示或標記重複值｜刪除空白行｜合併列或儲存格而不遺失資料｜不使用公式的四捨五入……
	高級 LOOKUP：多重條件 VLookup ｜多重數值 VLookup ｜跨多個工作表 VLookup ｜模糊查找……
	高級下拉列表：快速建立下拉式清單｜相依式下拉式清單｜多選下拉式清單……
	欄位管理員：新增指定數量的欄位｜移動欄位｜切換隱藏欄位的可見狀態｜比較範圍與欄位……
	精選功能：網格聚焦｜設計視圖｜增強編輯欄｜工作簿與工作表管理員｜資源庫（自動文字）｜日期提取｜合併工作表｜加密／解密儲存格｜依清單傳送電子郵件｜超級篩選｜特殊篩選（篩選粗體儲存格／斜體／刪除線……） ......
	頂尖 15 工具組：12 文字工具（添加文本，刪除特定字符，……）｜ 50+ 圖表類型（甘特圖，……）｜ 40+ 實用公式（基於生日計算年齡，……）｜ 19 插入工具（插入二維碼，從路徑插入圖片，……）｜ 12 轉換工具（金額轉大寫，匯率轉換，……）｜ 7 合併和拆分工具（高級合併行，分割儲存格，……）｜……以及更多