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