Страницы: 1
RSS
Найти недостающие номера бланков
 
Доброго дня
Суть задачи отпущено бланк  с номерами 1 до 1000 в количестве 1000 штук, при ревизии бланка получилось 900 возможно ли найти недостаюшие номеров.
пример файла прилагатся.
 
начиная с офиса 2019 доступна функция СЦЕП
Код
=СЦЕП(ЕСЛИ(СЧЁТЕСЛИ(F3:F18;СТРОКА(1:20));"";СТРОКА(1:20) & " "))
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
 
вариант "в лоб".
Изменено: Dima S - 18.09.2019 03:05:59
 
Неоптимизированные массивные формулы. Это число пропущенных подряд:
Код
=ЕСЛИОШИБКА(ИНДЕКС(ЧАСТОТА(СТРОКА($1:$21);СТРОКА($1:$20)*ЧАСТОТА(F$3:F$18;СТРОКА($1:$19)));НАИМЕНЬШИЙ(ЕСЛИ(ЧАСТОТА(СТРОКА($1:$21);СТРОКА($1:$20)*ЧАСТОТА(F$3:F$18;СТРОКА($1:$19)))>1;СТРОКА($1:$21));СТРОКА(N1)))-1;"")

Остальные в файле.

 
варианты хороши но при большом номере количестве тормозить, возможно ли через vba или pq сделать
 
Формулы немного упростил. Файл новый.
 
Цитата
nacimjon написал:
возможно ли через vba или pq сделать
pq
 
Спасибо всем нашел решение на pq доработал скриптAnton555,
 
Формулы сильно упростил.
Страницы: 1
Наверх