Автор: Maniac Rabbit. Подскажите пожалуйста как в сводной таблице можно программно скопировать отдельно каждое поле и все элементы в нем? разбить на несколько таблиц... Вот пример самой сводной таблицы: http://i11.pixs.ru/storage/6/6/2/Skrinshot1_3414632_26214662.png То есть мне нужно скопировать отдельно в данном примере по полю квартал : 266 и выдел: 21 31 38. Вот мой код, понимаю что нужно как-то циклом сделать, но как лучше?Sub TestPivotTable() Dim shName$ Dim wbname$ Dim pt As ...