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))