Ser ArturПри коде вписанный в макрос для сводной таблицы даёт ошибку "6"
Код такой
авторActiveSheet.PivotTables("PivotTable1").PivotFields("Sum of Cena").Function = xlSumma / xlKolichestvo
а код
авторActiveSheet.PivotTables("PivotTable1").PivotFields("Sum of Cena").Function = xlAverage
не подходит, потому что иногда средне арифметическое не равно Сумме делённая на количество
Например
Количество----Цена----Сумма
----10----------10-------100
----2-----------15--------30
Средне арифметическое цены равно - 12,5
а Сумма делённая на количество равно - 10,83
КАК БЫТЬ КТО ПОМОЖЕТ
СПАСИБО

Если у тебя есть поле данных "сумма" и поле данных "кол-во".
Идёшь Сводная таблица - формулы - вычисляемое поле
пишешь Формулу =сумма/'кол-во'
Если кодом, то так

Либо такой изврат с исходными данными, Я так делал в своё ремя, хотя тогда я не знал про вычисляемые поля. Пример в файле.

ActiveSheet.PivotTables("PivotTable2").CalculatedFields.Add "Average", "=D /B", True
ActiveSheet.PivotTables("PivotTable2").PivotFields("Average").Orientation = xlDataField