Efnisyfirlit
Þ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:
- Í 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:
- Þ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:
- Nú þegar allar "1" línurnar eru faldar, veldu allar sýnilegu "0" línurnar, hægrismelltu á valið og smelltu á Eyða línu :
- 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:
- 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 SubHvernig á 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:
- Ýttu á Alt + F11 til að opna Visual Basic for Applications gluggann.
- Á efstu valmyndarstikunni, smelltu á Insert > Module , og límdu ofangreinda fjölva í Module
- Ýttu á F5 takkann til að keyra fjölva.
- 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:
- Veldu hvaða reit sem er í töflunni þinni og smelltu á Sía hnappinn á Gögn
- Síaðu hjálpardálkinn til að sýna aðeins "0" gildi.
- Veldu allar sýnilegu "0" línurnar, hægrismelltu og veldu Eyða línu í samhengisvalmyndinni.
- 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 .