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

Возможность удаления каждой второй строки в Excel — это часто возникающая задача, решение которой не займет более 5 минут.

  • Инструкция;
  • Способы применения.

Видеоинструкция

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

Для выполнения этой задачи потребуется первоначально добавить новый столбец, который можно назвать «Индикатором» и добавить в первые две строчки цифры 1 и 2.

Создание дополнительной строки и цифр в них в Excel

После копируем первые две ячейки, кликнув правой клавишей мыши и нажав на «Копировать» (сочетание клавиш CTRL+C).

Копирование ячеек в Эксель

Далее выделяем область, в которой будет происходить удаление и нажимаем кликаем правой клавишей мыши и выбираем «Вставить скопированные ячейки» (сочетание клавиш CTRL+V).

Растягивание значений в столбце в Excel

После включаем фильтр, перейдя в «Данные»-«Фильтр».

Фильтрация ячеек в Эксель

Следующим этапом кликаем на 1 и удаляем ее из показа.

Выбор показа каждой второй строки в Excel

Выделяем оставшиеся четные строки и при помощи правой клавиши мыши выводим меню и выбираем «Удалить строку».

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

Включаем показ нечетных строк.

Остаток после удаления каждой второй строки в Эксель

Все готово, остались лишь нечетные строки.

Удаление каждой третьей или любой другой строки в Эксель

Сделать это можно по той же инструкции, сменив лишь начальные цифры, например, если нужно избавиться от каждой третьей строки, то необходимо использовать повторяющуюся комбинацию 1, 2, 3.

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

Аналогичный образом можно обрезать не только 1 но 2 ненужные строки из списка, например, 2 и 4 из 5.

Improve Article

Save Article

