Vba 我能缩短这个等式吗？

这里是VBA新手

我有两行代码：

Application.Goto ActiveWorkbook.Sheets("Macros").Range("F1")
Range("F1").FormulaR1C1 = "=COUNTA(DBPaste!R[1]C[-5]:R[1000]C[-5])"

我可以缩短这个吗

我试过：

Application.Goto ActiveWorkbook.Sheets("Macros").Range("F1").FormulaR1C1 = "COUNTA(DBPaste!R[1]C[-5]:R[1000]C[-5])"

我想可能是这样，但这不起作用

---

谢谢

为了得到答案。正如@andy所解释的，“你不必“去”（也不必“选择”，也不必“激活”）一个范围来对其应用方法。在这种情况下，只需将公式方法应用于该范围”，因此，正如Tim Williams所给出的：

ActiveWorkbook.Sheets("Macros").Range("F1").FormulaR1C1 = "COUNTA(DBPaste!R[1]C[-5]:R[1000]C[-5])"  

---

只需

ActiveWorkbook.Sheets（“Macros”）.Range（“F1”）.FormulaR1C1=“COUNTA（DBPaste！R[1]C[-5]：R[1000]C[-5]）”

@TimWilliams我很高兴这么简单！为什么我不需要application.goto部分呢？因为您不必“转到”（或“选择”，或“激活”）某个范围来对其应用方法。在这种情况下，只需将公式方法应用于range。我现在遇到的新问题是，在运行代码时，下面第二行的类型不匹配。当长CellNumber=单元格（1，“F”）.值时，变暗CellNumber