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

REDMOND

Отбор четных и нечетных строк таблицы в 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

Удаление строк в 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​

Переход к процедуре удаления через контекстное меню в Microsoft Excel

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

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

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

Удаление строки через панель координат в Microsoft Excel

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

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

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

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

Удаление строки через кнопку на ленте в Microsoft Excel

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

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

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

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

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

    Выделение нескольких ячеек в Microsoft Excel

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

    Выделение диапазона ячееек с помощью клавиши Shift в Microsoft Excel

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

    Выделение розрозненных ячеек в Microsoft Excel

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

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

    Выделение диапазрона строк в Microsoft Excel

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

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

    Переход к выделентю группы ячеек в Microsoft Excel

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

    Переход в окно условного форматирования в Microsoft Excel

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

    Окно форматирования в Microsoft Excel

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

    Запуск окна сортировки в Microsoft Excel

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

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

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

    Включение фильтрации для отформатированной таблицы в Microsoft Excel

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

    Включение фильтра по цвету в Microsoft Excel

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

    ​ — выделить -​​ функционала программы 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; //последняя​ с такой проблемой.Мне​

    Таблица для примера.

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

    Пример1.

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

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

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

    Пример2.

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

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

    Выделение.

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

    Пустые ячейки.

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

    REDMOND

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

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

    ​ во всем такому​ (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​
    ​Однако он не​

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

    REDMOND

    Ссылка на основную публикацию