Note: The other languages of the website are Google-translated. Back to English

Как выбрать каждую вторую или 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 for Excel решает большинство ваших проблем и увеличивает вашу производительность на 80%

  • Снова использовать: Быстро вставить сложные формулы, диаграммы и все, что вы использовали раньше; Зашифровать ячейки с паролем; Создать список рассылки и отправлять электронные письма ...
  • Бар Супер Формулы (легко редактировать несколько строк текста и формул); Макет для чтения (легко читать и редактировать большое количество ячеек); Вставить в отфильтрованный диапазон...
  • Объединить ячейки / строки / столбцы без потери данных; Разделить содержимое ячеек; Объединить повторяющиеся строки / столбцы... Предотвращение дублирования ячеек; Сравнить диапазоны...
  • Выберите Дубликат или Уникальный Ряды; Выбрать пустые строки (все ячейки пустые); Супер находка и нечеткая находка во многих рабочих тетрадях; Случайный выбор ...
  • Точная копия Несколько ячеек без изменения ссылки на формулу; Автоматическое создание ссылок на несколько листов; Вставить пули, Флажки и многое другое ...
  • Извлечь текст, Добавить текст, Удалить по позиции, Удалить пробел; Создание и печать промежуточных итогов по страницам; Преобразование содержимого ячеек в комментарии...
  • Суперфильтр (сохранять и применять схемы фильтров к другим листам); Расширенная сортировка по месяцам / неделям / дням, периодичности и др .; Специальный фильтр жирным, курсивом ...
  • Комбинируйте книги и рабочие листы; Объединить таблицы на основе ключевых столбцов; Разделить данные на несколько листов; Пакетное преобразование xls, xlsx и PDF...
  • Более 300 мощных функций. Поддерживает Office/Excel 2007-2021 и 365. Поддерживает все языки. Простое развертывание на вашем предприятии или в организации. Полнофункциональная 30-дневная бесплатная пробная версия. 60-дневная гарантия возврата денег.
вкладка kte 201905

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

  • Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
  • Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
  • Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!
офисный дно
Сортировать комментарии по
Комментарии (12)
Оценок пока нет. Оцените первым!
Этот комментарий был сведен к минимуму модератором на сайте
Просто спас мою задницу с помощью этого кода, спасибо! Мой Matlab решил случайно перестать работать, и поэтому мне пришлось прибегнуть к Excel, с которым я не так знаком, как с Matlab. Это опр. помогло. Спасибо.
Этот комментарий был сведен к минимуму модератором на сайте
Мне нужно выбрать несколько строк и фиксированный интервал и перейти к другому листу, пожалуйста, ответьте мне как можно скорее 
Этот комментарий был сведен к минимуму модератором на сайте
Я пытаюсь использовать макрос VBA в Excel 2010. Он выберет только первую n-ю строку, а не все из них в выборе. Если я запущу его снова, он перейдет к следующему. Любая идея, что я делаю неправильно? Спасибо!
Этот комментарий был сведен к минимуму модератором на сайте
фанатичный. большое спасибо. все работает отлично. у меня есть более 7000 данных, которые нужно выбирать с разным интервалом. этот трюк был для меня чудом.
Этот комментарий был сведен к минимуму модератором на сайте
Код имеет один запрос. Должен ли он выбирать ВСЮ СТРОКУ для каждой n-й строки? Разве он не может просто выбрать определенные ячейки (диапазон ячеек) в каждой n-й строке? Мне не нужна вся информация в каждой строке. Просто определенные ячейки каждой n-й строки.
Этот комментарий был сведен к минимуму модератором на сайте
Я сделал приведенные ниже изменения, чтобы выбрать 30 строк. ", xTitleId, InputRng.Address, Type:=8) xInterval = Application.InputBox("Введите интервал строки", xTitleId, Type:=1) For i = 1 To InputRng.Rows.Count Step xInterval + 1 Set rng = InputRng .Cells(i, 1).Resize(, 30) 'Изменить размер до количества столбцов для выбора, 30 в данном случае. Next OutRng.Select 'Использовать OutRng.EntireRow.Select для выбора всей строки End Sub
Этот комментарий был сведен к минимуму модератором на сайте
Хорошо, спасибо, очень помогло ^_^
Этот комментарий был сведен к минимуму модератором на сайте
действительно хорошо, спасибо!
Этот комментарий был сведен к минимуму модератором на сайте
Замените OutRng.EntireRow.Select на Intersect(OutRng.EntireRow, InputRng). Выберите, если вы хотите, чтобы каждая вторая строка была выбрана.
Этот комментарий был сведен к минимуму модератором на сайте
Помогите, пожалуйста. Это выглядит великолепно, НО, когда я нажимаю кнопку «Выполнить», происходит сбой с «Ошибка компиляции: подпрограмма или функция не определена», и код останавливается на «Set rng = InputRng.Rows.Count Step xInterval +1».
Этот комментарий был сведен к минимуму модератором на сайте
Не уверен, что смогу помочь, но... Во-первых, между "C" и "count" в "Count" есть пробел, когда я скопировал вашу строку кода в модуль. Во-вторых, я не могу найти ваш код где-либо еще на этой странице, пожалуйста, отправьте его целиком, если проблема останется.
Этот комментарий был сведен к минимуму модератором на сайте
Также я не понимаю, как «Set» и «Step» могут работать вместе.
Здесь еще нет комментариев
Оставляйте свои комментарии
Публикация как гость
×
Оценить этот пост:
0   Характеристики
Предлагаемые места

Подписывайтесь на Нас

Copyright © 2009 - www.extendoffice.ком. | Все права защищены. Питаться от ExtendOffice, | Карта сайта
Microsoft и логотип Office являются товарными знаками или зарегистрированными товарными знаками Microsoft Corporation в США и / или других странах.
Защищено Sectigo SSL