Как скрыть повторяющиеся строки в Excel

Если у вас много записей в диапазоне, вы можете скрыть все не повторяющиеся строки. 

Этот макрос перечисляет ячейки в целевом диапазоне, используя оператор For Each, чтобы последовательно активировать каждую ячейку. Затем мы используем функцию СЧЕТЕСЛИ, чтоб подсчитать, сколько раз значение в активной ячейке находится в выбранном диапазоне. Если это число один, мы скрываем строку, в которой находится активная ячейка. Если это число больше единицы, тогда макрос делает ячейку желтой и оставляет строку видимой.

1. Шаг 1 объявляет две переменные объекта Range. 

2. Шаг 2 заполняет переменную MyRange с целевым диапазоном. 

3. Шаг 3 запускает цикл через каждую ячейку в целевом диапазоне, активизируя каждую из них. 

4. Сначала мы используем функцию IsEmpty, чтобы убедиться, что ячейка не пуста. Макрос не будет скрывать строки без данных. Затем мы используем объект WorksheetFunction, чтобы запустить функцию СЧЕТЕСЛИ в VBA. В данном случае, мы считаем количество ячеек (MyCell.Value), которые находятся в указанном диапазоне (MyRange). Если выражение СЧЕТЕСЛИ имеет значение больше 1, то мы меняем цвет ячейки и устанавливаем свойство EntireRow Hidden = False. Это гарантирует, что строка будет видна. 

Если выражение СЧЕТЕСЛИ не принимает значение больше 1, то макрос переходит к аргументу Else. Здесь мы устанавливаем свойство EntireRow Hidden = True. Это гарантирует, что строка не видна. 

5. Шаг 5 повторяет цикл, чтобы получить следующую ячейку. После просмотра всех ячеек в целевом диапазоне макрос заканчивается. 

Для реализации этого макроса, вы можете скопировать и вставить его в стандартный модуль:

1. Активируйте редактор Visual Basic, нажав ALT + F11. 
2. Щелкните правой кнопкой мыши имя проекта / рабочей книги в окне проекта. 
3. Выберите Insert➜Module. 
4. Введите или вставьте код во вновь созданном модуле.