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

Отбор четных и нечетных строк таблицы в EXCEL

history 11 апреля 2014 г.

Группы статей
• Отбор строк в таблице
• Условное форматирование

Для извлечения из таблицы только четных или нечетных строк можно использовать формулы и Автофильтр .

Пусть имеется исходная таблица с объемами продаж товаров по кварталам.

Нам требуется отобразить только четные или нечетные строки.

Примечание : О выделении нечетных строк Условным форматированием читайте в статье о Чрезстрочном выделении .

Автофильтр

Это можно легко сделать с помощью Автофильтра в столбце F . Для этого в ячейку F8 введите формулу =ЕЧЁТН(СТРОКА()-СТРОКА($F$7)) и скопируйте ее вниз. Формула для четных строк таблицы (не листа!) возвращает ИСТИНА.

Теперь с помощью Автофильтра можно выбрать либо четные либо нечетные строки.

Формулы

Выведем четные и нечетные строки с помощью формул.

С помощью формулы =ИНДЕКС(A$8:A$17;(СТРОКА()-СТРОКА($A$21))*2) можно отобрать только четные строки из исходной таблицы.

С помощью формулы =ИНДЕКС(A$8:A$17;(СТРОКА()-СТРОКА($A$30))*2-1) можно отобрать только нечетные строки.

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: одиночное удаление через контекстное меню

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

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

​ 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) <​

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

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

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

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

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

​ 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​​Однажды пользователь скрыл некую​ по возрастанию оказываются​

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

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

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

​ //имя нашего Excel​ 2; m 0 и удалить​: Пардон, господа!​ данные еще понадобятся.​ столбец, сделать сквозную​ условию решена.​ производить выбор, основываясь​Урок:​ настроек​ делать, если пустых​ можно выделить самую​ данной процедуры.​НЕ УДАЛЯЕМ строку​

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

