点击文件名下载附件
在学VBA80第23集时出现如下代码:
Sub h()
Dim t
t = Timer
Dim arr
arr = Application.SumIf(Range("a2:a10000"), Array("B", "C", "G", "R"), Range("b2:b10000"))
MsgBox Timer - t
Stop
End Sub
如果我在其中加入worksheetfunction就会出现错误(代码如下),这是为什么?
Sub h()
Dim t
t = Timer
Dim arr
arr = Application.WorksheetFunction.SumIf(Range("a2:a10000"), Array("B", "C", "G", "R"), Range("b2:b10000"))
MsgBox Timer - t
Stop
End Sub
附件和.GIF图片已上传,盼大家帮我解决,谢谢!