帶有 Row() 的 VBA Range.Formula

Question

當我嘗試在 VBA for Excel 中運行以下代碼時，我得到一個與公式中的ROW()函數相關的“子或函數未定義”。 在這種情況下， rng是

    rng.Formula = "=INDIRECT(""J" & Row() & """,TRUE)"

有沒有辦法可以更改代碼，以便公式可以依賴於它所在的行？ 或者row()函數只是不適合這種事情？ 什么是替代方案？

非常感謝

Answer 1

您的公式ROW()需要在引號內，否則它會嘗試將其作為 VBA 代碼處理，而不是作為公式處理：

rng.Formula = "=INDIRECT(""J"" & ROW(),TRUE)"

但是您確定要使用INDIRECT嗎？ 使用時您可能會得到相同的結果

rng.Formula = "=J" & rng.Row

但沒有 volatile INDIRECT的開銷。 避免使用 volatile 函數，它們會帶來巨大的計算開銷，尤其是在廣泛使用時。

Answer 2

如果你需要使用 Excel 公式Row()你可以這樣做：

rng.Formula = "=INDIRECT(""J"" & row())"

這將從 J 和放置公式的行返回值。

如果需要在 vba 中定義特定行，請使用 @PEH 建議。 他可能更了解你嘗試做什么......

Answer 3

只需使用rng的行號創建一個字符串 說在A3 中我們要存入：

=INDIRECT(J3,TRUE)

嘗試：

Sub cbass()
    Dim rng As Range, roww As Long, stryng As String
    Set rng = Range("A3")
    
    roww = rng.Row
    stryng = "=INDIRECT(J" & roww & ",TRUE)"
    
    MsgBox stryng
    rng.Formula = stryng
End Sub