ВремТЗ = ТЗ.Скопировать();
ВремТЗ.Колонки.Добавить("Количество");
ВремТЗ.ЗаполнитьЗначения(1, "Количество");
ВремТЗ.Свернуть("МояКолонка", "Количество");
Для Каждого СтрокаТЗ Из ВремТЗ Цикл
КоличествоОдинаковыхЭлементов = СтрокаТЗ.Количество;
КонецЕсли;
Чтобы обнаруживать ошибки, программист должен иметь ум, которому доставляет удовольствие находить изъяны там, где, казалось, царят красота и совершенство. Фредерик Брукс-младший