excel - 使用 vba 存储公式的列

Question

我被要求从 Excel 文件中提取一些旧信息并将其放入新的 Access 数据库中。我需要做的第一件事是从每个部门的公式中的列中收集信息。所以我有一个看起来像这样的公式，=YP199+YT199+ZL199+ZT199我需要在列YP199中获取我需要的信息等等。一旦我可以从公式中得到列，其余的就不应该太难了。

Answer 1

此代码将给出所有单元格地址的单元格地址，这些单元格地址是公式的直接先例。请注意，我没有进行任何错误处理。我确定你能照顾好它？

我假设 Sheet1 的单元格 A1 具有公式=YP199+YT199+ZL199+ZT199

Sub Sample()
    Dim ws As Worksheet
    Dim rng As Range, acell As Range

    Set ws = Sheets("Sheet1")

    With ws
        Set rng = .Range("A1")
        For Each acell In rng.DirectPrecedents
            Debug.Print acell.Address
        Next
    End With
End Sub

上面的代码在运行时会给你这个。

$YP$199
$YT$199
$ZL$199
$ZT$199