Как скопировать отфильтрованные строки в новый Excel файл

Часто, когда вы работаете с набором данных, вы хотите скопировать отфильтрованные строки в новую книгу. Конечно, вы можете вручную скопировать эти строки, просто открыть новую книгу и вставить строки, а затем отформатировать вновь вставленные данные так, чтобы все столбцы подходили. Но если вы делаете это достаточно часто, вы можете использовать макрос, чтобы ускорить процесс.

Этот макрос захватывает диапазон AutoFilter, открывает новую книгу, а затем вставляет данные. 

1. Шаг 1 использует свойство AutoFilterMode, чтобы проверить есть ли на листе фильтры. Если нет, то мы выходим из процедуры. 

2. Каждый объект AutoFilter имеет свойство Range. Это свойство Range возвращает строки, к которым применяется фильтр, то есть он возвращает только те строки, которые отображаются в отфильтрованном наборе данных. На шаге 2 мы используем метод Copy, чтобы захватить эти строки, а затем вставить строки в новую книгу. Обратите внимание, что мы используем Workbooks.Add.Worksheets, это говорит Excel вставить данные в первый лист вновь созданной книги. 

3. Шаг 3 говорит Excel, чтобы размер столбцов соответствовал данным, которые мы только что вставили. 

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

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