написать UDF получилось за 5-10 минут, алгоритм тот же:

Скрытый текст

Код Function cnt3d(rng As Range) As Long     Dim x, i&, j&, t&, n&, m&, k&, a&()     For Each x In rng         m = Val(x)         If m > 0 Then             n = n + 1             ReDim Preserve a&(1 To n)             a(n) = m         End If     Next x     If n < 3 Then Exit Function     Do         For i = 1 To 3             For j = i + 1 To n                 If a(j) > a(i) Then                     t = a(j)                     a(j) = a(i)                     a(i) = t                 End If         Next j, i         For i = 1 To 3             If a(i) = 0 Then Exit Do             a(i) = a(i) - 1         Next i         k = k + 1     Loop     cnt3d = k End Function

Но думаю, что для формулы алгоритм должен быть другим

Результаты вычисления разные

MCH, да, мой алгоритм неверный. Я начинал с минимального значения, похоже, это неверно...

нет, Миша, строго для 3-х единичек

я заказчику сдал универсальную UDF, в которой 2 параметра:  
1) диапазон с данными
и
2) по сколько единиц отнимать за один раз
она без проблем считает, что угодно
но заказчик со старта хотел формулу и я со старта искал формулу, в том числе и универсальную, но и так чуть мозг не оплавился, пока потом для 3-х сочинил))
а сделать универсальную, для произвольного количества отнимаемых единиц - было бы здорово!
я предполагал, что смогу сделать формулу, которая последовательными итерациями переберет то же, что перебирал макрос, обьявил заказчику цену за формулу в 3 раза больше, чем за UDF. заказчик тут же решил что UDF отлично справляется с поставленной задачей)
а формула меня зацепила и на ее написание я потратил в 10 раз больше времени, чем на написание UDF
сделал формулу, которая определяет некоторые параметры данных, и манипулируя этими параметрами - выдает ответ

Однако...
может пора уже выявлять тройку призеров?

Скажу так, если алгоритм решения не приходит сразу в течении нескольких минут, то как правило, решить задачу не получится.
Я пытался где-то около часа найти аналитически математическую зависимость, но не получилось, думаю, что у остальных также.

Игорь, лучше вместо формулы описал математический алгоритм, чтобы можно было понять как считает

я обязательно опишу свое решение простыми словами, но извините, чуть позже
и еще сначала посмотрю и попытаюсь понять, что смастерил ZORRO2005))

Источник - тема на форуме

Исходные: две таблицы со столбцами ИНН и Дата
Задача: к дате первой таблицы подставить ближайшую (по модулю) дату из второй таблицы. Соответствие ИНН. Данные не сортированы (в примере для удобства расположены по блокам ИНН). По строкам ссылки на таблицы "не едут".
Столбец Е - результат, столбец F - проверочный.

Планка - 59 символов (со знаком =)

P.S. Уточнение: разрыв между датами может быть больше 100 дней. Заменил файл: в таблицах для примера добавлен третий ИНН

Куда символ дел?! )

Похоже, у нас разные решения. Я не могу ужать символ...
Ссылки на таблицу, не на столбец, да?

Э, нет... Если низ не закреплять, то у меня 56. А вдруг ниже другие данные?

Да, согласен, коряво написал... Но теперь, с разъяснениями, понятно будет.

Будет.
Тогда у меня 61 символ.