是否有Cells（）。Formula函数？

我的脚本编译得很好，所以我认为它是好的，但无法find它，当然它错误在这一行上，这是在一个while循环encapsolated，我只是想要有一个简单的方法来添加一个公式一排数据，然后做类似的事情把它添加到一行数据。 有没有。公式还是我有另一个错误？

Cells(arow, acol).Formula = "=COUNTIF(" & wsData.Name & "!" & Cells(fdRow, acol).Address & ":" & Cells(ldRow, acol) & ")" acol = acol + 1 

Answer 1

只需要一些小的改变：

1. 你错过了Cells(ldRow, acol)
2. 我还在工作表名称周围包括了撇号（只有当名称中有空格时才需要）。
3. 正如@Wayne G. Dunn也指出，你需要COUNTIF函数的第二个参数，我把它放在1的末尾。 你需要更新。

这里是更新的代码：

 Cells(arow, acol).Formula = "=COUNTIF('" & wsData.Name & "'!" & Cells(fdRow, acol).Address & ":" & Cells(ldRow, acol).Address & ",1)"