Как добавить несколько полей в сводную таблицу?

При создании сводной таблицы нам нужно вручную перетаскивать поля в метки строк или значения по одному. Если у нас длинный список полей, мы можем быстро добавить несколько меток строк, но оставшиеся поля должны быть добавлены в область значений. Существуют ли быстрые методы для добавления всех остальных полей в область значений одним щелчком в сводной таблице?

Добавление нескольких полей в область значений сводной таблицы с помощью кода VBA

Добавление нескольких полей в область значений сводной таблицы с помощью кода VBA

К сожалению, нет флажка, который позволил бы нам быстро выбрать все поля в списке полей сводной таблицы одним щелчком, однако следующий код VBA поможет вам сразу добавить оставшиеся поля в область значений. Пожалуйста, выполните следующие действия:

1. После создания сводной таблицы сначала следует добавить поля меток строк по мере необходимости, оставляя поля значений в списке « Выберите поля для добавления в отчет», см. скриншот:

2. Нажмите и удерживайте клавиши ALT + F11, чтобы открыть окно Microsoft Visual Basic for Applications.

3. Нажмите Вставить > Модуль и вставьте следующий код в окно Модуля.

Код VBA: Добавление нескольких полей в область значений сводных таблиц на активном листе

Sub AddAllFieldsValues()
'Update 20141112
    Dim pt As PivotTable
    Dim I As Long
    For Each pt In ActiveSheet.PivotTables
        For I = 1 To pt.PivotFields.Count
            With pt.PivotFields(I)
              If .Orientation = 0 Then .Orientation = xlDataField
            End With
        Next
    Next
End Sub

4. Затем нажмите клавишу F5, чтобы запустить этот код; все оставшиеся поля будут добавлены в область значений одновременно, см. скриншот:

Примечание: Этот код VBA применяется ко всем сводным таблицам активного листа.

Связанные статьи:

Как вывести список всех сводных таблиц из книги?

Как проверить, существует ли сводная таблица в книге?