使用vba存储公式的列

Question

我被要求从Excel文件中提取一些旧信息，然后将其放入新的Access数据库中。 我需要做的第一件事是从每个部门的公式中的列中收集信息。 所以我有一个看起来像这样的公式=YP199+YT199+ZL199+ZT199 ，我需要输入YP199列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