确定最后使用的单元格并在不同的列中插入公式

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)"

它完美无缺！