Note: The other languages of the website are Google-translated. Back to English

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

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

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

Вкладка Office позволяет редактировать и просматривать в Office с вкладками и значительно упрощает работу ...
Kutools for Excel решает большинство ваших проблем и увеличивает вашу производительность на 80%
  • Повторное использование чего угодно: Добавляйте наиболее часто используемые или сложные формулы, диаграммы и все остальное в избранное и быстро используйте их в будущем.
  • Более 20 текстовых функций: Извлечь число из текстовой строки; Извлечь или удалить часть текстов; Преобразование чисел и валют в английские слова.
  • Инструменты слияния: Несколько книг и листов в одну; Объединить несколько ячеек / строк / столбцов без потери данных; Объедините повторяющиеся строки и сумму.
  • Разделить инструменты: Разделение данных на несколько листов в зависимости от ценности; Из одной книги в несколько файлов Excel, PDF или CSV; От одного столбца к нескольким столбцам.
  • Вставить пропуск Скрытые / отфильтрованные строки; Подсчет и сумма по цвету фона; Отправляйте персонализированные электронные письма нескольким получателям массово.
  • Суперфильтр: Создавайте расширенные схемы фильтров и применяйте их к любым листам; Сортировать по неделям, дням, периодичности и др .; Фильтр жирным шрифтом, формулы, комментарий ...
  • Более 300 мощных функций; Работает с Office 2007-2021 и 365; Поддерживает все языки; Простое развертывание на вашем предприятии или в организации.

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

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

1. После создания сводной таблицы, во-первых, вы должны добавить поля меток строки по своему усмотрению и оставить поля значений в Выберите поля для добавления в отчет список, см. снимок экрана: </ p>

док-добавить-несколько полей-1

2. Удерживайте ALT + F11 , чтобы открыть Окно Microsoft Visual Basic для приложений.

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 ключ для запуска этого кода, все остальные поля были добавлены в область значений одновременно, см. снимок экрана:

док-добавить-несколько полей-1

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


Статьи по теме:

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

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


Лучшие инструменты для работы в офисе

Kutools for Excel решает большинство ваших проблем и увеличивает вашу производительность на 80%

  • Снова использовать: Быстро вставить сложные формулы, диаграммы и все, что вы использовали раньше; Зашифровать ячейки с паролем; Создать список рассылки и отправлять электронные письма ...
  • Бар Супер Формулы (легко редактировать несколько строк текста и формул); Макет для чтения (легко читать и редактировать большое количество ячеек); Вставить в отфильтрованный диапазон...
  • Объединить ячейки / строки / столбцы без потери данных; Разделить содержимое ячеек; Объединить повторяющиеся строки / столбцы... Предотвращение дублирования ячеек; Сравнить диапазоны...
  • Выберите Дубликат или Уникальный Ряды; Выбрать пустые строки (все ячейки пустые); Супер находка и нечеткая находка во многих рабочих тетрадях; Случайный выбор ...
  • Точная копия Несколько ячеек без изменения ссылки на формулу; Автоматическое создание ссылок на несколько листов; Вставить пули, Флажки и многое другое ...
  • Извлечь текст, Добавить текст, Удалить по позиции, Удалить пробел; Создание и печать промежуточных итогов по страницам; Преобразование содержимого ячеек в комментарии...
  • Суперфильтр (сохранять и применять схемы фильтров к другим листам); Расширенная сортировка по месяцам / неделям / дням, периодичности и др .; Специальный фильтр жирным, курсивом ...
  • Комбинируйте книги и рабочие листы; Объединить таблицы на основе ключевых столбцов; Разделить данные на несколько листов; Пакетное преобразование xls, xlsx и PDF...
  • Более 300 мощных функций. Поддерживает Office/Excel 2007-2021 и 365. Поддерживает все языки. Простое развертывание на вашем предприятии или в организации. Полнофункциональная 30-дневная бесплатная пробная версия. 60-дневная гарантия возврата денег.