Like Article

  • Read
  • Discuss
  • Improve Article

    Save Article

    Like Article

    In this article, we will see how to delete every other row or every nth row in excel. Generally, deleting every other row in Excel boils down to selecting alternate rows. Once the rows are selected, a single stroke on the Delete button is all it takes. But there are simpler ways to achieve so which we will be discussing in this article.

    Implementation:

    We can delete every nth column in excel by following steps:

    1. Create an extra column say ‘Helper’.
    2. Write modulus formula that divides the row number by n(nth row you want to delete) number in helper column.
    3. Filter out data whose helper column value is 1. (considering column header has row value 1 and entries starts from row number 2)
    4. Delete the filtered data.
    5. View the original data, delete the helper column created earlier.
    6. you can see that nth row data is deleted now.

    Example: 

    We have the following data in excel:

    For demonstration purposes follow the below steps:

    Step 1: Create a new column with the name ‘Helper’. 

    Step 2: Write the formula.

    • For demonstration delete every third column of the data.
    Formula used: Mod(row(),3)

    Step 3: Filter data

    • We want to delete every third row, which means whose helper column value is 1. 
    • To filter data, go to Data>>Filter>> Autofilter.

    • Select ‘1’ from the dropdown displayed with the Helper column.

    Step 4: Delete filter data

    • To delete the data: select data>> right click>> delete>> delete entire row.

    • Press ‘OK’.

    Step 5: View original data

    • To go back to the original data, go to Data>>Filter>>Autofilter

    • We can see that every third row is deleted as compared to the original data presented earlier.

    Step 6: Delete the Helper column.

    • Select helper column>> right click>> delete>> delete entire column>> select ok.

    Final result:

    Like Article

    Save Article

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

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

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

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

    2. ​ 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) {​

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

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

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

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

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

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

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

    1. ​ 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

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

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

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

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

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

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

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

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

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

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

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

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

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

    Способ 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()​​ видимые строки.​Кажется тут же​​ Не понадобились –​​ нумерацию. После сортировки​Кроме того, можно произвести​​ на фактической задаче.​​Сортировка данных в Экселе​

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

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

      Окно выделения ячеек в Microsoft Excel

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

      Удаление пустых ячеек в Microsoft Excel

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

    Пустые строки удалены в Microsoft Excel

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

    Нельзя применять удаление пустых строк в Microsoft Excel

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

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

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

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

      Переход к настраиваемой сортировке в Microsoft Excel

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

      Переход к сортировке в Microsoft Excel

    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​: Тем, кто нашёл​ в данном случае,​ — инструмент «Инспектор​​ На вкладке «Данные»​​ сценарию. Включаем фильтрацию​

      Окно сортировки в Microsoft Excel

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

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

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

    Удаление пустых строк при помощи сотировки в Microsoft Excel

    ​ нажимаем кнопку «Фильтр»​ в таблице одним​. Все значения, которые​ снова, то вы​ таблицы имеется шапка.​Переходим во вкладку​ находящиеся между ними.​ и заканчивая относительно​также макрос удаляет строки​ 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​​ поэтому цикл перебора​​ с данными. Ну​ строки и столбцы».​​ каждого столбца появится​​ озвучены выше.​ поле есть возможность​Выделяем всю таблицу или​​нужно выбрать наименование​​ жмем на значок​

      Включение фильтра через вкладку Главная в Microsoft Excel

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

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

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

      Переход к фильтру в Microsoft Excel

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

    Фильтрация в Microsoft Excel

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

    Фильтрация выполнена в Microsoft Excel

    ​ на котором можно​​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​ — Данные -​ заполненная строка в​​ Пришлось создавать свой​​:​ её место сдвинется​ таблицу.​ экране появится соответствующее​Таким же способом можно​ них, который расположен​ После того, как​ кнопке​«Сортировка»​. В открывшемся списке​​ из ячеек, находящихся​​Кликаем правой кнопкой мыши​

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

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

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

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

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

    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​​ знаю, тестируйте, корректируйте​

      Сортировка данных в Microsoft Excel

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

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

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

    Удаление столбца с номерами в Microsoft Excel

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

    Удаление с помощью условного форматирование прошло усипешно в Microsoft Excel

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

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

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

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

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

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

    Фильтрация произведена в Microsoft Excel

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

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

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

    Пример1.

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

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

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

    Пример2.

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

    ​ были даны во​.​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. НЕ УДАЛЯЛАСЬ​ №​ Данные- текст по​Пример3.
    4. ​: Здравствуйте​ + 1) +​C# using System;​

    Без пустых строк.

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

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

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

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

    Скрыто.

    ​ using System.Collections.Generic; using​

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

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

    Пример4.

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

    exceltable.com

    Как удалить каждую вторую строчку из 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​ строк.Затем пишем формулу​

    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​
    ​ ‘ Измените значение​ для удаления выделенной​
    ​ поставленной задачи и​
    ​«Сортировать по»​

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

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

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

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

    ​ VBA — выделить​

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

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

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

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

    ​ столбца «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 =​

    ​ Как сами пробовали,​​ = 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​ диапазона.​

    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

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

    Если вы хотите быстро удалить каждую вторую строку или столбец в 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 по мере необходимости.


    Выделите каждую вторую или n-ю строку, столбец и сразу удалите их

    Kutools for Excel‘s Выберите интервальные строки и столбцы Утилита может помочь вам найти и выбрать каждую вторую или n-ю строку или столбец, а затем вы можете выполнять некоторые операции по мере необходимости. Нажмите, чтобы скачать Kutools for Excel!


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


    Лучшие инструменты для работы в офисе

    Kutools for Excel Решит большинство ваших проблем и повысит вашу производительность на 80%

    • Снова использовать: Быстро вставить сложные формулы, диаграммы и все, что вы использовали раньше; Зашифровать ячейки с паролем; Создать список рассылки и отправлять электронные письма …
    • Бар Супер Формулы (легко редактировать несколько строк текста и формул); Макет для чтения (легко читать и редактировать большое количество ячеек); Вставить в отфильтрованный диапазон
    • Объединить ячейки / строки / столбцы без потери данных; Разделить содержимое ячеек; Объединить повторяющиеся строки / столбцы… Предотвращение дублирования ячеек; Сравнить диапазоны
    • Выберите Дубликат или Уникальный Ряды; Выбрать пустые строки (все ячейки пустые); Супер находка и нечеткая находка во многих рабочих тетрадях; Случайный выбор …
    • Точная копия Несколько ячеек без изменения ссылки на формулу; Автоматическое создание ссылок на несколько листов; Вставить пули, Флажки и многое другое …
    • Извлечь текст, Добавить текст, Удалить по позиции, Удалить пробел; Создание и печать промежуточных итогов по страницам; Преобразование содержимого ячеек в комментарии
    • Суперфильтр (сохранять и применять схемы фильтров к другим листам); Расширенная сортировка по месяцам / неделям / дням, периодичности и др .; Специальный фильтр жирным, курсивом …
    • Комбинируйте книги и рабочие листы; Объединить таблицы на основе ключевых столбцов; Разделить данные на несколько листов; Пакетное преобразование xls, xlsx и PDF
    • Более 300 мощных функций. Поддерживает Office/Excel 2007-2021 и 365. Поддерживает все языки. Простое развертывание на вашем предприятии или в организации. Полнофункциональная 30-дневная бесплатная пробная версия. 60-дневная гарантия возврата денег.

    вкладка kte 201905


    Вкладка Office: интерфейс с вкладками в Office и упрощение работы

    • Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
    • Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
    • Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!

    офисный дно

    При импорте и копировании таблиц в Excel могут формироваться пустые строки и ячейки. Они мешают работе, отвлекают.

    Некоторые формулы могут работать некорректно. Использовать ряд инструментов в отношении не полностью заполненного диапазона невозможно. Научимся быстро удалять пустые ячейки в конце или середине таблицы. Будем использовать простые средства, доступные пользователю любого уровня.

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

    Чтобы показать на примере, как удалить лишние строки, для демонстрации порядка действий возьмем таблицу с условными данными:

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

    Пример 1. Сортировка данных в таблице. Выделяем всю таблицу. Открываем вкладку «Данные» — инструмент «Сортировка и фильтр» — нажимаем кнопку «Сортировка». Или щелкаем правой кнопкой мыши по выделенному диапазону и делаем сортировку «от минимального к максимальному».

    Пример1.

    Пустые строки после сортировки по возрастанию оказываются внизу диапазона.

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

    Пример 2. Фильтр. Диапазон должен быть отформатирован как таблица с заголовками. Выделяем «шапку». На вкладке «Данные» нажимаем кнопку «Фильтр» («Сортировка и фильтр»). Справа от названия каждого столбца появится стрелочка вниз. Нажимаем – открывается окно фильтрации. Снимаем выделение напротив имени «Пустые».

    Пример2.

    Таким же способом можно удалить пустые ячейки в строке Excel. Выбираем нужный столбец и фильтруем его данные.

    Пример 3. Выделение группы ячеек. Выделяем всю таблицу. В главном меню на вкладке «Редактирование» нажимаем кнопку «Найти и выделить». Выбираем инструмент «Выделение группы ячеек».

    Выделение.

    В открывшемся окне выбираем пункт «Пустые ячейки».

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

    Программа отмечает пустые ячейки. На главной странице находим вкладку «Ячейки», нажимаем «Удалить».

    Раздел ячейки.

    Результат – заполненный диапазон «без пустот».

    Внимание! После удаления часть ячеек перескакивает вверх – данные могут перепутаться. Поэтому для перекрывающихся диапазонов инструмент не подходит.

    Полезный совет! Сочетание клавиш для удаления выделенной строки в Excel CTRL+«-». А для ее выделения можно нажать комбинацию горячих клавиш SHIFT+ПРОБЕЛ.

    

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

    Чтобы удалить одинаковые строки в Excel, выделяем всю таблицу. Переходим на вкладку «Данные» — «Работа с данными» — «Удалить дубликаты».

    Дубликаты.

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

    Повторяющиеся значения.

    После нажатия ОК Excel формирует мини-отчет вида:

    Отчет.

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

    Проредить таблицу можно с помощью макроса. Например, такого:

    Макрос.

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

    1. В конце таблицы делаем вспомогательный столбец. Заполняем чередующимися данными. Например, «о у о у о у» и т.д. Вносим значения в первые четыре ячейки. Потом выделяем их. «Цепляем» за черный крестик в правом нижнем углу и копируем буквы до конца диапазона.
    2. Диапазон.

    3. Устанавливаем «Фильтр». Отфильтровываем последний столбец по значению «у».
    4. Фильтрация.

    5. Выделяем все что осталось после фильтрации и удаляем.
    6. Пример3.

    7. Убираем фильтр – останутся только ячейки с «о».

    Без пустых строк.

    Вспомогательный столбец можно устранить и работать с «прореженной таблицей».

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

    Однажды пользователь скрыл некую информацию в строках, чтобы она не отвлекала от работы. Думал, что впоследствии данные еще понадобятся. Не понадобились – скрытые строки можно удалить: они влияют на формулы, мешают.

    В тренировочной таблице скрыты ряды 5, 6, 7:

    Скрыто.

    Будем их удалять.

    1. Переходим на «Файл»-«Сведения»-«Поиск проблем» — инструмент «Инспектор документов».
    2. Инспектор.

    3. В отрывшемся окне ставим галочку напротив «Скрытые строки и столбцы». Нажимаем «Проверить».
    4. Скрытые.

    5. Через несколько секунд программа отображает результат проверки.
    6. Найдено.

    7. Нажимаем «Удалить все». На экране появится соответствующее уведомление.

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

    Пример4.

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

    Понравилась статья? Поделить с друзьями:
  • Как в excel удалить имя диапазона в excel
  • Как в excel удалить значения после определенного символа
  • Как в excel удалить значения после запятой
  • Как в excel удалить знаки справа
  • Как в excel удалить знаки слева