Если п данные в таком виде и работник не шастает туда сюда в течении смены бесконечно (сейчас просто для примера сделал на 10 входов и выходов что помогает пошустрее считать или не выяснять диапазон) ,  то
=IF(COUNTIFS($B$1:B2;B2;$A$1:A2;A2;$D$1:D2;"Вход")=1;IF(LOOKUP(2;1/(A2:A12=A2)/(B2:B12=B2);D2:D12)="Выход";LOOKUP(2;1/(A2:A12=A2)/(B2:B12=B2);C2:C12);INDEX(B2:B12;MATCH(1;(A2:A12=A2)*(B2:B12>B2)*(D2:D12="Выход");))-B2+INDEX(C2:C12;MATCH(1;(A2:A12=A2)*(B2:B12>B2)*(D2:D12="Выход");)))-C2;"")
остальное дело техники

topsufiy, Сервисный, вспомогательный.

Честно скажу, не знаю где почитать. Приложите реальный исходный файл строк на 20-30 и второй со сводной.

Алексей, тут не прав. Он не разработчик, он держит оборону и бессилен порой. Он же не может сказать , тестировщики  у нас ни к черту,  про...ли  , не проверили ... а разрабов нанял по объявлению, программируют за еду.. С другой стороны, тот не ошибается, кто ничего не делает.  Так что .... Ну а баги не такие серьёные ну разве что по самолюбию ударяют коту да медведю :-).  Настя не в счет 450 - это не 50к котовьих.

в формуле из #8 заменить 1 на 2, а в тех что выше заменить МИН на наименьший  и тоже последний аргумент 2. Но тут не в почете такие темы в продолжение.

почему недокументированный?
Что блокирует? Если контроль на сервере, то ему все равно кто там отправляет, аутлук или ... .
Конкретнее, что заблокировано.

Application.Run - не поможет, вы пытаетесь из (предположу что  Excel) запустить код в приложении Outlook, а не просто код который хранится там.

Сделать SQL запрос и его в качестве источника для сводной и делать ничего не надо, но вааще и это не нужно, если дата и врем не текстом б было, то с группировкой справляется сводная сама, вопрос  только что вы там хотите получить в сводной.

это только расчет значений "заголовков" столбцов, по которым анализируется необходимость закраски.
ну тогда зачем на этот форум? Есть же масса других на которых картинки обсуждают.

давайте тогда определятся, что нужно. И Светлый и я каждый раз просчитываем , хоть и разным методом. весь объем и определять наименьший из тысяч тысячи раз - печалька. но ведь это не требуется. Можно еще на подлете исключать те значения, что уже определены. на предыдущем шаге.
=MIN(IF(COUNTIFS($A$11:$A$14;"<="&ROW(INDEX(A:A;J5+1):$A$500);$B$11:$B$14;">="&ROW(INDEX(A:A;J5+1):$A$500))=0;ROW(INDEX(A:A;J5+1):$A$500)))
А может даже так
=MATCH(1=1;COUNTIFS($A$11:$A$14;"<="&ROW(INDEX(A:A;K4+1):$A$500);$B$11:$B$14;">="&ROW(INDEX(A:A;K4+1):$A$500))=0;)+K4

сперва опробуйте мои исходной теме

=SMALL(IF(COUNTIFS($A$11:$A$14;"<="&ROW($A$1:$A$500);$B$11:$B$14;">="&ROW($A$1:$A$500))=0;ROW($A$1:$A$500));ROW(A1))
=SMALL(IF(COUNTIFS($A$11:$A$14;"<="&ROW($A$1:$A$500);$B$11:$B$14;">="&ROW($A$1:$A$500))=0;ROW($A$1:$A$500));ROW($A$1:$A$500))
Думаю будет шустрее

не факт, все зависит от того откель берутся значения. О полноценном примере, я уже писал.

неправильно.

если оно существует то в интернете :-).
Под конкретную задачу надо писать. Макрушников просите  или в работе заказывайте. При этом обратите внимание, на пример. я понимаю что нужно делать, но не понимаю где.

