Обновите код, так как я скучаю по интерпретации вашего вопроса (хотите кроме).Для очень большого набора данных рабочая книга может медленно применять фильтрацию из-за пересчетов рабочей таблицы.Этот код VBA скрывает все столбцы, а затем показывает каждую 30-ю строку, и, надеюсь, его легко изменить для вашей цели.
Код VBA:
Sub Hide_Every_nth_Row()
Dim n As Integer
Range("1:29160").EntireRow.Hidden = True 'Hide all rows from row 1 to 29160
For n = 1 To 29160 Step 30 'start from row 1 and loop to row 29160. After every loop it jump 30 rows.
Range(Cells(n, 1), Cells(n, 1)).EntireRow.Hidden = False 'Show the nth Row set as "Step". It check the nth row and Column A (A = 1), but since you show the whole row, the column doesn't matter :)
Next n
End Sub
n = 1
:С какой строки начинать.
To 29160
: Какой у вас конечный ряд.
Step 30
: Сколько шагов для прыжка каждый раз, когда он повторяется, начинается с "n
"th значение.
EntireRow.Hidden = False
: показать строку.Установите это как True
, чтобы скрыть каждую строку.