使用vba存儲公式列

我被要求從Excel文件中提取一些舊信息並將其放入新的Access數據庫中。我需要做的第一件事就是從每個部門公式中的列中收集信息。所以我有一個看起來像這樣的公式=YP199+YT199+ZL199+ZT199，我需要拿YP199列獲得我需要的信息等等。一旦我能夠從公式中獲得專欄，其餘部分就不會太難。使用vba存儲公式列

來源

2012-07-26 Kevin Young

您是否試圖將YP199的內容存儲在一個變量中，或者YP1-YP199的內容之和或其他內容？目前尚不清楚你要求什麼。 – LittleBobbyTables 2012-07-26 14:20:39

我存儲的列，以便我可以從我需要的單元格中提取信息，所以我可以在另一個表上創建另一個表並導出它。基本上有人爲機架訂單創建了一張表，每一列都是一個零件清單，收取到不同的部門。一個出發點可能有20個不同的列與它們相關聯。 – 2012-07-27 10:32:51

此代碼將給出公式的直接先例的所有單元格地址的單元格地址。請注意，我沒有做任何錯誤處理。我相信你可以照顧它嗎？

我假設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

來源

2012-07-26 14:38:24

感謝您的回覆。這絕對比我想出的要好。 – 2012-07-27 10:27:57

使用vba存儲公式列

回答

相關問題