如何在 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 键运行此宏。然后它会创建一个名为“ 链接表”的新工作表，并立即列出所有链接位置以及链接来源工作簿的名称和保存路径。参见截图：

使用 Kutools for Excel 查找并列出所有链接