在Excel公式中input不匹配错误

最后一行的types不匹配，我得到一个错误。

如果我把公式中的数字例如：2080代替了rowcount，那么它工作的很好。

Dim count as integer Dim rowcount as integer Set rngData = ws1.Range("A1").CurrentRegion rowCount = rngData.Rows.count count = ws1.Evaluate("=SUM(IFERROR(1/COUNTIF(L2:L & rowCount, L2:L & rowCount,0))") 

Answer 1

你需要分开你的公式的文本和不断的过去，与variables的一部分。 你可以用" & RowCount & "来分割它。

注意 ：最好将Dim rowcount as Long声明Dim rowcount as Long ， Dim count as Long 。

如果您的公式与您的代码一起使用，而不是RowCount ，则您的公式更改为2080 ，然后将公式更改为：

 ws1.Evaluate("=SUM(IFERROR(1/COUNTIF(L2:L" & RowCount & ", L2:L" & RowCount & "),0))")