Как удалить четные строки в Excel

Обновлено: 21.11.2024

Office 365 профессиональный плюс переименовывается в Приложения Microsoft 365 для предприятий. Для получения дополнительной информации об этом изменении прочитайте эту запись в блоге.

Обзор

Эта статья содержит пример макроса Microsoft Visual Basic для приложений, который можно использовать для удаления каждой второй строки в выбранном диапазоне на листе Microsoft Excel.

Дополнительная информация

Microsoft предоставляет примеры программирования только для иллюстрации, без явных или подразумеваемых гарантий. Это включает, но не ограничивается, подразумеваемые гарантии товарного состояния или пригодности для конкретной цели. В этой статье предполагается, что вы знакомы с демонстрируемым языком программирования и инструментами, которые используются для создания и отладки процедур. Инженеры службы поддержки Майкрософт могут помочь объяснить функциональность конкретной процедуры, но они не будут изменять эти примеры, чтобы обеспечить дополнительную функциональность или создавать процедуры в соответствии с вашими конкретными требованиями. Чтобы использовать следующий макрос, настройте книгу Excel следующим образом:

Создайте новую книгу Microsoft Excel.

На новом листе в диапазоне A1:A9 введите числа от 1 до 5, пропуская строки, как в следующем примере:

В меню "Инструменты" выберите пункт "Макрос", а затем щелкните "Редактор Visual Basic".

Примечание. В Microsoft Office Excel 2007 и более поздних версиях нажмите Visual Basic в группе «Код» на вкладке «Разработчик».

В меню "Вставка" нажмите "Модуль".

В новом модуле введите следующий макрос:

Переключитесь на рабочий лист, содержащий данные, и выберите диапазон A1:A9.

Чтобы запустить макрос, выберите пункт "Макрос" в меню "Инструменты" и нажмите "Макросы".

В Excel 2007 и более поздних версиях нажмите "Макросы" в группе "Код" на вкладке "Разработчик".
Чтобы отобразить вкладку "Разработчик" на ленте, нажмите кнопку Microsoft Office, выберите "Параметры Excel", выберите категорию "Популярные", установите флажок "Показать вкладку "Разработчик" на ленте и нажмите "ОК".

Выберите макрос Delete_Every_Other_Row и нажмите кнопку "Выполнить".

Этот макрос удалит каждую вторую строку, начиная со второй строки выделения.

Если у вас есть список данных, содержащий несколько столбцов, выберите только первый столбец данных, а затем запустите макрос.

Как выделить и удалить все четные строки в Excel?

Как правило, мы обычно выбираем или удаляем все остальные строки, но если вы хотите выбрать и удалить все четные строки, например вторую строку, четвертую строку, шестую строку и т. д., как их выбрать? Я считаю, что следующие методы помогут вам.

Повторное использование всего: добавляйте наиболее часто используемые или сложные формулы, диаграммы и другие объекты в избранное и быстро используйте их повторно в будущем.
Более 20 текстовых функций: извлечение числа из текстовой строки; Извлечь или удалить часть текстов; Преобразование чисел и валют в английские слова.
Инструменты объединения: несколько книг и листов в одну; Объединение нескольких ячеек/строк/столбцов без потери данных; Объединить повторяющиеся строки и суммировать.
Инструменты разделения: разделение данных на несколько листов в зависимости от значения; Одна рабочая книга для нескольких файлов Excel, PDF или CSV; Один столбец в несколько столбцов.
Вставить, пропуская скрытые/отфильтрованные строки; Подсчет и сумма по цвету фона; Массовая рассылка персонализированных электронных писем нескольким получателям.
Суперфильтр: создавайте расширенные схемы фильтров и применяйте их к любым листам; Сортировка по неделям, дням, частоте и т. д.; Фильтр по полужирному шрифту, формулам, комментариям.
Более 300 мощных функций; Работает с Office 2007-2019 и 365; Поддерживает все языки; Простое развертывание на вашем предприятии или в организации.

Выберите и удалите все четные строки по столбцам справки в Excel

Потрясающе! Использование эффективных вкладок в Excel, таких как Chrome, Firefox и Safari!

Сэкономьте 50 % своего времени и сократите количество кликов мышью каждый день!

В Excel необходимо сначала создать столбец справки, а затем применить функцию фильтра.

<р>1. Выберите ячейку, чтобы ввести в нее эту формулу =MOD(ROW(),2), нажмите кнопку Enter на клавиатуре и перетащите маркер автозаполнения, чтобы заполнить диапазон строк.

<р>2. Выберите этот столбец формулы и нажмите «Данные»> «Фильтр». Теперь в первую строку столбца добавляется кнопка «Фильтр». Смотрите скриншот:

<р>3. Затем нажмите эту кнопку «Фильтр» и отметьте 0 в раскрывающемся списке, см. снимок экрана:

<р>4.Нажмите OK, чтобы закрыть этот раскрывающийся список, и вы увидите только первую строку, а все четные строки будут отфильтрованы. Теперь вы можете выбрать или удалить все все четные строки, кроме первой строки. Смотрите скриншот:

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

Существует очень простой способ выбрать и удалить все четные строки, если у вас установлен Kutools for Excel. Функция "Выбор строк и столбцов с интервалом" позволяет быстро выделить все четные строки и удалить их.

Kutools for Excel включает более 300 удобных инструментов Excel. Бесплатно попробовать без ограничений в течение 30 дней. Получить сейчас

<р>1. Выберите диапазон строк от второй строки до конца. Смотрите скриншот:

<р>2. Затем нажмите Kutools > Выбрать инструменты > Выбрать интервальные строки и столбцы. Смотрите скриншот:

<р>3. В появившемся диалоговом окне установите флажки «Строки» и «Выбрать строки целиком» и введите 1 в текстовые поля «Интервал» и «Строки». Смотрите скриншот:

<р>4. Нажмите «ОК», теперь вы можете видеть, что выбраны все четные строки. Вы можете удалить их, щелкнув правой кнопкой мыши > Удалить.

Существует множество ситуаций, когда вам может понадобиться удалить чередующиеся строки на листах Excel. Например, вы можете сохранить данные по четным неделям (строки 2, 4, 6, 8 и т. д.) и перенести все нечетные недели (строки 3, 5, 7 и т. д.) на другой лист.

Как правило, удаление каждой второй строки в Excel сводится к выбору альтернативных строк. После выбора строк достаточно одного нажатия на кнопку Удалить. Далее в этой статье вы узнаете несколько способов быстрого выбора и удаления каждой второй или каждой N-й строки в Excel.

Как удалить каждую вторую строку в Excel с помощью фильтрации

По сути, обычный способ удаления каждой второй строки в Excel заключается в следующем: сначала вы фильтруете чередующиеся строки, затем выбираете их и удаляете все сразу. Подробные шаги приведены ниже:

В качестве альтернативы вы можете использовать эту формулу:

Логика формулы очень проста: функция СТРОКА возвращает номер текущей строки, функция ОСТАТ делит его на 2 и возвращает остаток, округленный до целого числа.

В результате у вас будет 0 во всех четных строках (поскольку они делятся на 2 без остатка) и 1 во всех нечетных строках:

Для этого выберите любую ячейку в вспомогательном столбце, перейдите на вкладку Данные > группу Сортировка и фильтр и нажмите кнопку "Фильтр". Стрелки раскрывающегося списка фильтров появятся во всех ячейках заголовка. Вы нажимаете кнопку со стрелкой в столбце Helper и устанавливаете один из флажков:

0, чтобы удалить четные строки
1, чтобы удалить нечетные строки

В результате в нашем листе остались только четные недели, а нечетные недели исчезли!

Совет. Если вы хотите переместить все остальные строки в другое место, а не удалять их полностью, сначала скопируйте отфильтрованные строки и вставьте их в новое место, а затем удалите отфильтрованные строки.

Как удалить чередующиеся строки в Excel с помощью VBA

Если вы не хотите тратить свое время на тривиальную задачу, такую как удаление каждой второй строки в ваших листах Excel, следующий макрос VBA может автоматизировать этот процесс за вас:

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

Вставьте макрос на лист обычным способом через редактор Visual Basic:

Нажмите клавиши ALT + F11, чтобы открыть окно Visual Basic для приложений.
В верхней строке меню нажмите Вставить Модуль и вставьте приведенный выше макрос в Модуль
Нажмите клавишу F5, чтобы запустить макрос.
Появится диалоговое окно, в котором вам будет предложено выбрать диапазон. Выберите свою таблицу и нажмите OK:

Готово! Каждая вторая строка в выбранном диапазоне будет удалена:

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

Для этой задачи мы собираемся расширить метод фильтрации, который мы использовали для удаления каждой второй строки. Разница заключается в формуле, на которой основана фильтрация:

m – номер строки первой ячейки с данными минус 1.
n – N-я строка, которую вы хотите удалить.

Допустим, ваши данные начинаются со второй строки, и вы хотите удалить каждую третью строку. Итак, в вашей формуле n равно 3, а m равно 1 (строка 2 минус 1):

Если бы наши данные начинались в строке 3, тогда m равнялось бы 2 (строка 3 минус 1) и так далее. Эта коррекция нужна для последовательной нумерации строк, начиная с номера 1.