вкладка kte 201905

Вкладка Office: интерфейс с вкладками в Office и упрощение работы

  • Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
  • Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
  • Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!
офисный дно

 

Сортировать комментарии по
Комментарии (23)
Оценок пока нет. Оцените первым!
Этот комментарий был сведен к минимуму модератором на сайте
Очень хороший и полезный макрос. Однако я уже добавил половину своих полей в значения, и когда я запустил этот макрос, он снова добавил все те же поля. Есть идеи, почему?
Этот комментарий был сведен к минимуму модератором на сайте
Ух ты. Это работает очень хорошо. Большое спасибо! Тем не менее, я немного удивлен, что у Microsoft не было встроенной функции для довольно простой задачи...
Этот комментарий был сведен к минимуму модератором на сайте
Это фантастика. Можно ли изменить макрос, чтобы добавить все в метки строк вместо значений?
Этот комментарий был сведен к минимуму модератором на сайте
Есть ли способ запустить это только для исключенных полей, чтобы при запуске у меня не было повторяющихся полей? т.е. "Поле" и "Поле_2"
Этот комментарий был сведен к минимуму модератором на сайте
[quote]Есть ли способ запустить это только для исключенных полей, чтобы при его запуске не было дублирующихся полей? т.е. "Поле" и "Поле_2"Автор: Шон[/quote] Да, два примера Используйте это, чтобы добавить все оставшиеся неотмеченные элементы в ROWS Sub AddAllFieldsRow() Dim pt As PivotTable Dim iCol As Long Dim iColEnd As Long Set pt = ActiveSheet.PivotTables(1) With pt iCol = 1 iColEnd = .PivotFields.Count For iCol = 1 To iColEnd с .PivotFields(iCol) Если .Orientation = 0 Then .Orientation = xlRowField End If End With Next iCol End With End Sub Используйте это, чтобы добавить оставшиеся неотмеченные элементы в VALUES Sub AddAllFieldsValues() Dim pt As PivotTable Dim iCol As Long Dim iColEnd As Long Set pt = ActiveSheet.PivotTables(1) With pt iCol = 1 iColEnd = .PivotFields.Count For iCol = 1 To iColEnd with .PivotFields(iCol) If .Orientation = 0 Then .Orientation = xlDataField End If End With Next iCol End With End Sub
Этот комментарий был сведен к минимуму модератором на сайте
Есть ли способ добавить только некоторые дополнительные поля, а не остальные или все, а только пару из тех, которые еще не проверены? :)
Этот комментарий был сведен к минимуму модератором на сайте
Да, чтобы повторить Маркуса, есть ли способ отредактировать код, чтобы добавить только непроверенные поля, которые имеют определенные метки полей (например, с функцией if contains)? Например, у меня есть вопрос, который на самом деле содержит 50 значений «да/нет» по темам, и я хотел бы переместить их все в поле значений. Все они начинаются с одной и той же метки вопроса q9_[конкретная тема вопроса].
Этот комментарий был сведен к минимуму модератором на сайте
В любом случае, если мы хотим добавить некоторые выбранные столбцы из базового файла вместо всех?
Этот комментарий был сведен к минимуму модератором на сайте
Его значение takiung как count. как я могу преобразовать все подсчеты в сумму
Этот комментарий был сведен к минимуму модератором на сайте
Вы можете щелкнуть свое поле (в области, куда вы перетаскиваете свои поля: метки столбцов, метки строк и т. Д.), Затем нажмите «Настройка поля значения», после чего вы получите раскрывающийся список, из которого вы можете выбрать «Сумма»!
A     El
Этот комментарий был сведен к минимуму модератором на сайте
Код VBA: изменение настроек нескольких полей в сводной таблице
https://www.extendoffice.com/documents/excel/2354-excel-pivot-table-change-multiple-field-settings.html
Этот комментарий был сведен к минимуму модератором на сайте
Это замечательно! Спасибо.
Этот комментарий был сведен к минимуму модератором на сайте
«xlDataField» не работает с PowerPivot? У меня есть приведенный ниже код, который используется для добавления всех показателей в сводную таблицу. Он работает с «xlColumnField» и «xlRowField». Любые идеи, как заставить это работать?

