將列引用為VBA中activecell.formula函數中的數字

Question

我正在嘗試使用VBA計算總和。 代碼是

Sub Result()
    ActiveCell.Formula = "=SUMPRODUCT(B4:QF4,B5004:QF5004)"
End Sub

程序中有一個變量，並且列數每次都會更改。 我嘗試將“ QF”列定義為數字，但這顯示了錯誤。 如何在代碼中將列定義為數字？ 我嘗試了以下代碼。

Sub Result()
    ActiveCell.Formula = "=SUMPRODUCT(B4:(" & (FinalR - j) & ")4,B(" & (FR - nobis + j + 1) & "):(" & (FinalR - j) & ")5004)"
End Sub

Answer 1

這個怎么樣：

Sub Result()
    ActiveCell.Formula = "=SUMPRODUCT(B4:" & Left(Cells(1, FinalR - j).EntireColumn.Address(False, False), InStr(Cells(1, FinalR - j).EntireColumn.Address(False, False), ":") - 1) & "4,B5004:" & Left(Cells(1, FinalR - j).EntireColumn.Address(False, False), InStr(Cells(1, FinalR - j).EntireColumn.Address(False, False), ":") - 1) & "5004)"
End Sub

我假設FinalR - j給您列號？