Как я могу перебрать каждый столбец в сводной таблице и определить верхние 2-3 числа в таблице?

Question

У меня есть лист, и я хочу выделить два верхних числовых значения в каждом столбце.

Я думал о чем-то вроде этого

Sub like_this()

   Dim rng As Range

   For Each rng In Range(1, Columns.Count).End(xlToLeft).Column

        'highlight top two values in yellow 

   Next rng

End Sub

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

Answer 1

Ник, я думаю, вы можете сделать это с помощью условного форматирования.Выберите ВСЮ таблицу (но не заголовки), а затем используйте формулу на снимке экрана ниже.Установите формулу для ячейки TOP LEFT в вашем выделении (в случае моего скриншота это ячейка A1).

Затем, конечно, установите его для форматирования заливки как желтого.