VBA - Excel - нужен код для возврата диапазона значений на основе календаря

Question

Я пытаюсь найти способ возврата точных дней, в течение которых работник смены должен работать, на основе календаря (полный календарь длится до последнего дня месяца):

  ID  | Days | 1 2 3 4 5 6 7 8 
 -----|------|-------------------
    1 |   30 | Y Y Y Y     Y Y

Дни, в которые он работает, всегда будут отмечены знаком "Y".

В этом случае я хотел бы отправить ему электронное письмо:

-Вы должны работать с 1 до 4
-Вы должны работать с 7 до 8

Я уже закодировал сабвуфер отправляющей электронной почты, мне нужен только кусок кода, чтобы выбрать дни, которые должны быть обработаны.

Answer 1

Сам нашел решение очень сложным способом, но оно работает:

1) Один Sub для транспонирования первой строки на основе значения "Y" 2) Добавьте еще один Sub для добавления формулы «если», чтобы определить разрыв строки, когда диапазон пропускается +1 3) Добавьте еще один Sub для копирования первого и последнего значения каждого сегмента (разделенных линией разрыва)