Excel：检查工作簿内的工作表依赖性？

Question

我正在重构一个巨大的工作簿，其中有很多遗留部分、冗余计算、交叉依赖性等。

基本上，我试图删除不需要的工作表并在工作簿中实现一些适当的信息流。有没有一个好的方法来提取工作表之间的依赖关系（使用VBA）？

谢谢 马丁

Answer 1

您可以使用 ShowPrecedents 和 NavigateArrow。
这是一些伪代码

for each oCell in oSht containing a formula
ocell.showprecedents
do until nomoreprecedents
i=i+1
Set oPrec = oCell.NavigateArrow(True, 1, i)
If not oPrec.Parent Is oSht Then
' off-sheet precedent
endif
loop
next ocell

Answer 2

我想出了一个小潜艇来做到这一点。它将所有工作表移动到单独的工作簿中并打印出依赖关系。与使用 showPrecedents 相比，它的优点是它可以捕获所有链接，包括名称、嵌入的表单/图表等。

警告：移动工作表是不可撤消的，请在运行此操作之前保存工作簿并关闭（无需保存）并随后重新打开。

Sub printDependencies()
    ' Changes workbook structure - save before running this
    Dim wbs As VBA.Collection, wb As Workbook, ws As Worksheets
    Dim i As Integer, s As String, wc As Integer
    Set ws = ThisWorkbook.Worksheets
    Set wbs = New VBA.Collection
    wbs.Add ThisWorkbook, ThisWorkbook.FullName

    For i = ws.Count To 2 Step -1
        ws(i).Move
        wc = Application.Workbooks.Count
        wbs.Add Application.Workbooks(wc), Application.Workbooks(wc).FullName
    Next
    Dim wb As Workbook

    For Each wb In wbs
        For Each s In wb.LinkSources(xlExcelLinks)
            Debug.Print wb.Worksheets(1).Name & "<-" & wbs(s).Worksheets(1).Name
        Next
    Next
End Sub

该代码不是很优美或用户友好，但它可以工作。

Answer 3

您可以按照以下链接的“查找单元格中使用的外部引用”主题中的步骤进行操作：

在工作簿中查找外部参考< /a>

但是，您应该输入要查找其依赖项的工作表的名称，而不是输入“[”。它将显示引用该工作表的每个单元格的大列表，但最终它可以工作。还没找到按Sheet分组的方法。