ник: s-control
одинаковые данные необходимо объединить сохранив изначальное количество строк?
Чего-то я не понимаю наверное, мой запрос и возвращает нужный вам результат, ну и выплевывайте его в Excel. Или принципиально именно в excel все это форматировать? Если именно форматировать в Excel, а не группировать в запросе, то собственно у вас решение уже есть. Лучше наверное не сделать. Если я правильно понял вашу цель, то могу всего лишь посоветовать вставить перед циклом и после соответсвующие строки, это сократит время выполнения цикла, так как не будут тратится ресурсы на обновление экрана. Время сократится заметно.
Application.ScreenUpdating = False
ЦИКЛ
Application.ScreenUpdating = True