Kuinka poistaa joka toinen rivi tai joka N:nnen rivin Excelissä?

  • Jaa Tämä
Michael Brown

Tässä lyhyessä opetusohjelmassa kerrotaan, miten Excelissä poistetaan jokainen toinen rivi suodattamalla tai VBA-koodilla. Opit myös, miten poistetaan jokainen 3., 4. tai mikä tahansa muu N:nnen rivin rivi.

On monia tilanteita, joissa voit joutua poistamaan vaihtoehtoisia rivejä Excel-taulukoista. Voit esimerkiksi haluta säilyttää parillisten viikkojen tiedot (rivit 2, 4, 6, 8 jne.) ja siirtää kaikki parittomat viikot (rivit 3, 5, 7 jne.) toiselle arkille.

Yleisesti ottaen jokaisen toisen rivin poistaminen Excelissä tarkoittaa, että valitaan vaihtoehtoisia rivejä. Kun rivit on valittu, yksi viiva painamalla näppäintä Poista painiketta. Tämän artikkelin jatkossa opit muutamia tekniikoita, joilla voit nopeasti valita ja poistaa joka toisen tai joka N:nnen rivin Excelissä.

    Kuinka poistaa jokainen toinen rivi Excelissä suodattamalla

    Pohjimmiltaan yleinen tapa poistaa jokainen toinen rivi Excelissä on tämä: ensin suodatat vuorottelevat rivit, sitten valitset ne ja poistat kaikki kerralla. Yksityiskohtaiset vaiheet seuraavat alla:

    1. Kirjoita alkuperäisten tietojen vieressä olevaan tyhjään sarakkeeseen nollien ja ykkösten sarja. Voit tehdä tämän nopeasti kirjoittamalla ensimmäiseen soluun 0 ja toiseen soluun 1, kopioimalla kaksi ensimmäistä solua ja liittämällä ne sarakkeen loppuun, kunnes viimeinen solu sisältää tietoja.

      Vaihtoehtoisesti voit käyttää tätä kaavaa:

      =MOD(ROW(),2)

      Kaavan logiikka on hyvin yksinkertainen: ROW-funktio palauttaa nykyisen rivin numeron, MOD-funktio jakaa sen kahdella ja palauttaa jäännösosan kokonaislukuun pyöristettynä.

      Tuloksena on 0 kaikilla parillisilla riveillä (koska ne jaetaan 2:lla tasan ilman jäännöstä) ja 1 kaikilla parittomilla riveillä:

    2. Riippuen siitä, haluatko poistaa parillisia vai parittomia rivejä, suodata ykköset tai nollat pois.

      Jos haluat tehdä sen, valitse mikä tahansa solu Helper-sarakkeesta, siirry valikkoon Tiedot tab> Lajittelu ja suodatus ryhmää ja napsauta Suodatin painiketta. Pudotettavat suodattimen nuolet tulevat näkyviin kaikkiin otsikkosoluihin. Napsautat Helper-sarakkeessa olevaa nuolipainiketta ja valitset jonkin valintaruuduista:

      • 0 parillisten rivien poistamiseksi
      • 1 poistaa parittomat rivit

      Tässä esimerkissä aiomme poistaa rivit, joissa on arvoja "0", joten suodatamme ne:

    3. Nyt kun kaikki "1"-rivit on piilotettu, valitse kaikki näkyvät "0"-rivit, napsauta valintaa hiiren kakkospainikkeella ja valitse sitten Poista rivi :

    4. Yllä oleva vaihe jätti sinulle tyhjän taulukon, mutta älä huoli, "1"-rivit ovat edelleen siellä. Saat ne jälleen näkyviin poistamalla automaattisen suodattimen napsauttamalla hiiren painiketta Suodatin painiketta uudelleen:

    5. Sarakkeessa C oleva kaava lasketaan uudelleen jäljellä oleville riveille, mutta et tarvitse sitä enää. Voit nyt turvallisesti poistaa apusarakkeen:

    Tämän seurauksena vain parilliset viikot ovat jäljellä laskentataulukossamme, parittomat viikot ovat poissa!

    Vihje: Jos haluat siirtää kaikki muut rivit jonnekin muualle sen sijaan, että poistaisit ne kokonaan, kopioi ensin suodatetut rivit ja liitä ne uuteen paikkaan ja poista sitten suodatetut rivit.

    Vaihtoehtoisten rivien poistaminen Excelissä VBA: n avulla

    Jos et halua tuhlata aikaasi triviaaliin tehtävään, kuten Excel-taulukoiden jokaisen toisen rivin poistamiseen, seuraava VBA-makro voi automatisoida prosessin puolestasi:

    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 Then Dim FirstCell As Range Dim RowIndex As Integer Application.ScreenUpdating = False For RowIndex = SourceRange.Rows.Count - (SourceRange.Rows.Count Mod 2) To 1Step -2 Set FirstCell = SourceRange.Cells(RowIndex, 1) FirstCell.EntireRow.Delete Next Application.ScreenUpdating = True End If End Sub

    Kuinka poistaa jokainen toinen rivi Excelissä makron avulla

    Lisää makro työtaulukkoon tavalliseen tapaan Visual Basic -editorin kautta:

    1. Avaa Visual Basic for Applications -ikkuna painamalla Alt + F11.
    2. Napsauta ylävalikkopalkissa Lisää > Moduuli , ja liitä yllä oleva makro Moduuli
    3. Suorita makro painamalla F5-näppäintä.
    4. Näyttöön avautuu valintaikkuna, jossa sinua pyydetään valitsemaan alue. Valitse taulukko ja napsauta OK:

    Valmis! Kaikki muut valitun alueen rivit poistetaan:

    Kuinka poistaa joka N:nnen rivin Excelissä

    Tässä tehtävässä laajennamme suodatustekniikkaa, jota olemme käyttäneet jokaisen toisen rivin poistamiseen. Erona on kaava, johon suodatus perustuu:

    MOD(ROW()- m , n )

    Missä:

    • m on sen ensimmäisen solun rivinumero, jossa on tietoja miinus 1.
    • n on N:s rivi, jonka haluat poistaa

    Oletetaan, että tietosi alkavat riviltä 2 ja haluat poistaa joka kolmannen rivin. Kaavassa siis n on 3, ja m on 1 (rivi 2 miinus 1):

    =MOD(RIVI() - 1, 3)

    Jos tietomme alkoivat riviltä 3, niin m olisi 2 (rivi 3 miinus 1), ja niin edelleen. Tämä korjaus tarvitaan rivien juoksevaa numerointia varten, alkaen numerosta 1.

    Kaava jakaa suhteellisen rivin numeron luvulla 3 ja palauttaa jäännösmäärän jakamisen jälkeen. Meidän tapauksessamme se antaa nollan jokaiselle kolmannelle riville, koska jokainen kolmas numero jaetaan kolmella ilman jäännösmäärää (3,6,9 jne.):

    Ja nyt suoritat jo tutut vaiheet "0"-rivien suodattamiseksi:

    1. Valitse mikä tahansa solu taulukosta ja napsauta Suodatin painiketta Tiedot
    2. Suodata Helper-sarake näyttämään vain "0"-arvot.
    3. Valitse kaikki näkyvät "0"-rivit, napsauta hiiren kakkospainikkeella ja valitse "0". Poista rivi kontekstivalikosta.
    4. Poista suodatin ja poista Helper-sarake.

    Samalla tavalla voit poistaa joka neljännen, viidennen tai minkä tahansa N:nnen rivin Excelissä.

    Vihje. Jos sinun on poistettava rivejä, joissa on epäolennaisia tietoja, seuraavasta ohjeesta on apua: Kuinka poistaa rivejä solun arvon perusteella.

    Kiitän teitä lukemisesta ja toivon näkeväni teidät blogissamme jälleen ensi viikolla.

    Michael Brown on omistautunut teknologian harrastaja, jolla on intohimo yksinkertaistaa monimutkaisia ​​prosesseja ohjelmistotyökalujen avulla. Yli vuosikymmenen kokemuksella teknologia-alalta hän on hionut taitojaan Microsoft Excelissä ja Outlookissa sekä Google Sheetsissä ja Docsissa. Michaelin blogi on omistettu jakamaan tietojaan ja asiantuntemustaan ​​muiden kanssa, ja se tarjoaa helposti seurattavia vinkkejä ja opetusohjelmia tuottavuuden ja tehokkuuden parantamiseksi. Olitpa kokenut ammattilainen tai aloittelija, Michaelin blogi tarjoaa arvokkaita oivalluksia ja käytännön neuvoja, joiden avulla saat kaiken irti näistä tärkeistä ohjelmistotyökaluista.