Процедура ПереченьУслуг(ТабДок, ВидНоменклатуры, ДатаОтчета) Экспорт
//{{КОНСТРУКТОР_ВЫХОДНЫХ_ФОРМ(ПереченьУслуг)
// Данный фрагмент построен конструктором.
// При повторном использовании конструктора, внесенные вручную изменения будут утеряны!!!

Макет = ОтчетОбъект.ПолучитьМакет("ПереченьУслуг");
Запрос = Новый Запрос;
Запрос.Текст =

"ВЫБРАТЬ
| СпрНоменклатураМастер.Родитель КАК ГруппаУслуг,
| ПРЕДСТАВЛЕНИЕ(СпрНоменклатураМастер.Родитель),
| СпрНоменклатураМастер.Ссылка КАК Услуга,
| СпрНоменклатураМастер.Представление,
| ЦеныСрезПоследних.Цена
|ИЗ
| Справочник.НоменклатураМастер КАК СпрНоменклатураМастер
| ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.Цены.СрезПоследних(&ДатаОтчета, ) КАК ЦеныСрезПоследних
| ПО ЦеныСрезПоследних.Номенклатура = СпрНоменклатураМастер.Ссылка
|ГДЕ
| СпрНоменклатураМастер.ВидНоменклатуры = &ВидНоменклатуры
|ИТОГИ ПО
| ГруппаУслуг ИЕРАРХИЯ";

Запрос.УстановитьПараметр("ВидНоменклатуры", Перечисления.ВидыНоменклатуры.Услуга);
Запрос.УстановитьПараметр("ДатаОтчета", ДатаОтчета);
Результат = Запрос.Выполнить();

ОбластьЗаголовок = Макет.ПолучитьОбласть("Заголовок");
ОбластьПодвал = Макет.ПолучитьОбласть("Подвал");
ОбластьШапкаТаблицы = Макет.ПолучитьОбласть("ШапкаТаблицы");
ОбластьПодвалТаблицы = Макет.ПолучитьОбласть("ПодвалТаблицы");
ОбластьГруппаУслугИерархия = Макет.ПолучитьОбласть("ГруппаУслугИерархия");
ОбластьГруппаУслуг = Макет.ПолучитьОбласть("ГруппаУслуг");
ОбластьДетальныхЗаписей = Макет.ПолучитьОбласть("Детали");
ТабДок.Очистить();
ТабДок.Вывести(ОбластьЗаголовок);
ТабДок.Вывести(ОбластьШапкаТаблицы);
ТабДок.НачатьАвтогруппировкуСтрок();
ВыборкаГруппаУслуг = Результат.Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам);

Пока ВыборкаГруппаУслуг.Следующий() Цикл
Если ВыборкаГруппаУслуг.ТипЗаписи() = ТипЗаписиЗапроса.ИтогПоИерархии Тогда
Область = ОбластьГруппаУслугИерархия;
Иначе
Область = ОбластьГруппаУслуг;
КонецЕсли;
Область.Параметры.Заполнить(ВыборкаГруппаУслуг);
ТабДок.Вывести(Область, ВыборкаГруппаУслуг.Уровень());
ВыборкаДетали = ВыборкаГруппаУслуг.Выбрать();
Пока ВыборкаДетали.Следующий() Цикл
ОбластьДетальныхЗаписей.Параметры.Заполнить(ВыборкаДетали);
ТабДок.Вывести(ОбластьДетальныхЗаписей, ВыборкаДетали.Уровень(),, Ложь);
КонецЦикла;
КонецЦикла;
ТабДок.ЗакончитьАвтогруппировкуСтрок();
ТабДок.Вывести(ОбластьПодвалТаблицы);
ТабДок.Вывести(ОбластьПодвал);


http://devtrainingforum.v8.1c.ru/forum/thread.jsp?id=537541

Загрузи их в ТаблицуЗначений и ТЗ.Свернуть(), ТЗ.Сортировать()

Если хочешь сделать это в самом экселе - то:
1 сервис макрос начать запись
2 сверни руками в этой таблице
3 останови макрос и посмотри его код

По моему так : Лист1.Range(ТвойДиапазон).Group();

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