Перейти к основному содержанию

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

Когда мы используем рабочий лист, иногда нам нужно выбрать каждую вторую или n-ю строку листа для форматирования, удаления или копирования. Вы можете выбрать их вручную, но если есть сотни строк, этот метод не лучший выбор. Вот несколько уловок, которые могут вам помочь.

Выберите каждую вторую или n-ю строку с помощью VBA

Выберите каждую вторую или n-ю строку с помощью Kutools for Excelхорошая идея3


Выберите каждую вторую или n-ю строку с помощью VBA

В этом примере я выберу одну строку с двумя интервалами. С кодом VBA я могу закончить это следующим образом:

1. Выделите диапазон, который вы хотите выделить, каждую вторую или n-ю строку.

2.Click Застройщик > Визуальный Бейсик, Новый Microsoft Visual Basic для приложений появится окно, щелкните Вставить > Модули, и введите в модуль следующий код:

Sub EveryOtherRow()
Dim rng As Range
Dim InputRng As Range
Dim OutRng As Range
Dim xInterval As Integer
xTitleId = "KutoolsforExcel"
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("Range :", xTitleId, InputRng.Address, Type:=8)
xInterval = Application.InputBox("Enter row interval", xTitleId, Type:=1)
For i = 1 To InputRng.Rows.Count Step xInterval + 1
    Set rng = InputRng.Cells(i, 1)
    If OutRng Is Nothing Then
        Set OutRng = rng
    Else
        Set OutRng = Application.Union(OutRng, rng)
    End If
Next
OutRng.EntireRow.Select
End Sub

3. затем нажмите док-умножить-расчет-3 кнопку для запуска кода. Появится диалоговое окно для выбора диапазона. Смотрите скриншот:



4. Нажмите OK, и в этом случае я ввожу 3 в другом всплывающем диалоговом окне в качестве строки интервала. Смотрите скриншот

5. Нажмите OK, и выбрана каждая третья строка. Смотрите скриншот:

Вы можете изменить интервал по мере необходимости во втором KutoolsforExcel Диалог.


Выберите каждую вторую или n-ю строку с помощью Kutools for Excel

С кодом VBA вы можете выбрать только одну строку с указанными интервалами, если вам нужно выбрать две, три или другие строки с указанными интервалами, Kutools for Excel поможет вам решить эту проблему легко и удобно.

Kutools for Excel, с более чем 300 удобные функции, облегчающие вашу работу. 

После бесплатная установка Kutools for Excel, сделайте следующее:

1. Нажмите Кутулс > Select > Select Interval Rows & Columns…, См. Снимок экрана:

док выбрать каждую вторую строку 8

2. в  Select Interval Rows & Columns диалоговое окно, щелкнитедокумент-заменить-диапазон-имена-7 кнопку для выбора нужного вам диапазона, выберите Rows or Columns от Select ., и укажите желаемое число в Interval of поле ввода и Rows поле ввода. Смотрите скриншот:

док выбрать каждую вторую строку 9

док выбрать каждую вторую строку 10

Ноты:
1. Если вам нужно выбрать все остальные строки в выделенном фрагменте, введите 2 в поле Интервалы ввода и 1 в поле Rows поле ввода.

2. Если вы хотите выделить всю нужную строку, вы можете установить флажок Select entire rows опцию.
док выбрать каждую вторую строку 11


Затеняйте каждую вторую строку или n-ю строку с помощью Kutools for Excel

Если вы хотите заштриховать диапазоны в каждой второй строке, чтобы данные выглядели более выдающимися, как показано на скриншоте ниже, вы можете применить Kutools for ExcelАвтора Alternate Row/Column Shading функция для быстрого выполнения работы.

док выбрать каждую вторую строку 12
стрелка вниз
док выбрать каждую вторую строку 13

После бесплатная установка Kutools for Excel, сделайте следующее:

1. Выберите диапазон ячеек, для которых требуется интервал затенения, щелкните Кутулс > Format > Alternate Row/Column Shading.
док выбрать каждую вторую строку 14

2. в Alternate Row/Column Shading диалог, выполните следующие действия:

1) Выберите строки или столбцы, которые хотите заштриховать;

2) Выберите Conditional formatting or стандартное форматирование как вам нужно;

3) Укажите интервал штриховки;

4) Выберите цвет штриховки.
док выбрать каждую вторую строку 15

3. Нажмите Ok. Теперь диапазон закрашен в каждой n-й строке.

Если вы хотите убрать затенение, отметьте Удалить существующее затенение альтернативной строки вариант в Альтернативное затенение строки / столбца Диалог.


Статьи по теме:

Лучшие инструменты для офисной работы

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

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

Описание


Вкладка Office: интерфейс с вкладками в Office и упрощение работы

  • Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
  • Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
  • Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!
Comments (12)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Help, please. This looks great, BUT when I hit the > Run button it fails with a "Compile error: Sub or Function not defined" and the code stopped at "Set rng = InputRng.Rows.Count Step xInterval +1".
This comment was minimized by the moderator on the site
Also I don't get how "Set" and "Step" could ever work together
This comment was minimized by the moderator on the site
Not sure that I will be able to help, but.. First of, there is a spacing between "C" and "ount" in "Count" when i copied your code string over to a module. Secondly, I can´t find your code anywhere else on this page, please submit the whole thing, if the problem remains.
This comment was minimized by the moderator on the site
Replace OutRng.EntireRow.Select with Intersect(OutRng.EntireRow, InputRng).Select if you want every other row within your selection
This comment was minimized by the moderator on the site
really good, thanks!
This comment was minimized by the moderator on the site
The code has one request. Does it have to select the ENTIRE ROW for each nth row? Can't it just select certain cells (range of cells) within each nth row? I don't need all the information in each row. Just certain cells of each nth row.
This comment was minimized by the moderator on the site
I made the modifications below to select 30 rows Sub EveryOtherRow() Dim rng As Range Dim InputRng As Range Dim OutRng As Range Dim xInterval As Integer xTitleId = "KutoolsforExcel" Set InputRng = Application.Selection Set InputRng = Application.InputBox("Range :", xTitleId, InputRng.Address, Type:=8) xInterval = Application.InputBox("Enter row interval", xTitleId, Type:=1) For i = 1 To InputRng.Rows.Count Step xInterval + 1 Set rng = InputRng.Cells(i, 1).Resize(, 30) 'Resize to the number of columns to select, 30 in this case If OutRng Is Nothing Then Set OutRng = rng Else Set OutRng = Application.Union(OutRng, rng) End If Next OutRng.Select 'Use OutRng.EntireRow.Select to select the entire row End Sub
This comment was minimized by the moderator on the site
Nice, thanks, this was very helpful ^_^
This comment was minimized by the moderator on the site
fanatastic. thanks a lot.it works perfect.I have more than 7000 data that need to select them with different interval.this trick was like a miracle for me.thaaaaaaaanks.
This comment was minimized by the moderator on the site
I'm trying to use the VBA macro in Excel 2010. It will only select the first nth row, not all of them in the selection. If I run it again, it will go to the next. Any idea what I'm doing wrong? Thanks!
This comment was minimized by the moderator on the site
Just saved my ass with this code thanks! My matlab decided to randomly stop working and so I had to resort to excel which I am not as familiar with as with Matlab. This def. helped. Thanks.
This comment was minimized by the moderator on the site
I need to select multiple rows and a fixed interval and move to the other sheet please answer me as soon as possible 
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations