Как в excel удалить строки через одну автоматически

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

Удалите все остальные строки в Excel с помощью команды фильтра

Удалите каждую вторую строку в Excel с кодом VBA

Удалите каждую вторую строку или столбец в Excel с помощью Kutools for Excel

---

Удалите все остальные строки в Excel с помощью команды фильтра

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

1. В пустом столбце помимо исходных данных введите 0,1,0,1…, 0,1. В этом случае мы вводим числа во вспомогательный столбец C. См. Следующий снимок экрана:

2. Выберите столбец C и щелкните значок Фильтр под Данные таб. Затем нажмите кнопку со стрелкой рядом с C1 и проверьте только 0 под Выбрать все вариант. Смотрите скриншот:

3. Тогда все строки с 1 скрыты. Выберите видимые строки с 0 и нажмите кнопку Главная > Удалить > Удалить строки листа чтобы удалить эти строки. Затем он удаляет все остальные строки, и вам нужно нажать Фильтр еще раз, чтобы отобразить только строки с 1. См. скриншоты:

4. Наконец, вы можете удалить вспомогательный столбец C по мере необходимости.

---

---

Удалите каждую вторую строку в Excel с кодом VBA

Собственно, макрос VBA — тоже хороший выбор для решения этой проблемы.

1. Удерживая нажатой другой + 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. Затем нажмите OK, каждая вторая строка в выбранном диапазоне из второй строки удаляется сразу, см. снимок экрана:

---

Удалите каждую вторую строку или столбец в Excel с помощью Kutools for Excel

Для начинающего пользователя Microsoft Excel использование макроса VBA немного сложно. В Выберите интервальные строки и столбцы полезности Kutools for Excel может помочь вам быстро удалить все остальные строки.

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

1. Выберите диапазон, в котором вы хотите удалить все остальные строки, а затем примените эту утилиту, щелкнув значок Кутулс > Выберите > Выберите интервальные строки и столбцы….

2. В Выберите интервальные строки и столбцы диалоговом окне, укажите настройки, как показано на следующем снимке экрана, и нажмите OK кнопку, чтобы сначала выбрать все остальные строки.

3. Затем выбирается и выделяется каждая вторая строка в выделении. Смотрите скриншот:

4. Затем вы можете быстро удалить выбранные каждые остальные строки, нажав кнопку Главная > Удалить > Удалить строки листа чтобы удалить все эти строки. Смотрите скриншоты:

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

С помощью этой функции вы также можете удалить каждые n строк или столбцов по мере необходимости.

Скачать и бесплатную пробную версию Kutools for Excel от Yhao сейчас!

---

Демонстрация: удалите каждую вторую строку или столбец с помощью Kutools for Excel

Удаление строки в Microsoft Excel

​Смотрите также​Cells(i, 2).Value =​на всякий случай​ человека.​ ofd.Filter = «Microsoft​ «P2,атм»; zagl4 =​End Sub​: > это же​ 200 строк, в​ после фильтрации и​ фильтр» — нажимаем​ кнопки на ленте.​«Условное форматирование»​ все строчки, начиная​

​ вариантов действий выбираем​Иногда в таблице могут​

Процесс удаления строк

​ нужно произвести выделение​Во время работы с​ empty​ подправил для вашего​Казанский​ Excel (*.xls*)|*.xls*»; ofd.Title​ xlSht.get_Range(«D1», Type.Missing); zagl4.Value2​выбирает строки с​ не модуль, так​ которых полезных данных​

Способ 1: одиночное удаление через контекстное меню

​ удаляем.​ кнопку «Сортировка». Или​Затем можно отсортировать значения​, который расположен на​ с первой. После​ пункт​

1. ​ встречаться пустые строчки,​ необходимых элементов.​ программой Excel часто​IsEmpty(Cells(i, 2).Value)​ примера​:​​ = «Выберите документ​​ = «P3,атм»; zagl5​

   

2. ​ 1 по 10​ ?​ 100. после реализации​Убираем фильтр – останутся​ щелкаем правой кнопкой​​ по столбцу с​​ ленте в блоке​

   ​ того, как нежелательные​«Настраиваемая сортировка»​

   ​ данные из которых​Для того, чтобы удалить​ приходится прибегать к​sashgera​Dim sh As​Деметрио​ Excel»; if (ofd.ShowDialog()​ = xlSht.get_Range(«E1», Type.Missing);​ и удаляет четные​​Если сюда дописать​​ макроса остаются 100​

   

   ​ только ячейки с​ мыши по выделенному​ нумерацией, чтобы наша​«Стили»​ элементы будут удалены,​.​

Способ 2: одиночное удаление с помощью инструментов на ленте

​ были ранее удалены.​ несколько рядом расположенных​ процедуре удаления строк.​: Scripter, спасибо!​ Worksheet, i As​​,​​ != DialogResult.OK) {​

1. ​ zagl5.Value2 = «P4,атм»;​если будет пример​ Sub и End​ строк, но уже​​ «о».​​ диапазону и делаем​ таблица приняла прежний​. После этого открывается​ можно провести повторную​​Можно также совершить альтернативные​​ Такие элементы лучше​​ строчек, можно выделить​​ Этот процесс может​sashgera​ Long Set sh​​1. Выделить ст.​​ MessageBox.Show(«Вы не выбрали​

   

2. ​ zagl6 = xlSht.get_Range(«F1»,​ то можно циклом​

​ Sub, то, наверно,​ с полезными данными​Вспомогательный столбец можно устранить​ сортировку «от минимального​ порядок. Ставший ненужным​ список действий. Выбираем​ сортировку по столбцу,​​ действия, которые тоже​​ убрать с листа​​ смежные ячейки данных​​ быть, как единичным,​: Scripter, я немного​​ = Sheets(«Лист1») On​​ С, правый клик​

Способ 3: групповое удаление

​ файл для открытия»,​ Type.Missing); zagl6.Value2 =​ выбрать все четные​ заработет.​

1. ​ 50.​ и работать с​ к максимальному».​ столбец с номерами​ там позицию​ где располагается эта​ приведут к открытию​ вовсе. Если они​ строк, находящиеся в​ так и групповым,​

   

   ​ изменил макрос, все​ Error Resume Next​ — Вставить.​ «Внимание», MessageBoxButtons.OK, MessageBoxIcon.Information);​ «P5,атм»; int m,​ или нечетные до​​Вы тоже могли​​Вот такая беда.​ «прореженной таблицей».​Пустые строки после сортировки​ можно убрать, выделив​«Правила выделения ячеек»​ нумерация от меньшего​

   

   ​ окна настраиваемой сортировки.​ расположены рядом друг​ одном столбце. Для​ в зависимости от​ работает​ With sh.UsedRange.Columns(2) For​2. Выделить ст.​ return; } string​ n, z; xlSht.Activate();​ конца диапазона и​ бы обойтись без​​Fynjy​​Однажды пользователь скрыл некую​ по возрастанию оказываются​

   

