Как выбрать каждую пятую строку в Excel: от фильтров до макросов

Работа с большими таблицами в Microsoft Excel часто требует нестандартных решений — например, когда нужно выделить или извлечь каждую пятую строку для анализа, печати или дальнейшей обработки. Эта задача возникает при работе с логами, отчётами по сменам, данными опросов или регулярными выборками (например, еженедельными записями в ежедневном журнале). Вручную пролистывать тысячи строк неэффективно, поэтому мы собрали 5 проверенных методов — от простых фильтров до автоматизации через VBA.

Многие пользователи ошибочно полагают, что для такой задачи обязательно нужен макрос или сложная формула. На самом деле даже начинающий может справиться стандартными инструментами Excel — главное знать алгоритм. В этой статье вы найдёте пошаговые инструкции с визуальными примерами, предупреждения о типичных ошибках и советы по оптимизации процесса. А если вам нужно не просто выделить, а скопировать каждую пятую строку в новый лист — для этого тоже есть отдельное решение.

Далее рассмотрим методы от самого простого к продвинутому, чтобы вы могли выбрать оптимальный вариант под свои задачи и уровень владения Excel.

1. Способ: Использование фильтра по номеру строки

Самый универсальный метод, который работает во всех версиях Excel (включая Excel 2010 и Office 365) — добавление вспомогательного столбца с номером строки и последующая фильтрация. Этот подход не требует знания формул и подходит для таблиц любого размера.

Алгоритм действий:

1. Добавьте слева от ваших данных новый столбец (например, A).
2. В первой ячейке столбца (A2, если заголовок в A1) введите формулу:

   =СТРОКА()-1

   и протяните её до конца таблицы.

3. Выделите заголовок вспомогательного столбца и включите фильтр (Данные → Фильтр).
4. Откройте выпадающий список фильтра и выберите Числовые фильтры → Пользовательский фильтр.
5. В поле условий укажите: "равно" → 5, затем добавьте второе условие "равно" → 10, 15 и так далее (или используйте формулу =ОСТАТ(A2;5)=0 в расширенном фильтре).

✅ Плюсы метода:

• 🔹 Не требует знания VBA или сложных формул.
• 🔹 Работает даже в старых версиях Excel.
• 🔹 Позволяет гибко настраивать шаг выборки (не только 5, но и 3, 7 и т.д.).

⚠️ Внимание: Если ваша таблица начинается не с первой строки листа, скорректируйте формулу в п.2. Например, для данных с 10-й строки используйте =СТРОКА()-9.

2. Способ: Формула МАССИВА для извлечения строк

Для пользователей, знакомых с продвинутыми формулами, подойдёт метод на основе функции ИНДЕКС. Он позволяет автоматически извлечь каждую пятую строку в отдельный диапазон без фильтрации.

Используйте эту формулу массива (вводится через Ctrl+Shift+Enter в старых версиях или просто Enter в Excel 365):

=ИНДЕКС($B$2:$B$100;ПОИСКПОЗ(НЕЧЁТ(СТРОКА(A1)/5);НЕЧЁТ(СТРОКА($B$2:$B$100)/5);0))

Где:

• $B$2:$B$100 — диапазон с данными (замените на свой).
• A1 — ячейка, откуда начинается вывод результатов.

🔹 Как работает: Формула проверяет, делится ли номер строки на 5 без остатка, и возвращает соответствующие значения. Для извлечения всех столбцов оберните её в ПРОСМОТР или используйте Power Query (см. следующий раздел).

⚠️ Внимание: В Excel 2019 и старше формула массива может тормозить на таблицах свыше 10 000 строк. Для больших данных используйте Power Query или VBA.

3. Способ: Power Query для динамической выборки

Power Query (доступен в Excel 2016+ и Office 365) — самый мощный инструмент для работы с большими данными. Он позволяет автоматизировать выборку каждой пятой строки и обновлять её при изменении исходных данных.

Пошаговая инструкция:

1. Выделите вашу таблицу и перейдите на вкладку Данные → Из таблицы/диапазона (в Excel 2016 — Получить данные → Из таблицы).
2. В открывшемся редакторе Power Query добавьте пользовательский столбец с формулой:

   = if Number.Mod([Index], 5) = 0 then 1 else 0

   (где [Index] — системный столбец с номерами строк).

3. Отфильтруйте новый столбец по значению 1.
4. Удалите вспомогательный столбец и загрузите данные на новый лист.

✅ Преимущества Power Query:

• 🔹 Обрабатывает миллионы строк без замедлений.
• 🔹 Автоматически обновляет выборку при изменении исходных данных.
• 🔹 Позволяет добавлять дополнительные фильтры (например, выбрать каждую пятую строку только для определённого отдела).

Sub SelectEveryFifthRow()
Dim rng As Range, cell As Range, i As Long
Dim newSheet As Worksheet
Set rng = Selection
i = 1

' Создаём новый лист для результатов
Set newSheet = Worksheets.Add
newSheet.Name = "Каждая 5-я строка"

' Копируем заголовки (если есть)
If rng.Rows(1).Row = 1 Then
rng.Rows(1).Copy Destination:=newSheet.Range("A1")
i = 2
End If

' Проходим по строкам и копируем каждую 5-ю
For Each cell In rng.Columns(1).Cells
If (cell.Row Mod 5 = 0) Then
rng.Rows(cell.Row).Copy Destination:=newSheet.Range("A" & i)
i = i + 1
End If
Next cell

MsgBox "Готово! Выделено " & (i - 1) & " строк.", vbInformation
End Sub

If (cell.Row > 10) And (cell.Row Mod 5 = 0) Then