Подсчет количества одновременно совершаемых телефонных соединений

[Hugo121]

А что говорит вариант Казанского?
В моём варианте может быть вариант отсутствия в системе словаря...

[VictorK]

Сообщение от Hugo121

А что говорит вариант Казанского?
В моём варианте может быть вариант отсутствия в системе словаря...

Вариант Казанского пишет "Run-time error '13' Type mismatch"

В отладчике выделяет строку: mx = Application.Max(q) + 1

[Казанский]

Ага, значит до конца добегает!
Попробуйте так

Sub VictorK()
Dim v(), i&, j&, mx&, ub&, time0#, en&
v = Range("A2", Cells(Rows.Count, "C").End(xlUp)).Value
ub = UBound(v)
ReDim st(1 To ub) As Long, q(1 To ub) As Long
time0 = v(1, 1) + v(1, 2)
For i = 2 To ub
  st(i) = (v(i, 1) + v(i, 2) - time0) * 86400
Next
For i = 1 To ub
  If q(i) > mx Then mx = q(i)
  en = st(i) + v(i, 3)
  For j = i + 1 To ub
    If st(j) <= en Then q(j) = q(j) + 1 Else Exit For
  Next
Next
MsgBox "макс. число одновр. соед. " & mx + 1
End Sub

[VictorK]

Сообщение от Казанский

Ага, значит до конца добегает!

Вот сейчас на 73000 строк практически мгновенно дала правильный ответ!
Благодарю!
- - -
А возвращаясь к формулам, вот так (в столбцах M и N - дата+время)

=СЧЁТЕСЛИ($N$2:N3;">"&M3)

работает, хотя и задумывается на несколько минут.