2. ​ его и нажав​. Далее запускается ещё​ к большему. В​ После выделения любого​ с другом, то​ этого зажимаем левую​ поставленных задач. Особый​УДАЛЯЕМ строку если​ i = .Rows.Count​ В, Данные -​ xlFileName = ofd.FileName;​

​ for (m =​ удалить{/post}{/quote}​ макроса: в свободный​: вот ссылка на​ информацию в строках,​ внизу диапазона.​ знакомую нам кнопку​

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

   

   ​ //имя нашего Excel​ 2; m <​Спасибо. На досуге​​ столбец ввести формулу​​ совет который не​ чтобы она не​Если порядок значений важен,​«Удалить»​ нем нужно конкретнее​​ приобретет изначальный порядок,​​ во вкладку​ одним из способов,​ курсором проводим по​ плане представляет удаление​ «B» есть число:​ -1 If CLng(IIf(Cells(i,​

   

   ​ с разделителями, поставить​ файла Excel.Workbook xlWB;​ 3000; m =​ испробую. Надо прайс​=ОСТАТ(СТРОКА();3)​ помог(((​ отвлекала от работы.​ то до сортировки​на ленте.​ выбрать суть правила.​ естественно за вычетом​​«Данные»​​ который был описан​

   

2. ​ этим элементам.​ по условию. Давайте​ от 0 до​ 2).Value = «»,​ курсор в поле​ Excel.Worksheet xlSht; int​​ m + 10)​​ «причесать»​

   

   ​, отфильтровать по​Fynjy​

​ Думал, что впоследствии​​ необходимо вставить пустой​Поставленная задача по заданному​

Способ 4: удаление пустых элементов

​ Тут уже следует​ удаленных элементов.​. Там в группе​ выше. Но что​Если диапазон большой, то​ рассмотрим различные варианты​ 399​ 0, Trim(Cells(i, 2).Value)))​ «другой» и нажать​ iLastRow; int m,​ { for (n​KuklP​ <>0 и удалить​: Пардон, господа!​ данные еще понадобятся.​ столбец, сделать сквозную​ условию решена.​ производить выбор, основываясь​Урок:​ настроек​ делать, если пустых​ можно выделить самую​ данной процедуры.​НЕ УДАЛЯЕМ строку​

1. ​ >= 0 And​​ Ctrl+J (должен появиться​​ StartRow; Excel.Application xlApp​ = 1; n​​: Public Sub qwe()​​ видимые строки.​Кажется тут же​​ Не понадобились –​​ нумерацию. После сортировки​Кроме того, можно произвести​​ на фактической задаче.​​Сортировка данных в Экселе​

   

2. ​«Сортировка и фильтр»​ строк много и​ верхнюю ячейку, щелкнув​Скачать последнюю версию​​ если в ячейке​​ _ CLng(IIf(Cells(i, 2).Value​ образец разбора) -​​ = new Excel.Application();​​ < 7; n++)​

   
3. ​Dim i As​Или отфильтровать по​ и нашел необходимое!​ скрытые строки можно​ и удаления пустых​ аналогичную операцию с​ В нашем отдельном​Для удаления строк, которые​жмем на кнопку​ они разбросаны по​ по ней левой​​ Excel​​ столбца «B» есть​ = «», 0,​ готово.​​ //создаём приложение Excel​​ { cell =​ Integer​

   

   ​ =0 и перенести​Xxs​ удалить: они влияют​

​ строк вновь отсортировать​ условным форматированием, но​ случае нужно выбрать​ содержат определенные значения,​«Сортировка»​ всему пространству большой​ кнопкой мыши. Затем​Удаление строчек можно произвести​ буква: k​ Trim(Cells(i, 2).Value))) 13​3. Перенести В1​ //xlApp.Visible = true;​ (Excel.Range)xlSht.Cells[m, n]; cell.Delete();​For i =​

​ видимые на другой​​: Как можно удалить​ на формулы, мешают.​

Способ 5: использование сортировки

​ данные по вставленному​ только после этого​ позицию​ можно также использовать​.​ таблицы? Ведь процедура​ зажать клавишу​ совершенно разными способами.​НЕ УДАЛЯЕМ строку​ Then Rows(i).Delete Else​ в С1, удалить​

1. ​ xlWB = xlApp.Workbooks.Open(xlFileName);​ } } }​ 320 To 1​ лист.​ макросом каждую вторую​В тренировочной таблице скрыты​​ столбцу с нумерацией.​​ проведя фильтрацию данных.​«Меньше…»​​ такой инструмент, как​​Запускается окно настраиваемой сортировки.​ их поиска и​​Shift​​ Выбор конкретного решения​ если в ячейке​ Err.Clear End If​​ ст. В.​​ //открываем наш файл​

   

   ​ private void button2_Click(object​ Step -1 ‘вместо​polkan​ строку ?​ ряды 5, 6,​Пример 2. Фильтр. Диапазон​Итак, применяем условное форматирование​​.​​ фильтрация. Преимущество данного​ Обязательно установите галочку,​​ удаления может занять​​и кликнуть по​​ зависит от того,​​ столбца «B» есть​

   

2. ​ End If Next​Если не получится​ xlSht = xlWB.Worksheets[«Лист1»];​ sender, EventArgs e)​​ 320 последнюю строку​​: буду знать​Юрий М​ 7:​​ должен быть отформатирован​​ к столбцу​Запускается окно условного форматирования.​ способа состоит в​ в случае её​ значительное время. Для​​ самой нижней ячейке​​ какие задачи ставит​ слово: стал​ i End Withлибо​
   • ​ — значит, там​
   • ​ //или так xlSht​
   • ​ { } private​
   • ​ Вашей таблицы.​

   ​СПБ ! ;)​: Xxs, хочу обратить​Будем их удалять.​ как таблица с​​«Сумма выручки»​​ В левом поле​ том, что, если​ отсутствия, около пункта​ ускорения решения данной​

   ​ того диапазона, который​​ перед собой пользователь.​​НЕ УДАЛЯЕМ строку​ еще прощелибо еще​ какой-то другой символ​ = xlWB.ActiveSheet //активный​ void button3_Click(object sender,​If i Mod​Hugo​ Ваше внимание, что​Переходим на «Файл»-«Сведения»-«Поиск проблем»​​ заголовками. Выделяем «шапку».​​по полностью аналогичному​​ устанавливаем значение​​ вам вдруг эти​​«Мои данные содержат заголовки»​​ задачи можно применить​​ нужно удалить. Выделены​​ Рассмотрим различные варианты,​ если ячейка столбца​ проще​ перевода строки -​ лист xlSht.Columns[«G:P»].Clear(); //очистка​ EventArgs e) {​
   ​ 2 = 0​: Тем, кто нашёл​ в данном случае,​ — инструмент «Инспектор​​ На вкладке «Данные»​​ сценарию. Включаем фильтрацию​

   

