Excel VBA CountIfs 运行时错误 1004

Question

我试图根据用户确定的观察和箱并使用以下代码来提出观察的频率

Sub Button()
Set obs = Application.InputBox("Observations", Type:=8) 'select w/o label
Set bins = Application.InputBox("Bins", Type:=8) 'select w/o label
binsrow = bins.Rows.Count
For i = 1 To binsrow
bins.Cells(i, 1).Offset(0, 1) = WorksheetFunction.CountIfs(obs, ">" & bins.Cells(i, 1), "<=" & bins.Cells(i + 1, 1))
Next i
End Sub

当我按上述方式运行时，我收到运行时错误"1004"。但是，当我省略 CountIfs 中出现的条件之一时，它会准确地执行代码所告知的内容。

Answer 1

第二个条件需要第二个范围参数。也许

WorksheetFunction.CountIfs(obs, ">" & bins.Cells(i, 1), obs, "<=" & bins.Cells(i + 1, 1))