Судя по всему, кроме как контроля значения макросом и корректировке цвета гистограммы в зависимости от пороговых значений, при этом УФ будет свой для каждой ячейки,   вариантов нет.

а это не про тоже ли самое?

Ну вдруг оторвусь от компа на пару дней, вопросы пойдут, куда пропал, на радостях что счетчик вернули :-)

whateverlover, OCR хоть и присутствует но качество его так себе. Будут ошибки и серьезные, даже одно то что сходные кирилические и латинский буквы будут некорректно определены. Так, для разовой обработки, можно использовать, а для пакетной - себе дороже.

Сформулированный механик.
=IFERROR(MOD(VLOOKUP(MOD(D$5+CHOOSE(MOD($A6-1;8)+1;2;1;8;7;6;7;8;1);8);{3\1;7\0};2;)+$A6;2)+1;"")
и ранее описанный УФ
=MOD(D$5;4)+CHOOSE(MOD($A6-1;8)+1;2;1;4;3;2;3;4;1)=4

для этого можно или формулой или условным форматированием вставить символ ⬛

Я могу предположить, что Русский не Ваш родной язык, но читайте что Вам пишут. По названию темы, просто нужно нарисовать в нужной ячейке черный квадрат и это можно нарисовать формулой. Но вам же не это надо.

возможно, см пример, но вопрос что потом с этим делать.

Механника я тоже сфыормулировал, ждем названия темы

для УФ формула единая для всех
=MOD(D$5;4)+CHOOSE(MOD($A6-1;8)+1;2;1;4;3;2;3;4;1)=4

Что-то вроде этого
=IF(LEN($F2);TRIM(RIGHT(SUBSTITUTE(TRIM(LEFT(SUBSTITUTE(TRIM(MID(CLEAN(SUBSTITUTE("@"&SUBSTITUTE($F2;CHAR(10);"@");"@";REPT(" ";LEN($F2))));COLUMNS($H:H)*LEN($F2);LEN($F2)));".";REPT(" ";99));99));")";REPT(" ";99));99));"")

=INDEX(A:A;SMALL(IF($B$1:$B$1000=D2;ROW($B$1:$B$1000));1))&
IF(COUNTIF(B:B;D2)>1;"; "&INDEX(A:A;SMALL(IF($B$1:$B$1000=D2;ROW($B$1:$B$1000));2))&
IF(COUNTIF(B:B;D2)>2;"; "&INDEX(A:A;SMALL(IF($B$1:$B$1000=D2;ROW($B$1:$B$1000));3))&
IF(COUNTIF(B:B;D2)>3;"; "&INDEX(A:A;SMALL(IF($B$1:$B$1000=D2;ROW($B$1:$B$1000));4))&
IF(COUNTIF(B:B;D2)>4;"; "&INDEX(A:A;SMALL(IF($B$1:$B$1000=D2;ROW($B$1:$B$1000));5));"");"");"");"")

Если более 5, то надо продолжить

Молодых медведей - не смущает :-)

и там не появилась она.
https://support.microsoft.com/ru-ru/office/%D0%BE%D0%B1%D1%8A%D0%B5%D0%B4%D0%B8%D0%BD%D0%B8%D­1%82%D1%8C-%D1%84%D1%83%D0%BD%D0%BA%D1%86%D0%B8%D1%8F-%D0%BE%D0%B1%D1%8A%D0%B5%D0%B4%D0%B8%D0%BD%D0%B8%D1%82%D1%8C­-357b449a-ec91-49d0-80c3-0e8fc845691c
2019 по подписке 365

Объем данных и сколько максимум может быть значений для объединения?

сделайте условным форматированием

просто безобразие, я устал пересчитывать свои сообщения и менять аватарку :-)

ох попадись мне это ии, я ему расскажу как багфиксы делать, про ченьжменеджмент немного втолкую :-)

На этот раз и Алексею прилетело  

левый - означает не тот который нужен