3. ​11000​ строчки когда-нибудь понадобится​, если у вашей​ нижеописанный алгоритм.​ будут все элементы,​ начиная от простейших​ «B»- пустая​Dim sh As​ приложите файл-пример с​ столбцов xlSht.get_Range(«A1»).Value =​ Close(); } }​

​ Then ‘0 -​ тему поиском -​ как и во​ документов».​

​ нажимаем кнопку «Фильтр»​ в таблице одним​. Все значения, которые​ снова, то вы​ таблицы имеется шапка.​Переходим во вкладку​ находящиеся между ними.​ и заканчивая относительно​также макрос удаляет строки​ Worksheet, i As​ частью данных​ «Время,с»; xlSht.get_Range(«B1»).Value =​ }​ Для четных. Для​ при удалении строк​ многих других, достаточно​В отрывшемся окне ставим​ («Сортировка и фильтр»).​ из тех способов,​ меньше него, будут​ их сможете всегда​ В поле​«Главная»​В случае, если нужно​ сложными методами.​ если в ячейке​ Long Set sh​Деметрио​

​ «P1,атм»; xlSht.get_Range(«C1»).Value =​​Pavel55​

Способ 6: использование фильтрации

​ нечетных 1​ нижние сдвигаются вверх,​ было 10 строк​ галочку напротив «Скрытые​ Справа от названия​ которые были уже​ отформатированы. В правом​ вернуть.​«Сортировать по»​. На ленте инструментов​ удалить строчные диапазоны,​Наиболее простой способ удаления​

1. ​ столбца «B» есть​ = Sheets(«Лист1») With​: вот файл​ «P2,атм»; xlSht.get_Range(«D1»).Value =​: Плохо, что вы​Rows(i).Delete​​ поэтому цикл перебора​​ с данными. Ну​ строки и столбцы».​​ каждого столбца появится​​ озвучены выше.​ поле есть возможность​Выделяем всю таблицу или​​нужно выбрать наименование​​ жмем на значок​

   

   ​ которые расположены в​ строчек – это​ какой либо текст,​ sh.UsedRange.Columns(2) For i​​Деметрио​​ «P3,атм»; xlSht.get_Range(«E1»).Value =​ не приложили ваш​End If​​ строк нужно пускать​​ вот ЗАЧЕМ 600​ Нажимаем «Проверить».​​ стрелочка вниз. Нажимаем​​После того, как в​

   

2. ​ выбрать любой цвет​ шапку курсором с​ столбца, по которому​«Найти и выделить»​ отдалении друг от​ одиночный вариант данной​ кроме ‘k’ и​ = .Rows.Count To​:​ «P4,атм»; xlSht.get_Range(«F1»).Value2 =​ тестовый Excel файл,​Next​

   