​«Сортировка и фильтр»​ строк много и​ верхнюю ячейку, щелкнув​Скачать последнюю версию​​ если в ячейке​​ _ CLng(IIf(Cells(i, 2).Value​ образец разбора) -​​ = new Excel.Application();​​ "№" And​ — Данные -​ заполненная строка в​​ Пришлось создавать свой​​:​ её место сдвинется​ таблицу.​ экране появится соответствующее​Таким же способом можно​ них, который расположен​ После того, как​ кнопке​«Сортировка»​. В открывшемся списке​​ из ячеек, находящихся​​Кликаем правой кнопкой мыши​

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

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

​ 2).Value)​ и на каком-то​ (m = StartRow;​​ код работает, а​​Dominique​ и удаляя строку​​ первый столбец, Ctrl+H,​​ скрытые ячейки удалены,​​ Выбираем нужный столбец​​. В открывшемся меню​​«OK»​​ вкладке​​ будет происходить отбор:​​.​ одновременно зажатой клавишей​ которую нужно удалить.​ For i =​sashgera​ шаге отметить "Текстовый"​ m ​

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

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

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

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

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

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

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

Как удалить пустые строки в 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

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

​ «без пустот».​​ в документе.​
​ о которых шла​«Сортировка и фильтр»​ сортироваться данные. Выбор​ речь выше. Например,​ этом случае будут​ Далее следует щелкнуть​ есть слово: стал​ Worksheet, i As​
​ #, предварительно вставьте​ каждую 2 строку?​ моём файле остаются​ using System.Drawing; using​: Можно такой способ,​
​ пустые? На мой​
​ массива данных. Google​

​Внимание! После удаления часть​
​Урок:​ речь выше.​.​ критериев в этом​
​ можно нажать на​ выделяться не отдельные​ по выделению правой​
​3. НЕ УДАЛЯЛАСЬ​
​ Long Set sh​ рядом столбец пустой.​

​ Например: 1,3,5,7​ следующие строки: 1,​ System.Linq; using System.Text;​
​ немного длинный.​ взгляд это разные​

​ посоветовал мне вот​ ячеек перескакивает вверх​
​Условное форматирование в Экселе​Открывается окно сортировки. Как​

​После выполнения любого из​ поле зависит от​
​ кнопку​

​ ячейки, а строчки​ кнопкой мышки. В​
​ строка если ячейка​

​ = Sheets("Лист1") With​большое спасибо, я​a_s_p​ 2, 13, 24,​ using System.Threading.Tasks; using​
​Вводим колонку(например столбец​

​ такой макрос:​ – данные могут​Как видим, существует очень​ всегда, обращаем внимание,​ вышеуказанных действий около​ формата данных выделенного​
​«Удалить»​

​ активировавшемся меню требуется​
​ столбца "B"- пустая​
​ sh.UsedRange.Columns(2) For i​ разобрался​: Можно с помощью​ 35 и далее​ System.Windows.Forms; using Excel​ А), с номерами​polkan​————————————————————————-​ перепутаться. Поэтому для​ большое количество способов​ чтобы около пункта​ правой границы каждой​ столбца. Например, для​, которая расположена на​
​Для того, чтобы выделить​

​ выбрать пункт​​4. УДАЛЯЛАСЬ строка​ = .Rows.Count To​sashgera​

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

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

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

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

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

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

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

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

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

​ углом вниз. Жмем​​или​, где мы сейчас​

​ курсором по вертикальной​
​ удаления проходит сразу​
​ и выше​ Rows(i).Delete Next i​
​ в столбце ‘B’​
​: Можно и без​
​ записываете название столбца​
​ public Form1() <​

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

​ и не нужно​​5. УДАЛЯЛАСЬ строка​ End With​ имеются числа от​

​Если нужно удалять​
​ InitializeComponent(); > private​
​ и удаляем ненужное.​ строки, не поможете​
​ необходимо​
​ CTRL+«-». А для​
​ элементов. Например, чтобы​
​«Сумма выручки»​

​ в том столбце,​, а для даты​

​Как видим, все незаполненные​​ верхнего строчного элемента,​ производить дополнительные действия​ если в ячейке​
​sashgera​ 0 до 100​ необходимые и удалить​ начиная со 2-й​

​ void Form1_Load(object sender,​lelya​ макросом.​’ удалить строки​
​ ее выделения можно​
​ удалить одну-две строчки​. В поле​ где находится значение,​
​«От старых к новым»​ элементы таблицы были​ который нужно удалить,​ в окне выбора​

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

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

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

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

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

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

​: Scripter,​​ Set sh =​

​ Как сами пробовали,​​ = 1​ e) < //поиск​: А можно как-то​
​While i Rows(i).Delete​Set xRng =​
​Чтобы удалить одинаковые строки​ выделить много строк,​
​. В следующем поле​
​ галочки с тех​
​ большого значения не​
​ должна быть абсолютно​

​ клавиши​ помощью инструментов на​пробовал так, все​
​только что заметил,​ Sheets("Лист1") With sh.UsedRange.Columns(2)​ что не получается?​и ещё, в​ файла Excel OpenFileDialog​ потом автоматически выделить​

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

​ выбираем тот цвет,​​ значений в строчках,​ имеет, так как​ пустая. Если в​
​Shift​ ленте, которые размещены​
​ выполняется, кроме одного​ не удаляются пустые​
​ For i =​
​ Есть функция =ЕНЕЧЁТ(),​
​ коде находится последняя​
​ ofd = new​

​ четные/нечетные строки?​i = i + 2​’ Цикл по​
​ всю таблицу. Переходим​ элементы по заданному​ строчки с которым​ которые хотим убрать.​ в любом случае​ таблице имеются пустые​

​. Кликаем левой кнопкой​ во вкладке​ -​

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

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

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

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

Выбрать каждую 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​ четные/нечетные строки?​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​

Можно ли в таблице удалить одновременно каждую 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​​ цикла по диапазону​А можно ручками. Предлагаем​

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

​ некорректно. Использовать ряд​​ как все вышеуказанные​
​ фильтрацией использовать инструменты​ и произвести их​ мы сможем собрать​ левой кнопкой мыши​«Удалить строки с листа»​ 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​ вспомогательный столбец. Заполняем​ быстро удалять пустые​.​ много, поэтому мы​ группировки и массового​

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

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

​Также можно выделить строку​​ 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];//очистка столбцов​ четные/нечетные строки?​
​ Shift:=xlUp​—————————————​ в правом нижнем​ порядка действий возьмем​ параметры пользователь задал​Выделяем столбец​ это не важно.​и кликаем по​«Удалить»​«Удалить»​ 400) And Cells(i,​ Cells(i, 2).Value =​ -1 на​ это сделать не​ а не перед​
​ Rng.Clear(); zagl1 =​
​можно и автоматически​Rows(i).Delete Shift:=xlUp​
​Однако он не​

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