引用單元格以求和

Question

我正在制作一個電子表格，其中根據條件將一些成本分配為0或1，如下所示；

Range("V12").Select
ActiveCell.Formula = "=IF(T12 < 50000000, 1, 0)"
Range("V12").Select
Selection.AutoFill Destination:=Range("V12:V511"), Type:=xlFillDefault
Range("V12:V511").Select
Calculate

行Range("V12:V511").Select從V12開始，但是我需要根據單元格U3中放置的數字來更改最后一個單元格。 我不確定如何執行此操作，但是本質上我希望能夠按照Range("V12:VRange("U3").Value - 1").Select方式編寫某些內容Range("V12:VRange("U3").Value - 1").Select以便單元格的值在此范圍內使用U3。

另外，我想對這個范圍內的這些0和1求和，但不確定如何動態更改總和的限制。

Answer 1

Range需要一個字符串，因此我們只需要將U3中的值與地址字符串的其余部分連接起來。

所有這些行都可以替換為：

ActiveSheet.Range("V12:V" & ActiveSheet.Range("U3")-1).Formula = "=IF(T12 < 50000000, 1, 0)"

或者，如果您更喜歡R1C1表示法：

ActiveSheet.Range("V12:V" & ActiveSheet.Range("U3")-1).FormulaR1C1 = "=IF(RC[2] < 50000000, 1, 0)"