我收到的错误是最后一行的类型不匹配。
如果我在公式中输入数字例如: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))")
答案 0 :(得分:2)
你需要将变量部分与你的公式的常量和过去分开。您可以通过将其与" & RowCount & "
分开来实现。
注意:您最好声明Dim rowcount as Long
,也可以Dim count as Long
。
如果您的公式代替RowCount
而不是2080
而使用了代码,那么请将公式更改为:
ws1.Evaluate("=SUM(IFERROR(1/COUNTIF(L2:L" & RowCount & ", L2:L" & RowCount & "),0))")