Hvernig á að eyða annarri hverri röð eða hverri Nth röð í Excel

  • Deildu Þessu
Michael Brown

Þetta stutta námskeið útskýrir hvernig á að eyða annarri hverri röð í Excel með síun eða með VBA kóða. Þú munt líka læra hvernig á að fjarlægja hverja 3., 4. eða hverja aðra Nth röð.

Það eru margar aðstæður þar sem þú gætir þurft að eyða öðrum línum í Excel vinnublöðum. Til dæmis gætirðu viljað geyma gögn í sléttar vikur (línur 2, 4, 6, 8 o.s.frv.) og færa allar stakar vikur (línur 3, 5, 7 o.s.frv.) á annað blað.

Almennt, að eyða annarri hverri röð í Excel snýst um að velja aðrar línur. Þegar línurnar hafa verið valdar er eitt högg á Eyða hnappinn allt sem þarf. Síðar í þessari grein muntu læra nokkrar aðferðir til að velja og eyða á fljótlegan hátt annarri hverri eða hverri Nth röð í Excel.

    Hvernig á að eyða annarri hverri línu í Excel með því að sía

    Í meginatriðum er algeng leið til að eyða annarri hverri línu í Excel þessi: fyrst síarðu aðrar línur, velur þær síðan og eyðir öllum í einu. Nákvæm skref fylgja hér að neðan:

    1. Í tómum dálki við hlið upprunalegu gagnanna skaltu slá inn röð af núllum og einum. Þú getur fljótt gert þetta með því að slá inn 0 í fyrsta reitinn og 1 í seinni reitinn, afritaðu síðan fyrstu tvær reitina og líma þær niður í dálkinn þar til síðasta reitinn með gögnum.

      Að öðrum kosti geturðu notað þessa formúlu:

      =MOD(ROW(),2)

      Rökfræði formúlunnar er mjög einföld: ROW fallið skilar núverandi línunúmeri, MOD fallinudeilir því með 2 og skilar afganginum námundað að heiltölunni.

      Þar af leiðandi hefurðu 0 í öllum sléttum línum (vegna þess að þeim er deilt með 2 jafnt án afgangs) og 1 í öllum oddalínum:

    2. Það fer eftir því hvort þú vilt eyða sléttum eða odda línum, sía út eitt eða núll.

      Til að gera það skaltu velja hvaða reit sem er í hjálpardálknum þínum, fara í Gögn flipann > Raða og sía hópinn og smella á Sía takki. Síuörvarnar sem falla niður munu birtast í öllum haushólfum. Þú smellir á örvarhnappinn í Helper dálknum og hakar í einn af reitunum:

      • 0 til að eyða sléttum línum
      • 1 til að eyða stakum línum

      Í þessu dæmi ætlum við að fjarlægja línurnar með "0" gildi, svo við síum þær:

    3. Nú þegar allar "1" línurnar eru faldar, veldu allar sýnilegu "0" línurnar, hægrismelltu á valið og smelltu á Eyða línu :

    4. Skrefið hér að ofan hefur skilið eftir tóma töflu hjá þér , en ekki hafa áhyggjur, "1" línurnar eru enn til staðar. Til að gera þær sýnilegar aftur skaltu einfaldlega fjarlægja sjálfvirka síu með því að smella aftur á Sía hnappinn:

    5. Formúlan í dálki C endurreikur fyrir þær línur sem eftir eru, en þú þarft þess ekki lengur. Þú getur nú örugglega eytt hjálpardálknum:

    Þar af leiðandi eru aðeins sléttar vikur eftir á vinnublaðinu okkar, stakar vikur eru liðnar!

    Ábending. Ef þú vilt flytja hvertönnur röð einhvers staðar annars staðar frekar en að eyða þeim alveg, afritaðu fyrst síuðu línurnar og límdu þær á nýjan stað og eyddu síðan síuðu línunum.

    Hvernig á að eyða öðrum línum í Excel með VBA

    Ef þú ert ekki til í að eyða tíma þínum í léttvægt verkefni eins og að eyða annarri hverri röð í Excel vinnublöðunum þínum, getur eftirfarandi VBA fjölvi gert ferlið sjálfvirkt fyrir þig:

    Sub Delete_Alternate_Rows_Excel() Dim SourceRange As Range Set SourceRange = Application.Selection Set SourceRange = Application.InputBox( "Range:" , "Veldu svið" , SourceRange.Address, Type :=8) If SourceRange.Rows.Count >= 2 Þá Dimma FirstCell As Range Dim RowIndex As Heiltala Application.ScreenUpdating = False Fyrir RowIndex = SourceRange.Rows.Count - (SourceRange.Rows.Count Mod 2) Í 1 skref -2 Setja FirstCell = SourceRange.Cells(RowIndex, 1) FirstCell.EntireRow.Delete Next Application.ScreenUpdat End If End Sub

    Hvernig á að eyða annarri hverri línu í Excel með því að nota macro

    I Settu fjölvi inn í vinnublaðið þitt á venjulegan hátt í gegnum Visual Basic Editor:

    1. Ýttu á Alt + F11 til að opna Visual Basic for Applications gluggann.
    2. Á efstu valmyndarstikunni, smelltu á Insert > Module , og límdu ofangreinda fjölva í Module
    3. Ýttu á F5 takkann til að keyra fjölva.
    4. Gluggi mun spretta upp og biðja þig um að velja svið. Veldu borðið þitt og smelltuAllt í lagi:

    Lokið! Önnur hverri línu á valnu sviði er eytt:

    Hvernig á að eyða hverri Nth röð í Excel

    Fyrir þetta verkefni ætlum við að auka síunina tækni sem við höfum notað til að fjarlægja aðra hverja röð. Munurinn liggur í formúlunni sem síunin byggir á:

    MOD(ROW()- m, n)

    Hvar:

    • m er raðnúmer fyrsta reitsins með gögnum mínus 1
    • n er Nth línan sem þú vilt eyða

    Segjum að gögnin þín byrji í röð 2 og þú vilt eyða 3. hverri röð. Þannig að í formúlunni þinni er n 3 og m er 1 (röð 2 mínus 1):

    =MOD(ROW() - 1, 3)

    Ef gögnin okkar byrjuðu í röð 3, þá myndi m jafngilda 2 (röð 3 mínus 1) og svo framvegis. Þessi leiðrétting er nauðsynleg til að raðnúmera línurnar, byrja á tölunni 1.

    Það sem formúlan gerir er að deila hlutfallslegu línunúmeri með 3 og skila afganginum eftir deilingu. Í okkar tilviki gefur það núll fyrir þriðju hverja línu vegna þess að þriðja hver tala deilir með 3 án afgangs (3,6,9, osfrv.):

    Og nú, þú framkvæma þegar kunnugleg skref til að sía "0" línur:

    1. Veldu hvaða reit sem er í töflunni þinni og smelltu á Sía hnappinn á Gögn
    2. Síaðu hjálpardálkinn til að sýna aðeins "0" gildi.
    3. Veldu allar sýnilegu "0" línurnar, hægrismelltu og veldu Eyða línu í samhengisvalmyndinni.
    4. Fjarlægðu síuna ogeyða Helper dálknum.

    Á svipaðan hátt geturðu eytt hverri 4., 5. eða hverri annarri Nth röð í Excel.

    Ábending. Ef þú þarft að fjarlægja línur með óviðkomandi gögnum mun eftirfarandi kennsla koma þér að gagni: Hvernig á að eyða línum út frá gildi hólfs.

    Ég þakka þér fyrir að lesa og vonast til að sjá þig á blogginu okkar aftur í næstu viku .

    Michael Brown er hollur tækniáhugamaður með ástríðu fyrir því að einfalda flókna ferla með hugbúnaðarverkfærum. Með meira en áratug af reynslu í tækniiðnaðinum hefur hann aukið færni sína í Microsoft Excel og Outlook, sem og Google Sheets og Docs. Blogg Michael er tileinkað því að deila þekkingu sinni og sérfræðiþekkingu með öðrum, veita auðveld ráð og leiðbeiningar til að bæta framleiðni og skilvirkni. Hvort sem þú ert vanur fagmaður eða byrjandi, þá býður blogg Michaels upp á dýrmæta innsýn og hagnýt ráð til að fá sem mest út úr þessum nauðsynlegu hugbúnaðarverkfærum.