Како да го избришете секој друг ред или секој N-ти ред во Excel

  • Споделете Го Ова
Michael Brown

Овој краток туторијал објаснува како да го избришете секој друг ред во Excel со филтрирање или со VBA код. Исто така, ќе научите како да го отстраните секој 3-ти, 4-ти или кој било друг N-ти ред.

Има многу ситуации кога можеби ќе треба да ги избришете алтернативните редови во работните листови на Excel. На пример, можеби ќе сакате да ги чувате податоците парни недели (редови 2, 4, 6, 8, итн.) и да ги преместите сите непарни недели (редови 3, 5, 7 итн.) на друг лист.

Општо земено, бришењето на секој друг ред во Excel се сведува на избор на алтернативни редови. Откако ќе се одберат редовите, потребно е само едно движење на копчето Избриши . Понатаму во оваа статија, ќе научите неколку техники за брзо избирање и бришење на секој друг или секој N-ти ред во Excel.

    Како да го избришете секој втор ред во Excel со филтрирање

    Во суштина, вообичаен начин за бришење на секој друг ред во Excel е следниов: прво, ги филтрирате алтернативните редови, потоа ги избирате и ги бришете сите одеднаш. Деталните чекори следуваат подолу:

    1. Во празна колона до вашите оригинални податоци, внесете низа од нули и единици. Можете брзо да го направите ова со впишување 0 во првата ќелија и 1 во втората ќелија, потоа копирање на првите две ќелии и залепување на колоната до последната ќелија со податоци.

      Алтернативно, можете да ја користите оваа формула:

      =MOD(ROW(),2)

      Логиката на формулата е многу едноставна: функцијата ROW го враќа тековниот број на ред, функцијата MODго дели со 2 и го враќа остатокот заокружен на цел број.

      Како резултат на тоа, имате 0 во сите парни редови (бидејќи тие се поделени со 2 рамномерно без остаток) и 1 во сите непарни редови:

    2. Во зависност од тоа дали сакате да избришете парни или непарни редови, филтрирајте ги единиците или нулите.

      За да го направите тоа, изберете која било ќелија во вашата колона „Помошник“, одете во групата Податоци > Подреди и филтрирај и кликнете на Филтер копче. Стрелките на паѓачкото филтерче ќе се појават во сите ќелии на заглавието. Кликнете на копчето со стрелка во колоната Помошник и означете едно од полињата:

      • 0 за да избришете парни редови
      • 1 за да избришете непарни редови

      Во овој пример, ќе ги отстраниме редовите со вредности „0“, па ги филтрираме:

    3. Сега кога сите редови „1“ се скриени, изберете ги сите видливи редови „0“, кликнете со десното копче на изборот и кликнете Избриши ред :

    4. Горениот чекор ве остави со празна табела , но не грижете се, редовите „1“ сè уште се таму. За да ги направите видливи повторно, едноставно отстранете го автоматскиот филтер со повторно кликнување на копчето Филтер :

    5. Формулата во колоната C повторно се пресметува за останатите редови, но веќе не ти треба. Сега можете безбедно да ја избришете колоната Помошник:

    Како резултат, само парните недели останаа во нашиот работен лист, непарните недели поминаа!

    Совет. Ако сакате да се движите секојдруг ред на друго место наместо да ги избришете целосно, прво копирајте ги филтрираните редови и залепете ги на нова локација, а потоа избришете ги филтрираните редови.

    Како да ги избришете алтернативните редови во Excel со VBA

    Ако не сте спремни да го трошите вашето време на тривијална задача, како што е бришење на секој друг ред во вашите работни листови во Excel, следното VBA макро може да го автоматизира процесот за вас:

    Sub Delete_Alternate_Rows_Excel() Dim SourceRange As Range Set SourceRange = Application.Selection Set SourceRange = Application.InputBox( "Range:" , "Select the range" , SourceRange.Address, Type :=8) If SourceRange.Rows.Count >= 2 Потоа затемнете ја FirstCell како опсег Затемнете го индексот на редот како цел број Application.ScreenUpdating = Неточно за RowIndex = SourceRange.Rows.Count - (SourceRange.Rows.Count Mod 2) На 1 чекор -2 Поставете FirstCell = SourceRange.Cells(RowIndex, 1) FirstCell.EntireRow.Deleteen Truepplication. End If End Sub

    Како да го избришете секој друг ред во Excel користејќи макро

    I вметнете го макрото во вашиот работен лист на вообичаен начин преку уредувачот на Visual Basic:

    1. Притиснете Alt + F11 за да го отворите прозорецот Visual Basic за апликации.
    2. На горната лента со мени, кликнете Вметни > Модул и залепете го горното макро во Модулот
    3. Притиснете го копчето F5 за да го извршите макрото.
    4. Ќе се појави дијалог и ќе ве поттикне да изберете опсег. Изберете ја вашата табела и кликнетеВо ред:

    Готово! Секој втор ред во избраниот опсег е избришан:

    Како да го избришете секој N-ти ред во Excel

    За оваа задача, ќе го прошириме филтрирањето техника што ја користевме за да го отстраниме секој друг ред. Разликата е во формулата на која се базира филтрирањето:

    MOD(ROW()- m, n)

    Каде:

    • m е бројот на редот на првата ќелија со податоци минус 1
    • n е N-тиот ред што сакате да го избришете

    Да речеме дека вашите податоци започнуваат во редот 2 и сакате да го избришете секој трет ред. Значи, во вашата формула n е еднакво на 3, а m е еднакво на 1 (ред 2 минус 1):

    =MOD(ROW() - 1, 3)

    Ако нашите податоци започнале во ред 3, тогаш m би еднакво на 2 (ред 3 минус 1) и така натаму. Оваа корекција е потребна за секвенцијално нумерирање на редовите, почнувајќи од бројот 1.

    Она што го прави формулата е да дели релативен број на ред со 3 и да го врати остатокот по делењето. Во нашиот случај, тој дава нула за секој трет ред бидејќи секој трет број се дели со 3 без остаток (3,6,9 итн.):

    И сега, вие изведете ги веќе познатите чекори за филтрирање на редовите „0“:

    1. Изберете која било ќелија во вашата табела и кликнете на копчето Филтер на Податоци
    2. Филтрирајте ја колоната Помош за да се прикажат само вредностите „0“.
    3. Изберете ги сите видливи редови „0“, кликнете со десното копче и изберете Избриши ред од контекстното мени.
    4. Отстранете го филтерот иизбришете ја колоната Helper.

    На сличен начин, можете да го избришете секој 4-ти, 5-ти или кој било друг N-ти ред во Excel.

    Совет. Во случај да треба да отстраните редови со ирелевантни податоци, следново упатство ќе ви помогне: Како да избришете редови врз основа на вредноста на ќелијата.

    Ви благодарам што прочитавте и се надевам дека ќе се видиме на нашиот блог повторно следната недела .

    Мајкл Браун е посветен технолошки ентузијаст со страст за поедноставување на сложените процеси користејќи софтверски алатки. Со повеќе од една деценија искуство во технолошката индустрија, тој ги усоврши своите вештини во Microsoft Excel и Outlook, како и Google Sheets и Docs. Блогот на Мајкл е посветен на споделување на своето знаење и експертиза со другите, обезбедувајќи лесни за следење совети и упатства за подобрување на продуктивноста и ефикасноста. Без разлика дали сте искусен професионалец или почетник, блогот на Мајкл нуди вредни сознанија и практични совети за да го извлечете максимумот од овие основни софтверски алатки.