Подпрограмма AddAllFieldsValues()
Dim pt As PivotTable
Dim iCol до тех пор, пока
Dim iColEnd As Long

Установите pt = ActiveSheet.PivotTables (1)

С пт

iкол = 1
iColEnd = .CubeFields.Count

Для iCol = 1 Для iColEnd
С .CubeFields(iCol)
Если .Orientation = xlHidden Тогда
.Ориентация = кслдатафиелд
End If
Конец с
Следующий iCol

Конец с

End Sub
Этот комментарий был сведен к минимуму модератором на сайте
Здравствуй.

Это дает мне ошибку компиляции, когда я нажимаю «Выполнить».

Пожалуйста помоги
Этот комментарий был сведен к минимуму модератором на сайте
Работает как шарм. Спасибо
Этот комментарий был сведен к минимуму модератором на сайте
Спасибо, мне очень помогло
Этот комментарий был сведен к минимуму модератором на сайте
БОЛЬШОЕ СПАСИБО!!!
Этот комментарий был сведен к минимуму модератором на сайте
Примечание. Сообщение об ошибке Че:




Подпрограмма AddAllFieldsValues()




'Обновление 20141112



Тусклый
pt как сводная таблица





Дим я как
Длинное





Для каждого
pt в ActiveSheet.PivotTables





Для того, чтобы получить
I = 1 В точку.PivotFields.Count





Конец с







Далее



Далее




End Sub










Примечание: Че пытается добавить следующее
поля/моментальный снимок- "Сумма ДРУГОЙ разницы, сумма 4096
Разница" более 80 полей, которые будут
добавленный







ДРУГОЕ Отличие



4096 Разница



4016 Разница
Этот комментарий был сведен к минимуму модератором на сайте
Если «Значения
«0» или «Null», как запретить отображение значений строк

(например, сумма разницы 2743)





Сводные «ряды»
Сводка "Ценности"





заголовки строк





NP9 — Всего неизрасходованных средств
ассигнования





Сумма ПРОЧИХ разниц 1,045,355,165.31 XNUMX XNUMX XNUMX




Сумма 3200 Разница
0.00




Сумма 0108 Разница
12,873,630.29



Сумма 4586 Разница
(33,024,706.93)



Сумма 0148 Разница
(72,046,783.14)



Сумма 0129 Разница
(5,583,891.98)



Сумма 4598 Разница
(929,574.56)



Сумма 2743 Разница



Сумма 4041 Разница
0.00



Сумма 2799 Разница
Этот комментарий был сведен к минимуму модератором на сайте
Есть ли способ отредактировать макрос, который будет отправлять поля в метку строк вместо значений?
Этот комментарий был сведен к минимуму модератором на сайте
Задача же не всегда стоит в получении списка, желательно по возможности поправить название таблицы или данных. Можете реализовать?
Этот комментарий был сведен к минимуму модератором на сайте
Привет, есть ли способ добавить только невыбранные столбцы? Благодарю. 
Этот комментарий был сведен к минимуму модератором на сайте
Я запускаю этот код. Сколько времени требуется для завершения? Прошло уже 45 минут, как он все еще работает. Помогите пожалуйста мне. Кстати, у меня всего столбцов полей 3600.
Здесь еще нет комментариев
Оставляйте свои комментарии
Публикация как гость
×
Оценить этот пост:
0   Характеристики
Предлагаемые места

Подписывайтесь на Нас

Copyright © 2009 - www.extendoffice.ком. | Все права защищены. Питаться от ExtendOffice, | Карта сайта
Microsoft и логотип Office являются товарными знаками или зарегистрированными товарными знаками Microsoft Corporation в США и / или других странах.
Защищено Sectigo SSL