3. ​ снизу вверх (иначе​ строк?!​Через несколько секунд программа​ – открывается окно​ шапке появились значки,​ форматирования, хотя можно​​ зажатой левой кнопкой​​ будет происходить отбор​

​. Он расположен в​ друга, то для​ процедуры. Выполнить его​ ‘стал’​ 2 Step -1​Деметрио​ «P5,атм»; iLastRow =​

​ на котором можно​​End Sub​

Способ 7: условное форматирование

​ при удалении например​Xxs​ отображает результат проверки.​ фильтрации. Снимаем выделение​ символизирующие фильтр, кликаем​ также оставить там​ мыши. Кликаем по​ значений для удаления.​ группе​ их выделения следует​ можно, воспользовавшись контекстным​Sub Макрос22() Dim​ If Cells(i, 2).Value​, выделяете столбец С​ xlSht.Cells[xlSht.Rows.Count, «A»].End[Excel.XlDirection.xlUp].Row; //последняя​ было бы поэксперементировать.​KuklP​

1. ​ строки 2 на​​: Извините, не обрезал​​Нажимаем «Удалить все». На​ напротив имени «Пустые».​ по тому из​​ значение по умолчанию.​​ уже знакомой нам​ В поле​​«Редактирование»​​ кликнуть по одной​ меню.​​ sh As Worksheet,​​ <> «№» And​ — Данные -​ заполненная строка в​​ Пришлось создавать свой​​:​ её место сдвинется​ таблицу.​ экране появится соответствующее​Таким же способом можно​ них, который расположен​ После того, как​ кнопке​«Сортировка»​. В открывшемся списке​​ из ячеек, находящихся​​Кликаем правой кнопкой мыши​

   

2. ​ i As Long​ Val(Cells(i, 2).Value) >=​ текст по столбцам​​ столбце А StartRow​​ Excel файл. На​По поводу последней строки​ строка 3, 4-я​Казанский​ уведомление.​ удалить пустые ячейки​ в столбце​ настройки выполнены, щелкаем​«Сортировка и фильтр»​нужно указать, по​ жмем на пункт​​ в них, левой​​ по любой из​

   

3. ​ Set sh =​ 0 And Val(Cells(i,​ — далее -​ = 2; for​ моём файле мой​ сюда:​ строка станет 3-й,​: Без макроса. Выделить​В результате проделанной работы​ в строке Excel.​«Сумма выручки»​ по кнопке​, которая расположена во​ какому именно параметру​​«Выделение группы ячеек»​​ кнопкой мыши с​ ячеек той строки,​ Sheets(«склад») With sh.UsedRange.Columns(2)​

   
4. ​ 2).Value)​ и на каком-то​ (m = StartRow;​​ код работает, а​​Dominique​ и удаляя строку​​ первый столбец, Ctrl+H,​​ скрытые ячейки удалены,​​ Выбираем нужный столбец​​. В открывшемся меню​​«OK»​​ вкладке​​ будет происходить отбор:​​.​ одновременно зажатой клавишей​ которую нужно удалить.​ For i =​sashgera​ шаге отметить «Текстовый»​ m < iLastRow;​ на вашем не​​: Попробовал. Стирает. Сильно!​​ 4 — на​ Найти: пробел, Заменить​ нумерация восстановлена.​ и фильтруем его​ выбираем пункт​.​«Главная»​​Значения;​​Запускается небольшое окошко выделения​Ctrl​ В появившемся контекстном​ .Rows.Count To 4​: Scripter,​ — Готово.​​ m++) { ((Excel.Range)xlSht.Rows[(m​​ знаю, тестируйте, корректируйте​

   

5. ​ :-)))​ самом деле удалите​ на: пусто, Ячейка​Таким образом, убрать пустые,​ данные.​«Фильтр по цвету»​Как видим, все ячейки,​. Но на этот​Цвет ячейки;​ группы ячеек. Ставим​. Все выбранные элементы​ меню выбираем пункт​ Step -1 If​спасибо, а как​Выделяете столбец D​ + 1) +​ мой код, в​

   

6. ​Иоанн88​ строку 5).​ целиком.​ повторяющиеся или скрытые​Пример 3. Выделение группы​. В блоке параметров​ в которых имеются​ раз из открывшегося​Цвет шрифта;​​ в нем переключатель​​ будут отмечены.​

​«Удалить…»​ Cells(i, 2).Value <>​

​ сделать наоборот -​ — Найти/Заменить -​ «:» + (m​ общем, мучайтесь сами​: Прошу помощи.Такая задачка.Пишу​

1. ​Тоже самое и​Не снимая выделения​​ ячейки таблицы можно​​ ячеек. Выделяем всю​«Фильтр по цвету ячейки»​ значения выручки менее​ списка выбираем позицию​Значок ячейки.​ в позицию​

   

2. ​Чтобы провести непосредственную процедуру​.​ «k» And Cells(i,​ не удалять строки,​ в найти: держите​ + 10)]).EntireRow.Delete(Excel.XlDeleteShiftDirection.xlShiftUp); }​​ ))​​ программку которая будет​ при удалении столбцов​​ F5 — перейти​​ с помощью встроенного​​ таблицу. В главном​​выбираем значение​​ 11000 рублей, были​​«Фильтр»​

   

3. ​Тут уже все зависит​«Пустые ячейки»​ удаления строчек вызываем​Открывается небольшое окошко, в​ 2).Value <> «стал»​ если в ячейках​ Alt и на​ MessageBox.Show(«Удаление строк завершено!»);​если коротко, то​ редактировать Еxcel документы​ — нужно цикл​

​ — выделить -​​ функционала программы Excel.​

​ меню на вкладке​«Нет заливки»​ окрашены в выбранный​.​ от конкретных обстоятельств,​. После этого жмем​ контекстное меню или​ котором нужно указать,​ And Cells(i, 2).Value​ числа от 0​ цифровой панели набираете​ xlApp.Visible = true;​ строки удаляются так​ одного типа.Одинаковое количество​ пускать справа налево,​ пустые ячейки.​Fynjy​ «Редактирование» нажимаем кнопку​.​ цвет. Если нам​Как и в предыдущем​ но в большинстве​ на кнопку​ же переходим к​

​ что именно нужно​

lumpics.ru

Как удалить пустые строки в Excel быстрыми способами

​ <> «» And​ до 100, а​ 0010 — получится​Иоанн88​C# iLastRow =​ строк и столбцов.Столкнулся​

​ т.е. с конца​Правый клик на​: Добрый день!​ «Найти и выделить».​Как видим, после этого​ нужно сохранить изначальный​ способе, задачу можно​ случаев подходит критерий​«OK»​ инструментам на ленте,​ удалить. Переставляем переключатель​

Как в таблице Excel удалить пустые строки?

​ Val(Cells(i, 2).Value) не​ остальные, от 100​ такая точечка​: Огромное человеческое спасибо​ xlSht.Cells[xlSht.Rows.Count, «A»].End[Excel.XlDirection.xlUp].Row; //последняя​ с такой проблемой.Мне​

​ листа к началу.​ любой выделенной ячейке​может быть такой​ Выбираем инструмент «Выделение​ действия все строчки,​ порядок, после удаления​ также решить через​«Значения»​.​ а далее следуем​ в позицию​ получается сделать аналогичный​

​ и выше -​в Заменить на:​ Вам за помощь!!!!!!!Все​

​ заполненная строка в​ нужно выбрать каждую​гость​ — удалить -​ вопрос уже повторялся​ группы ячеек».​ которые были залиты​ строк делаем дополнительную​ вкладку​

​. Хотя в дальнейшем​Как видим, после того,​ тем рекомендациям, которые​«Строку»​ макрос​ удалить. И в​ что-то нейтральное, типа​ прекрасно заработало!!!!!!!!!!!=)))))Дай Бог​ столбце А StartRow​ 11 строку(всего в​: Ребята помогите с​ строку.​ тут, но я​

​В открывшемся окне выбираем​ цветом с помощью​ нумерацию в соседнем​«Данные»​ мы поговорим и​ как мы применили​

​ были даны во​.​1. НЕ УДАЛЯЛАСЬ​ обоих случаях не​ # — заменить​ здоровья и успеха​ = 2; for​ документе примерно 3000​

​ удалением строк.В таблице​Xxs​

​ что то не​ пункт «Пустые ячейки».​ условного форматирования, исчезли.​ с таблицей столбце.​

​. Для этого, находясь​ об использовании другой​

​ данное действие, все​ время описания первого​После этого указанный элемент​ строка если в​ удалять строки, если​ все​

​ во всем такому​ (m = StartRow;​ строк),а промежуточные 10​ много строк с​: Спасибо Казанский, что​ нашел. Яндекс привел​Программа отмечает пустые ячейки.​

​ Они спрятаны фильтром,​

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

​ Запускаем уже знакомое​ в ней, нужно​ позиции.​ пустые элементы выделены.​ и второго способа​ будет удален.​ ячейке столбца «B»​

​ в ячейке вместо​Теперь снова выделяете​ отзывчивому человеку!!!!!!!!!!​ m < iLastRow;​ строк удалить.Подскажите что​ ненужной информацией,на счастье​ я сразу не​ сюда. Надеюсь, что​

​ На главной странице​ но если удалить​

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

​ нам окно сортировки​ щелкнуть по кнопке​В поле​

​ Теперь можно использовать​ данного руководства.​Также можно кликнуть левой​

1. ​ есть буква: b​ числа имеется знак​ столбец D -​Тетка​ m++) { ((Excel.Range)xlSht.Rows[(m​ добавить в код.​ такие строки по​ заметил этот пробел…​ местные гуру Excel​ находим вкладку «Ячейки»,​ фильтрацию, то в​ по столбцу​«Фильтр»​«Порядок»​
2. ​ для их удаления​Выделить нужные элементы можно​ кнопкой мыши по​
3. ​2. НЕ УДАЛЯЛАСЬ​ №​ Данные- текст по​
4. ​: Здравствуйте​ + 1) +​C# using System;​

​ счету «нечетные» или​Юрий М​ мне помогут.​

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

​ нажимаем «Удалить».​ таком случае, указанные​«Сумма выручки»​, которая расположена в​нужно указать, в​ любой из способов,​ также через вертикальную​ номеру строчки на​ строка если в​Scripter​

​ столбцам — с​Можно ли в​ «:» + (m​

​ using System.Collections.Generic; using​

1. ​ «нечетные».Как их удалить?​: Гы… Так каждую​Необходимо удалить каждую​
2. ​Результат – заполненный диапазон​ элементы снова отобразятся​любым из способов,​ блоке инструментов​
3. ​ каком порядке будут​ о которых шла​
4. ​ панель координат. В​ вертикальной панели координат.​ ячейке столбца «B»​

​: Dim sh As​ разделителем Другой, ставите​ таблице удалить одновременно​

​ + 10)]).EntireRow.Delete(Excel.XlDeleteShiftDirection.xlShiftUp); }В​ System.ComponentModel; using System.Data;​lelya​ вторую или все​ вторую строчку из​

exceltable.com

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

​ VBA​​ с шагом 11​
​ = Microsoft.Office.Interop.Excel; namespace​ строк.Затем пишем формулу​

planetaexcel.ru

Удаление каждой второй строки макросом

​: Продолжу тему, в​​Sub Delete_Every_Other_Row()​ перекрывающихся диапазонов инструмент​ удалить ненужные строки.​

​«Мои данные содержат заголовки»​​ ячейки шапки появится​ текстовых данных порядок​ ленте в той​ смежную группу строк,​«Удалить»​ если в ячейке​ 2 Step -1​: Здравствуйте​Тетка​

​1-я строка остаётся,​​ WindowsFormsApplication { public​=IF(MOD(A1;2)=1;1;0), протягиваем ее​

​ огромном столбце с​​’ Переменные размерности.​ не подходит.​ Каким именно вариантом​стояла галочка. В​ символ фильтрации в​
​ будет​ же вкладке​ зажимаем левую кнопку​.​
​ столбца «B» есть​ If Val(Cells(i, 2).Value)​Есть макрос, который​: это что?​

​ т.к. я увидел,​​ partial class Form1​ на все строки,​ данными , надо​

​Y = False​​Полезный совет! Сочетание клавиш​ воспользоваться зависит от​ поле​ виде треугольника, направленного​«От А до Я»​

​«Главная»​​ мыши и проводим​В этом случае процедура​ число: от 400​ > 100 Then​ удаляет строки, если​Юрий М​ что вы туда​
​ : Form {​

​ отфильтровываем 0 или​​ удалить 1,2 4,5​
​ ‘ Измените значение​ для удаления выделенной​
​ поставленной задачи и​
​«Сортировать по»​

​ 1(нечетные или четные)​​ 7,8 и т.д.​
​ на True, если​
​ строки в Excel​ от количества удаляемых​выбираем столбец​
​ по этому символу​«От Я до А»​
​ работаем.​
​ панели координат от​

​ столбца «B» есть​​: Scripter, большое спасибо,​
​Sub Макрос22() Dim​

​ )​​ строки, то измените​ EventArgs e) {​: Сорри, можно, конечно,​Спасибо !​ 1, 3, 5​ нажать комбинацию горячих​ вполне можно обойтись​«Сортировка»​ по которому мы​или​ удалены.​ к нижнему.​ объекта обработки.​ какой либо текст,​ все отлично работает!​ sh As Worksheet,​
​Z​ переменную StartRow =​ } private void​ просто функцию mod​ARTEM​ и т.д.​

planetaexcel.ru

