如何將 Excel 表達式 INDIRECT(“R”&(ROW()-1)&“C”&(COLUMN()), FALSE) 轉換為 vba

Question

我想用一個簡潔的函數來獲取up-cell或right-cell的值，誰能幫我寫下vba函數實現excel表達式INDIRECT("R"&(ROW()-1)&"C"&(COLUMN()), FALSE) 。

提前感謝任何幫助。

Answer 1

Function upcell()
    upcell = ActiveCell.Offset(-1, 0)
End Function

為我工作。 我輸入單元格 A1、A2、A3，然后輸入數字 1、2、3

然后在單元格 B3 中我輸入=upcell()

B1 等於 A3 的值，即 3 如果我將 A3 更改為值 4，則單元格 B3 更改為 4。

這是你想要達到的目標嗎？