Как быстро удалить каждую вторую строку в Excel?
Если вы хотите быстро удалить каждую вторую строку или столбец в Excel, сначала нужно удобно и оперативно выделить их — а затем выполнить удаление. В этой статье мы покажем несколько эффективных способов выделения каждой второй строки или столбца и последующего быстрого удаления.
Удаление каждой второй строки в Excel с помощью команды «Фильтр»
Удаление каждой второй строки в Excel с помощью кода VBA
Удаление каждой второй строки или столбца в Excel с помощью Kutools для Excel
Удаление каждой второй строки в Excel с помощью команды «Фильтр»
С помощью Фильтра в Microsoft Excel можно быстро отфильтровать каждую вторую строку и удалить их сразу. Выполните следующие действия:
1. В пустой столбец, отличный от исходных данных, введите 0, 1, 0, 1…, 0, 1. В данном случае числа вводятся во вспомогательный столбец C. См. скриншот ниже:
2. Выделите столбец C и нажмите кнопку Фильтр на вкладке Данные. Затем щелкните стрелку рядом с C1 и в разделе Выбрать все оставьте отмеченным только 0. См. скриншот:
3. После этого все строки с «1» будут скрыты. Выделите видимые строки с «0» и выберите Главная > Удалить > Удалить строки листа, чтобы удалить их. Так вы уберёте каждую вторую строку. Затем снова нажмите кнопку Фильтр, чтобы отобразить только строки с «1». См. скриншоты:
 |  |  |
4. В завершение, при необходимости удалите вспомогательный столбец C.
Выберите каждую вторую или каждую N-ю строку, столбец и удалите их сразу
Kutools для Excel's Выбрать строки/столбцы с интерваламипозволяет находить и выделять каждую вторую или каждую N-ю строку или столбец, после чего вы сможете выполнить необходимые операции.Нажмите, чтобы скачать Kutools для Excel!
Удаление каждой второй строки в Excel с помощью кода VBA
На самом деле, макрос VBA — тоже отличное решение для этой задачи.
1. Удерживая клавиши Alt + F11 в Excel, откройте окно Microsoft Visual Basic для приложений.
2. Выберите Вставка > Модуль и вставьте следующий макрос в окно Модуль.
Код VBA: Удаление каждой второй строки в выделенном диапазоне:
Sub DeleteEveryOtherRow()
'Updateby Extendoffice
Dim rng As Range
Dim InputRng As Range
xTitleId = "KutoolsforExcel"
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("Range :", xTitleId, InputRng.Address, Type:=8)
Application.ScreenUpdating = False
For i = InputRng.Rows.Count To 1 Step -2
Set rng = InputRng.Cells(i, 1)
rng.EntireRow.Delete
Next
Application.ScreenUpdating = True
End Sub
3. Нажмите клавишу F5, чтобы запустить макрос. Появится диалоговое окно для выбора диапазона. См. скриншот:
4. Затем нажмите ОК, и каждая вторая строка в выбранном диапазоне, начиная со второй, будет немедленно удалена. См. скриншот:
 | |  |
Удаление каждой второй строки или столбца в Excel с помощью Kutools для Excel
Для начинающего пользователя Microsoft Excel работа с макросами VBA может показаться сложной. Но с помощью утилиты Выбрать строки/столбцы с интервалами из состава Kutools для Excel вы сможете быстро удалять каждую вторую строку!
После установки Kutools для Excelвыполните следующие действия:
1. Выделите диапазон, в котором нужно удалить каждую вторую строку, и примените эту утилиту, последовательно выбрав Kutools > Выделить > Выбрать строки/столбцы с интервалами….
2. В диалоговом окне Выбрать строки/столбцы с интервалами укажите параметры, как показано на скриншоте ниже, и нажмите кнопку ОК, чтобы сначала выделить каждую вторую строку.
3. После этого каждая вторая строка в выделенном диапазоне будет выделена и подсвечена. См. скриншот:
4. Затем быстро удалите выделенные строки, последовательно выбрав Главная > Удалить > Удалить строки листа. Все выбранные строки будут удалены. См. скриншоты:
 | |  |
С помощью этой функции вы можете удалять каждую N-ю строку или столбец по своему усмотрению.
Скачайте и бесплатно протестируйте Kutools для Excel прямо сейчас!
Лучшие инструменты повышения продуктивности в Office
Раскройте весь потенциал 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.
- Единый комплект— надстройки для Excel, Word, Outlook и PowerPoint + Office Tab Pro
- Один установщик, одна лицензия— настройка занимает считанные минуты (готово для MSI)
- Лучше работать вместе— оптимизированная продуктивность во всех приложениях Office
- 30-дневная полнофункциональная пробная версия— без регистрации и кредитной карты
- Лучшее соотношение цены и качества— экономия по сравнению с покупкой отдельных надстроек