KutoolsforOffice — Одно решение — пять мощных инструментов.Меньше усилий — больше результата.

Как скрыть каждую вторую строку в Excel?

АвторСяоянДата изменения

Когда вам нужно скрыть каждую вторую строку в Excel, как это можно быстро сделать? Вручную скрывать строки одну за другой? Или вы можете воспользоваться приведённой ниже инструкцией для быстрого скрытия каждой второй строки в Excel.

Скрытие каждой второй строки с помощью кода VBA

Скрытие каждой второй строки с помощью Kutools для Excel


Скрытие каждой второй строки с помощью кода VBA

Следующий короткий код VBA поможет вам быстро скрыть каждую вторую строку. Выполните приведённые ниже действия:

1. Щёлкните Разработчик > Visual Basic. Откроется новое окно Microsoft Visual Basic для приложений. Нажмите Вставка > Модуль и введите следующий код в окно Модуль:

Sub HideAndShow()
'update20131220
Dim Rng As Range
Dim WorkRng As Range
Dim xRows As Long
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
xRows = WorkRng.Rows.Count
For i = 1 To xRows Step 2
    WorkRng.Rows(i).Hidden = True
Next i
End Sub

2. Нажмите клавишу F5, чтобы запустить код. Появится диалоговое окно с запросом на выбор диапазона, к которому вы хотите применить операцию. См. снимок экрана:

doc-hide-every-other-row1

3. После этого нажмите кнопку OK, и все строки, начиная с первой, будут скрыты через одну. См. снимок экрана:

doc-hide-every-other-row2

Примечание: В приведённом выше коде i=1 — это переменная, задающая номер строки, с которой начинается скрытие. Её можно изменить по своему усмотрению: если указать i=1, скрытие начнётся с первой строки, а при использовании i=2 — со второй.


Скрытие каждой второй строки с помощью Kutools для Excel

Kutools для Excel: более 120 удобных надстроек для Excel — бесплатная пробная версия без ограничений на 30 дней! Получить сейчас

С помощью Kutools для Excelвы можете скрыть каждую вторую строку всего за два основных шага:

A: сначала выделите каждую вторую строку с помощью инструмента Выбрать строки/столбцы с интервалами;

B: скройте выделенные строки. Выполните следующие действия:

1. Выделите нужный диапазон.

2. Нажмите Kutools > Выделить > Выбрать строки/столбцы с интервалами

3. В диалоговом окне Выбрать строки/столбцы с интервалами установите флажок напротив параметра Строки в разделе Выделить, введите число 1 в поля Интервал и Строки. Затем установите флажок напротив параметра Выбрать всю строку. См. снимок экрана:

doc-hide-every-other-row4

4. После этого нажмите кнопку OK. Все чередующиеся строки будут выделены.

5. Установите курсор на заголовок любой из выделенных строк, щёлкните правой кнопкой мыши и выберите команду Скрыть в контекстном меню. Все чередующиеся строки будут скрыты. См. снимки экрана:

doc-hide-every-other-row5
-1
doc-hide-every-other-row6

Нажмите, чтобы узнать больше об этой функции.


Связанные статьи:

Как выделить каждую вторую или каждую N-ю строку в Excel?

Как удалить каждую вторую строку в Excel?

Как быстро скопировать каждую вторую строку в Excel?

Лучшие инструменты повышения продуктивности в Office

🤖KUTOOLS AI Помощник: Преобразуйте Анализ данных с помощью:Интеллектуального выполнения   |  Генерации кода|  Создания пользовательские формулы  |  Анализа данных и построения диаграмм|  Вызова Расширенные функции
Популярные функции:Поиск, выделение или Отметить дубликаты   |  Удалить пустые строки   |  Объединить столбцы или ячеек без потери данных   |  Округление без использования формул
Супер ПОИСК:VLookup по нескольким критериям  |  VLookup по нескольким значениям  |   VLookup по нескольким листам   |   Распознавание нечетких соответствий
Расширенный раскрывающийся список:Быстрое создание выпадающего списка   |  Зависимый выпадающий список   |  Выпадающий список с множественным выбором
Управление столбцами:Добавление заданного количества столбцов|Перемещение столбцов|Переключение видимости скрытых столбцов|Сравнение диапазонов и столбцов
Избранные функции:Сетка фокусировки   |  Просмотр дизайна   |Улучшенная строка формулы   | Управление рабочими книгами и листами   |  Библиотека ресурсов(автотекст)|  Выбор даты   |  Объединить листы  |  Шифрование/Расшифровать ячейки   | Отправка писем по списку   |  Супер фильтр   |   Специальный фильтр(Фильтр ячеек с жирным шрифтом/курсив/зачёркивание…) …
Лучшие наборы инструментов 15:12 Текстовыеинструменты(Добавить текст,Удалить определенные символы, …)|   50+Типыдиаграмм(Диаграмма Ганта, …)|   40+ Практические формулы(Рассчитать возраст на основе даты рождения, …)|   19 Инструментывставки(Вставить QR-код,Вставка изображения по пути, …)|   12 Инструментыпреобразования(Преобразовать в слова,Конвертация валют, …)|   7 Объединить и разделитьИнструменты(Расширенное объединение строк,Разделить ячейки, …)|… и многое другое
Используйте Kutools на предпочитаемом языке — поддержка английского, испанского, немецкого, французского, китайского и ещё 40+ языков!

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


Office Tab добавляет в Office вкладки и значительно упрощает Вашу работу

  • Включите редактирование и чтение во вкладках в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
  • Открывайте и создавайте несколько документов во вкладках одного окна — вместо того чтобы использовать отдельные окна.
  • Повышает вашу продуктивность на 50 % и экономит сотни кликов мышью каждый день!

Все надстройки Kutools — один установщик

Kutools for Office — набор надстроек для Excel, Word, Outlook и PowerPoint, а также Office Tab Pro, идеально подходящий командам, работающим с разными приложениями Office.

ExcelWordOutlookTabsPowerPoint
  • Единый комплект— надстройки для Excel, Word, Outlook и PowerPoint + Office Tab Pro
  • Один установщик, одна лицензия— настройка занимает считанные минуты (готово для MSI)
  • Лучше работать вместе— оптимизированная продуктивность во всех приложениях Office
  • 30-дневная полнофункциональная пробная версия— без регистрации и кредитной карты
  • Лучшее соотношение цены и качества— экономия по сравнению с покупкой отдельных надстроек