Формула делит относительный номер строки на 3 и возвращает остаток после деления. В нашем случае он дает ноль для каждой третьей строки, потому что каждое третье число делится на 3 без остатка (3,6,9 и т. д.):

А теперь вы выполняете уже знакомые шаги для фильтрации строк "0":

Выберите любую ячейку в таблице и нажмите кнопку "Фильтр" в разделе Данные
Отфильтруйте столбец Helper, чтобы отображались только значения "0".
Выберите все видимые строки "0", щелкните правой кнопкой мыши и выберите Удалить строку в контекстном меню.
Снимите фильтр и удалите вспомогательный столбец.

Подобным образом вы можете удалить каждую 4-ю, 5-ю или любую другую N-ю строку в Excel. Я благодарю вас за чтение и надеюсь снова увидеть вас в нашем блоге на следующей неделе.

Вас также может заинтересовать

27 комментариев к "Как удалить каждую вторую строку или каждую N-ю строку в Excel"

Привет всем,
Просто хочу знать, зачем удалять все строки из каждой промежуточной суммы, кроме первых 3 строк. На самом деле, нужно выбрать выборку на основе первых трех строк из каждого промежуточного итога и удалить остальные строки из промежуточного итога, чтобы количество каждого промежуточного итога осталось равным 3.

Макроформула не работала. Судя по комментариям, ни у кого не работает. удалите этот раздел и сэкономьте время и нервы будущих читателей.

Привет!
Специально проверено. Макрос работает. Если подробно опишите проблему, постараюсь помочь.

Это сработало, но не так, как я планировал. Он продолжает удалять строки, которые я хочу сохранить, и сохранять строки, от которых я хочу избавиться. Я пробовал все, что мог придумать, чтобы заставить его работать, я пытался несколько раз изменить выбор строк и пытался изменить макрос на вторую строку вместо первой. Каждый раз был один и тот же результат, и через 3 часа я точно там же, где и начал.
Я должен согласиться с другим комментатором, что это была пустая трата времени.

Я только что попробовал метод сортировки с 1 и 0. Бесконечно проще. Хотел бы я научиться использовать макрос, но, к сожалению, этого не произошло.

Мы обновили код, и теперь он работает именно так, как должен — удаляет все остальные строки в выделении. На самом деле была всего одна неверная линия, из-за которой было так много проблем. Извините за это.

При работе с данными в Excel у вас могут быть повторяющиеся или нежелательные строки после каждой соответствующей строки. Есть несколько способов удалить каждую вторую строку, сохранив только нужные данные.

Удалить каждую вторую строку с форматом ячейки и фильтром

Фильтрация — это один из способов удалить каждую вторую строку.

<р>2. Затем на ленте выберите Таблица > Преобразовать в диапазон.

<р>3. Затем на ленте выберите Главная > Редактирование > Сортировка и фильтрация > Фильтр.

<р>4. Нажмите на стрелку раскрывающегося списка в любом заголовке столбца и выберите "Фильтровать по цвету".

<р>5. Выделите отфильтрованные данные и нажмите DELETE на клавиатуре.

<р>6. Удалите фильтр, чтобы отобразить всю таблицу, а затем выделите оставшиеся данные.

<р>7. На ленте выберите Главная > Редактирование > Сортировка и фильтр > От меньшего к большему.

Затем пустые строки будут удалены из оставшихся данных.

Удалить каждую вторую строку со вспомогательным столбцом

Еще один способ скопировать каждую альтернативную строку в Excel — использовать вспомогательный столбец. Вы также можете использовать это для копирования каждой n-й (3-й, 4-й и т. д.) строки.

<р>2. Выделите ИСТИНА и ЛОЖЬ, затем перетащите вниз до последней строки в диапазоне.

<р>3. Отпустите кнопку мыши, чтобы поочередно скопировать ИСТИНА и ЛОЖЬ для каждой строки.

<р>4. Затем на ленте выберите Главная > Редактирование > Сортировка и фильтрация > Фильтр.

<р>5. Щелкните стрелку рядом с заголовком нового столбца, затем выберите FALSE или TRUE. Нажмите OK, чтобы отфильтровать данные.

<р>6. Выделите отфильтрованные данные и нажмите DELETE на клавиатуре.

<р>7. Удалите фильтр, чтобы отобразить всю таблицу. Затем удалите вспомогательный столбец и выделите оставшиеся данные.

<р>8. На ленте выберите Главная > Редактирование > Сортировка и фильтр > От меньшего к большему.

Затем пустые строки будут удалены из оставшихся данных.

Удалить каждую вторую строку в Excel также можно, создав макрос с помощью VBA.

Как удалить каждую вторую строку в Google Таблицах

Вы можете удалить каждую вторую строку в Google Таблицах, используя любой из описанных выше методов точно таким же образом.

Читайте также: