Как я могу настроить сводную таблицу Excel для отображения только ранга 1 через VBA?

У меня есть список объектов, и я хочу увидеть наиболее часто используемый объект. Я знаю, что мог бы написать формулу для этого, если бы был только 1 объект, который использовался чаще всего, но иногда результаты связаны, и у нас может быть 2, 3, 4... объекты, все используемые одинаковое количество раз.

Поэтому я считаю, что Pivot с использованием ранжирования может быть лучшим способом представления результатов, если я могу фильтровать все объекты с RANK 1.

Однако я не могу понять, как заставить Pivot просто отображать результаты RANK 1. Например, ниже приведен источник данных;

Object
Pencil
Pencil
Pencil
Paper
Paper
Paper
Ruler
Ruler
Rubber

При размещении в Pivot вы получите:

Object  Vol.  Rank
Pencil  3     1
Paper   3     1
Ruler   2     2
Rubber  1     3

Как заставить Pivot отображать только RANK 1. И как бы я написал это в Excel VBA?

А вы пробовали формулу RANK? См. здесь. После этого просто отфильтруйте по Rank = 1, я думаю.

FAB 29.05.2019 11:07

Вы можете применить фильтр на ранге 1.

Mikku 29.05.2019 11:08
Преобразование HTML-таблицы в профессиональный документ Excel
Преобразование HTML-таблицы в профессиональный документ Excel
Это самый простой способ создания Excel из HTML-таблицы.
Импорт excel в laravel в базу данных
Импорт excel в laravel в базу данных
Здравствуйте, дорогой читатель, в этой статье я расскажу практическим и быстрым способом, как импортировать файл Excel в вашу базу данных с помощью...
1
2
79
1
Перейти к ответу Данный вопрос помечен как решенный

Ответы 1

Ответ принят как подходящий

Вы можете применить фильтр «Top 1 Count» к PivotField следующим образом:

With ActiveSheet.PivotTables(1)
    .PivotFields("Object").PivotFilters.Add2 _
        Type:=xlTopCount, _
        Value1:=1, _
        DataField:=.DataFields(1)
End With

Спасибо. Я не думал об опции Top x Count. Это отлично работает для того, что мне нужно.

seaside_escape 29.05.2019 12:55

Другие вопросы по теме

Похожие вопросы

VBA: как автоматически включать границы ячеек без ошибки (время выполнения 1004) Стиль линии
Поиск пропущенных чисел в заданном диапазоне
Получение ошибок при работе с типами null или NaN при работе с CSV-файлами с пандами
Игнорировать дубликаты и создавать список уникальных значений, разделенных запятыми, в Excel
Функция VBA для копирования текста из одной неподвижной ячейки для вставки в другую ячейку, перемещение вниз на одну ячейку при каждой вставке/цикле
Как выбрать вариант из выпадающего списка на веб-странице, используя внутренний текст
Как рассчитать разницу между часами, когда ячейки содержат дату в формате даты? И есть некоторые условия тоже
Нет разрешения на чтение «MSysObjects» (номер ошибки: -2147217911) при использовании Microsoft Excel VBA для запроса доступа только к файлам accdb — mdb работает нормально
EXCEL VBA: редактирование столбца строк с помощью функции
Скрипт Powershell для обработки многострочных данных в ячейке excel и преобразования в csv с помощью Import-excel или Import-csv