確定最后使用的單元格並在不同列中插入公式

Question

嘗試獲取確定列A中使用的最后一行的vba代碼，然后在指定的列中插入以下公式，直到最后一行。

Range("AC2:AC" & lastrow).FormulaR1C1 = "=IF($S2="""",""Discard"",$T2-8)"
Range("AD2:AD" & lastrow).FormulaR1C1 = "=IF($S2="""",""Discard"",($S2*1000000000000)/($AC2*10000000))"

希望這樣做而不引用工作表名稱。 謝謝你的幫助！

編輯：我想弄清楚的是A列中使用的最后一行。然后將上述公式插入AC和AD列中，從第2行到確定的最后一行。 我希望這可以澄清我的要求。

Answer 1

您可以使用工作表的rows.count屬性，該屬性將為您提供所用的最大行數（在任何列中），然后從A列中的行上移，下面是一些偽代碼

lastRow = range("A" & sheet.rows.count).end(xlup).row

Answer 2

確定使用的最后一行

Dim lastrow As Long
lastrow = Range("A1").End(xlDown).Row

然后將我的公式修改為此：

Range("AC2:AC" & lastrow).Formula = "=IF($S2="""",""Discard"",$T2-8)"

而且效果很好！