VBA执行函数公式求助！！！

淡定虫哥 · 发表于 2022-5-9 18:05

Sub Countif()
Dim i As Long
For i = 2 To Sheet1.Range("d999999").End(xlUp).Row
Next
Sheet1.Range("I(i)") = WorksheetFunction.Countif(Sheet1.Range("d:d"), Sheet1.Range("d(i)"))
End Sub

有几十万数据，用countif计数，excel直接填充巨慢，想通过vba执行，输入以上代码提示“运行错误1004，方法range作用于对象_worksheet时失败”,请教各位大佬是哪里出了问题，该怎么修正

3190496160 · 发表于 2022-5-9 19:38

几十万行数据，就不应该再用公式了，用vba代码吧
你即使用vba代码填充公式，她还是公式呀

3190496160 · 发表于 2022-5-9 19:39

Sheet1.Range("I" & i) = WorksheetFunction.CountIf(Sheet1.Range("d:d"), Sheet1.Range("d" & i))

淡定虫哥 · 发表于 2022-5-11 08:11

3190496160 发表于 2022-5-9 19:39
Sheet1.Range("I" & i) = WorksheetFunction.CountIf(Sheet1.Range("d:d"), Sheet1.Range("d" & i))

大佬正解

3190496160 · 发表于 2022-5-11 08:15

淡定虫哥发表于 2022-5-11 08:11
大佬正解

后面这个 i 是变量，就不能放到引号里面去，只有常量才需要放到引号中

		自动登录	找回密码
密码			免费注册