2017-03-02 88 views
0

我的脚本编译得很好,所以我认为它是好的,但无法找到它,当然它错误在这一行上,这是在一个while循环encapsolated,我只是试图有一个简单的方法来添加一个公式到一行数据,然后做类似的事情将它添加到一行数据。有没有。公式还是我有另一个错误?需要是否有Cells()。Formula函数?

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

不顾。地址,这是我的坏 –

+1

你 'COUNTIF' 公式需要类似于:= COUNTIF(B2:B11, “A”),其中firt参数是范围,第二个是要搜索的值。不知道你在'wsData,Name'字段中有什么,等等。哦,仅供参考,因为有很多可能性,所以给出特定的错误代码/消息是一种好的做法。 –

+0

再次感谢,我只能说DUH ...大声笑 –

回答

5

只是一些小的变化:

  1. 你缺少.AddressCells(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)" 
+1

哦,很棒,谢谢我一直在敲我的头对着关键板一个小时...... LOL –

+1

@RickFlyFish https://meta.stackexchange.com/questions/5234 /如何-不接受-的回答工作 – 0m3r