Как удалить каждую четную или нечетную строку?

​ клавиш SHIFT+ПРОБЕЛ.​​ стандартными инструментами одиночного​устанавливаем значение​ будем убирать строки.​«От новых к старым»​Обратите внимание! При использовании​Можно также воспользоваться и​Кроме того, эту процедуру​

​ кроме ‘b’ и​​sashgera​ i As Long​
​: А как нужно?​ 2, на StartRow​ button1_Click(object sender, EventArgs​
​Dominique​: i = 3​I = 1​​ удаления. Но чтобы​

​«Цвет ячейки»​​Открывается меню фильтрования. Снимаем​. Собственно сам порядок​

​ данного метода строчка​​ вариантом с использованием​ можно выполнить с​ ‘стал’​

​: Scripter,​​ Set sh =​

​ Shift:=xlUp​​ Selection​ в Excel, выделяем​ пустые ячейки или​

​ ячейки,​​ .Rows.Count To 1​
​ пометить, отфильтровать, удалить​ заполненная строка в​
​ OpenFileDialog(); ofd.Multiselect =​Юрий М​Wend​ всем строкам выделенного​ на вкладку «Данные»​
​ условию, существуют алгоритмы​ нужно удалить, согласно​ После этого следует​ интересующие нас значения​ элементы, расположенные в​
​ мышки по первому​
​«Главная»​
​макрос не удаляет строки​
​а в ячейках,​

​ Step -1 With​​ — вариант?!.​

​ столбце А и​ false; ofd.DefaultExt =​

​:​​ARTEM​ диапазона.​

planetaexcel.ru

Выбрать каждую 11 строку в Excel, а промежуточные 10 строк удалить

​ — «Работа с​​ действий, которые значительно​ условному форматированию. В​ нажать на кнопку​ будут располагаться вместе.​ строке, которая содержит​ номеру строки диапазона,​.​ если в ячейке​ где стоит знак​ .Cells(i) If 0​a_s_p​ цикл удаления идёт​
​ «*.xls;*.xlsx»; ofd.Filter =​R Dmitry​: Сорри… так эти​For xCounter =​ данными» — «Удалить​ облегчают задачу пользователям​ нашем случае это​«OK»​После того, как​ какие-то данные, как​ который следует удалить.​Производим выделение в любом​ столбца «B» есть​ № — все​Помогите, пожалуйста, изменить​: Да, эт мне​ до этой последней​ «Microsoft Excel (*.xls*)|*.xls*»;​: А можно как-то​ строки наоборот останутся))​ 1 To xRng.Rows.Count​ дубликаты».​ и экономят их​ розовый цвет. В​.​ настройка в данном​ на изображении ниже,​ Затем зажимаем клавишу​ месте строчки, которую​ текст​ нормально, они не​ код макроса, что​ сразу хочется огород​ строки (а не​ ofd.Title = «Выберите​ потом автоматически выделить​lr = ActiveSheet.Range(«A1″).CurrentRegion.Rows.Count​’ Если Y​В открывшемся окне выделяем​ время. К таким​ поле​Таким образом, строки, содержащие​ окне выполнена, жмем​ этот способ применять​Shift​ требуется убрать. Переходим​If Cells(i, 2).Value​ удаляются​ бы строки удалялись,​ городить)​ до 3000), если​ документ Excel»; if​ четные/нечетные строки?{/post}{/quote}​i = 1​ = True, тогда…​ те столбцы, в​ инструментам относится окно​«Порядок»​ значения, с которых​ на кнопку​ нельзя. Его использование​и выполняем щелчок​ во вкладку​ <> «b» And​если можно поправьте​ начиная со строки​Тетка​ у вас данные​ (ofd.ShowDialog() != DialogResult.OK)​можно и автоматически​while i Rows(i+1).Delete​If Y =​ которых находятся повторяющиеся​ выделения группы ячеек,​выбираем, где будут​ вы сняли галочки,​«OK»​ может повлечь сдвиг​ по последнему номеру​«Главная»​ Cells(i, 2).Value <>​Dim sh As​ ‘B2’ и до​: =ЕНЕЧЁТ(RC[1];R[6533]C)​

​ в другом столбце,​​ { MessageBox.Show(«Вы не​ макросом​ Shift:=xlUp​ True Then​ значения. Так как​ сортировка, фильтрация, условное​ размещаться отмеченные фрагменты:​ будут спрятаны. Но​.​ элементов и нарушение​ указанной области. Весь​. Кликаем по пиктограмме​ «стал» And Cells(i,​ Worksheet, i As​
​ последней активной ячейки​Так не получилось.​
​ то в этой​ выбрали файл для​но пример тоже​Rows(i).Delete Shift:=xlUp​’ …удалить целую​ нужно удалять повторяющиеся​ форматирование и т.п.​ сверху или снизу.​ их всегда можно​Все данные выбранной колонки​ структуры таблицы.​ диапазон строчек, лежащий​ в виде небольшого​ 2).Value <> «»​ Long Set sh​ этого столбца (строки​
​Александр Сергеевич​ строке​ открытия», «Внимание», MessageBoxButtons.OK,​ нужно​
​i = i+1​ строку ячеек.​ строки, то должны​Автор: Максим Тютюшев​ Впрочем, это не​ будет снова восстановить,​
​ будут отсортированы по​Урок:​ между этими номерами,​ треугольника, которая расположена​ And Val(Cells(i, 2).Value)​ = Sheets(«склад») With​ в таблице добавляются/удаляются).​: =ОСТАТ(СТРОКА();2)​iLastRow = xlSht.Cells[xlSht.Rows.Count, «A»].End[Excel.XlDirection.xlUp].Row;​ MessageBoxIcon.Information); return; }​если без примера​lr = ActiveSheet.Range(«A1»).CurrentRegion.Rows.Count​
​xRng.Cells(I).EntireRow.Delete​
​ быть выделены все​При импорте и копировании​ имеет принципиального значения.​
​ сняв фильтрацию.​ заданному критерию. Теперь​Как удалить пустые строки​ будет выделен.​ справа от значка​ > 399 Then​ sh.UsedRange.Columns(2) For i​Если в ячейке​фильтр и уделение​поменяйте А в​
​ string xlFileName =​Sub test()​Wend​​’ В противном​ столбцы.​​ таблиц в Excel​​ Стоит также отметить,​Урок:​ мы можем выделить​
​ в Экселе​Если удаляемые строки разбросаны​«Удалить»​ Rows(i).Delete​ = .Rows.Count To​ вместо числа имеется​a_s_p​ кавычках, на ваш​ ofd.FileName; //имя нашего​Range(«2:2,4:4,6:6,8:8,10:10»).Delete Shift:=xlUp​Казанский​ случае…​После нажатия ОК Excel​ могут формироваться пустые​ что наименование​Применение фильтра в Excel​ рядом находящиеся элементы​Для того, чтобы убрать​ по всему листу​в блоке инструментов​если можно, пожалуйста,​ 5 Step -1​ знак № –​: =ЕНЕЧЁТ(СТРОКА())​ столбец, например, «C»​ Excel файла Excel.Range​End Sub​: Sub bb()​Else​ формирует мини-отчет вида:​ строки и ячейки.​«Порядок»​Ещё более точно можно​ любым из тех​ строки по определенному​ и не граничат​«Ячейки»​ помогите​ If Val(Cells(i, 2).Value)​ то строку не​Z​P.S. И посмотрите,​ Rng; Excel.Workbook xlWB;​выбирает строки с​Dim i&​’ …увеличить переменную​Проредить таблицу можно с​ Они мешают работе,​

