(0) Буквально в пятницу делал)))
Немного адаптирую к твоей задаче:
ТекущийДень = Неопределено;
КоличествоСмен = 0;
Пока Выборка.Следующий() Цикл
Если ТекущийДень <> Неопределено И ТекущийДень <> Выборка.Дата Тогда
ТабДокумент.Область(2, ТабДокумент.ШиринаТаблицы - КоличествоСмен + 1, 2, ТабДокумент.ШиринаТаблицы).Объединить();
КоличествоСмен = 0;
КонецЕсли;
ТекущийДень = Выборка.Дата;
КоличествоСмен = КоличествоСмен + 1;
...
КонецЦикла;
Требовать и эффективности, и гибкости от одной и той же программы — все равно, что искать очаровательную и скромную жену... по-видимому, нам следует остановиться на чем-то одном из двух. Фредерик Брукс-младший