помогите оптимизировать код макроса создания сводной таблицы

[SunKiSSka]

Доброго времени суток!

Записан с помощью макрорекодера, но с такими вещами никогда не сталкивалась. Подскажите, может кто-нибудь знает вариант поизящнее.


Спасибо!!!!

[VictorM]

SunKiSSka, здравствуйте. Как-то, в начале своей жизни на форуме я поднимал тему, посмотрите
http://forum.developing.ru/showthread.php?t=6756
т.е. для начала нужно избавиться от явного выделения листов, диапазонов, ячеек. Да и при составлении и форматировании таблицы макрорекордер пишет много лишнего.
Например, 33 строки кода Range("E4:I56").Select и.т. можно заменить на

Код: Выделить всё

With Range("E4:I56").Borders
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With

[SunKiSSka]

...посмотрите
http://forum.developing.ru/showthread.php?t=6756
т.е. для начала нужно избааиться от явного выделения листов, ячеек. Да и при составлении и форматировании таблицы макрорекордер пишет много лишнего.

Спасибо за отклик!

[VictorM]

Этот макрос для таблицы из предыдущего поста?
А то чё-то неохота воссоздавать всю таблицу для проверки

[SunKiSSka]

Этот макрос для таблицы из предыдущего поста?
А то чё-то неохота воссоздавать всю таблицу для проверки

Да бьюсь все с одним и тем же, просто предполагаю разные варианты решения