Как да изключите всеки друг ред с макрос
Искате ли да направите всеки втори или всеки n -ти ред в таблица невидим? Можете да направите това с командата "Скрий". Но ако искате да направите това за голям брой редове, това става досадно.
Макросът върши работата вместо вас. Ето кода:
Под втори ред скриване ()
Dim Row As Long
Ред = 1
Докато ред <1000
Клетки (ред, 1) .EntireRow.Hidden = Истина
Линия = ред + 2
Уенд
End Sub
Макросът скрива всеки друг ред в активния ви работен лист от ред 1 до ред 1000. Ако искате различен обхват, поставете долната граница 1 в командата Ред = 1 и променете горната граница 1000 в командата Докато ред <1000. Просто заменете 1 и 1000 с номерата по ваш избор.
Ако не искате да скривате всеки втори ред, можете също да добавите различна стойност за 2 към командата Линия = ред + 2 влезте. Стойност 4 крие само всеки четвърти ред, число 10 всеки десети ред и т.н.
За да покажете скритите редове отново, заменете командата Вярно в макроса Фалшиво и стартирайте макроса отново.