​может быть смещено​​ задать параметры выбора​ вариантов, о которых​ условию можно применять​ друг с другом,​. Выпадает список, в​Scripter​

CyberForum.ru

Можно ли в таблице удалить одновременно каждую 2 строку?

​ > 100 Then​​ удалять​
​: Файл (ма-а-а-ленький) -​ как я записываю​ Excel.Worksheet xlSht; Excel.Range​ 1 по 10​

​For i =​​ I на единицу​ помощью макроса. Например,​

​ отвлекают.​​ влево от самого​

​ строк, если вместе​​ шла речь при​ сортировку. Отсортировав элементы​ то в таком​ котором нужно выбрать​

​: так​​ Rows(i).Delete Next i​..и как все​ в студию! Есть​ данные в ячейку,​ zagl1; Excel.Range zagl2;​ и удаляет четные​

​ Cells.SpecialCells(xlCellTypeLastCell).Row To 1​​ и продолжить выполнение​ такого:​Некоторые формулы могут работать​

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

​ по установленному критерию,​​ случае, нужно щелкнуть​
​ пункт​

​Sub Макрос5() Dim​​ End With​

​ сделать наоборот: не​​ такое — хоццf​ так намного проще,​ Excel.Range zagl3; Excel.Range​если будет пример​

​ Step -1​​ цикла по диапазону​А можно ручками. Предлагаем​

planetaexcel.ru

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

​ некорректно. Использовать ряд​​ как все вышеуказанные​
​ фильтрацией использовать инструменты​ и произвести их​ мы сможем собрать​ левой кнопкой мыши​«Удалить строки с листа»​ sh As Worksheet,​
​[USER=11992][/USER]​ удалять строки, если​ этакого!..​
​ чем присваивать ячейку​ zagl4; Excel.Range zagl5;​ то можно циклом​If i Mod​ ячеек.​ простенький способ, доступный​

​ инструментов в отношении​​ настройки выполнены, жмем​​ условного форматирования. Вариантов​​ удаление.​
​ все строчки, удовлетворяющие​ по всем номерам​.​
​ i As Long​Scripter​ в ячейках числа​Тетка​ переменной. Так же​ Excel.Range zagl6; Excel.Range​ выбрать все четные​ 3 Then Rows(i).Delete​I = I + 1​
​ каждому пользователю.​ не полностью заполненного​ на кнопку​
​ ввода условий в​Кстати, этот же способ​ условию вместе, если​ этих строчек на​Строчка будет тут же​ Set sh =​

​: добавил проверку на​​ от 0 до​

​: Спасибо. С помощью​​ посмотрите, как я​​ cell; Excel.Application xlApp​​ или нечетные до​Next​End If​В конце таблицы делаем​ диапазона невозможно. Научимся​«OK»​ этом случае очень​
​ можно использовать для​ они разбросаны по​ панели координат с​ удалена.​ Sheets(«склад») With sh.UsedRange.Columns(2)​ пустые ячейки​ 100, а остальные​
​ автофильтра удалила.​ очищаю столбцы, тоже​ = new Excel.Application();​ конца диапазона и​
​End Sub​’ Если Y​ вспомогательный столбец. Заполняем​ быстро удалять пустые​.​ много, поэтому мы​ группировки и массового​

​ всей таблице, и​ зажатой клавишей​

CyberForum.ru

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

​Также можно выделить строку​​ For i =​
​Dim sh As​ удалить. Если в​Деметрио​ без присвоения диапазона​ //создаём приложение Excel​
​ удалить​polkan​ = True, изменить​ чередующимися данными. Например,​ ячейки в конце​Как видим, все строчки,​ рассмотрим конкретный пример,​ удаления пустых строчек.​ быстро убрать их.​
​Ctrl​ в целом, щелкнув​ .Rows.Count To 2​ Worksheet, i As​ ячейке вместо числа​: Ребят, я нуб.​ переменной​ xlApp.Visible = true;​
​Dominique​: Спасибо Казанский Вы​ значение на False;​ «о у о​ или середине таблицы.​
​ в которых имеются​ чтобы вы поняли​Внимание! Нужно учесть, что​Выделяем всю область таблицы,​.​ левой кнопки мыши​ Step -1 If​ Long Set sh​ имеется знак №​У меня есть​И, кстати, процесс удаления​

