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