我可以缩短这个等式吗？

Question

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

认为可能是它，但它不起作用。

谢谢！

Answer 1

为了回答。正如@andy解释的那样“你不必去＆＃34;去＆＃34; to（也不是＆＃34;选择＆＃34;，也不是＆＃34;激活＆＃34;）一个范围来应用一个方法。在这种情况下，只需将公式方法应用于范围“因此，如Tim Williams所给出的：

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