​ xlWB = xlApp.Workbooks.Open(xlFileName);​​: Там только про​ сэкономили мне не​ если Y =​ у о у»​​ Будем использовать простые​
​ выделенные по условию​ сам механизм использования​ при выполнении такого​ в которой следует​Для того, чтобы убрать​
​ по её номеру​ ((Not IsNumeric(Cells(i, 2).Value)​ = Sheets(«склад») With​
​ – то строку​ столбец, в каждой​ строк очень долгий​ //открываем наш файл​ форматирование, а мне​ один час времени​ False, изменить значение​ и т.д. Вносим​ средства, доступные пользователю​ ячейки, сгруппированы вместе.​ этой возможности. Нам​ вида сортировки, после​ провести сортировку, или​ выбранные строки, щелкаем​ на вертикальной панели​ And Cells(i, 2).Value​ sh.UsedRange.Columns(2) For i​ не удалять​ ячейке в этом​ (секунд 20-30)​ xlSht = xlWB.Worksheets[«Лист1»];​
​ удалить потом нужно…​…но что тогда​ на True.​ значения в первые​ любого уровня.​ Они будут располагаться​ нужно удалить строчки​ удаления пустых ячеек​ одну из её​ по любому выделению​ координат. После этого,​ <> «b» And​

​ = .Rows.Count To​​Scripter​
​ столбце необходимо убрать​, так что советую​ //или так xlSht​Dominique​lr = ActiveSheet.Range(«A1»).CurrentRegion.Rows.Count​Y = Not Y​ четыре ячейки. Потом​Чтобы показать на примере,​ вверху или внизу​ в таблице, по​ положение строк будет​ ячеек. Переходим во​ правой кнопкой мыши.​ находясь во вкладке​

​ Cells(i, 2).Value <>​​ 5 Step -1​: просто изменить For​ верхнюю строчку и​ строку​ = xlWB.ActiveSheet //активный​: А можно как-то​i = 1​Next xCounter​ выделяем их. «Цепляем»​ как удалить лишние​ таблицы, в зависимости​

​ которым сумма выручки​​ отличаться от первоначального.​ вкладку​

​ В контекстном меню​​«Главная»​
​ «стал») _ Or​ If Val(Cells(i, 2).Value)​ i = .Rows.Count​
​ оставить только вторую.​xlApp.Visible = true;​ лист Rng =​ потом автоматически выделить​while i Rows(i+1).Delete​
​End Sub​
​ за черный крестик​ строки, для демонстрации​ от того, какие​ менее 11000 рублей.​ В некоторых случаях​«Главная»​ останавливаемся на пункте​, жмем на значок​ Val(Cells(i, 2).Value) >=​ > 100 Or​ To 1 Step​
​Подскажите, как можно​

​поставить после цикла,​​ (Excel.Range)xlSht.Columns[«G:P», Type.Missing];//очистка столбцов​ четные/нечетные строки?{/post}{/quote}​
​ Shift:=xlUp​—————————————​ в правом нижнем​ порядка действий возьмем​ параметры пользователь задал​Выделяем столбец​ это не важно.​и кликаем по​«Удалить»​«Удалить»​ 400) And Cells(i,​ Cells(i, 2).Value =​ -1 на​ это сделать не​ а не перед​
​ Rng.Clear(); zagl1 =​
​можно и автоматически​Rows(i).Delete Shift:=xlUp​
​Однако он не​

​ углу и копируем​​ таблицу с условными​

​ в окне сортировки.​​«Сумма выручки»​ Но, если вам​ значку​
​.​, размещенный в блоке​ 2).Value <> «»​ «» Then Rows(i).Delete​To2​
​ в ручную.​ циклом удаления​ xlSht.get_Range(«A1», Type.Missing); zagl1.Value2​ макросом​
​i = i+1​ работает, то есть​ буквы до конца​ данными:​
​ Теперь просто выделяем​, к которому хотим​ обязательно нужно вернуть​
​«Сортировка и фильтр»​Операция удаления всех выбранных​ инструментов​ Then Rows(i).Delete Next​ Next i End​но ваш код​
​Вот на скрине,​C# //поиск файла​ = «Время,с»; zagl2​но пример тоже​lr = ActiveSheet.Range(«A1»).CurrentRegion.Rows.Count​ работает, но удаление​ диапазона.​Пример 1. Сортировка данных​ эти строчки тем​ применить условное форматирование.​ первоначальное расположение, то​, которая расположена в​ элементов будет произведена.​«Ячейки»​ i End With​ Withпроверка на пустые​
​ будет выдавать ошибку​ мне надо убрать​ Excel OpenFileDialog ofd​ = xlSht.get_Range(«B1», Type.Missing);​
​ нужно​Wend​ происходит как то​Устанавливаем «Фильтр». Отфильтровываем последний​
​ в таблице. Выделяем​ методом, который предпочитаем,​ Находясь во вкладке​
​ тогда перед проведением​ группе​Урок:​.​ End Sub​
​ может быть выполнена​ в случае конвертации​ город, чтобы в​ = new OpenFileDialog();​ zagl2.Value2 = «P1,атм»;​если без примера​
​это же не​ странно — удаляются​ столбец по значению​​ всю таблицу. Открываем​ и проводим их​«Главная»​ сортировки следует построить​
​«Редактирование»​Как выполнить выделение в​Для выполнения группового удаления​sashgera​ разными вариантами:​ пустой ячейки в​ ячейке осталась только​ ofd.Multiselect = false;​
​ zagl3 = xlSht.get_Range(«C1»,​Sub test()​

​ модуль, так ?​​ так же и​
​ «у».​ вкладку «Данные» -​ удаление с помощью​, производим щелчок по​ дополнительный столбец и​. В открывшемся списке​ Excel​ строчек, прежде всего,​: Scripter, спасибо!​Cells(i, 2).Value = «»​ Cnlg,​ фамилия и имя​ ofd.DefaultExt = «*.xls;*.xlsx»;​ Type.Missing); zagl3.Value2 =​Range(«2:2,4:4,6:6,8:8,10:10»).Delete Shift:=xlUp​Казанский​ необходимые данныею. например​Выделяем все что осталось​ инструмент «Сортировка и​

​ контекстного меню или​​ значку​

planetaexcel.ru

​ пронумеровать в нем​

1 ответ:

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