Jokaisen muun rivin poistaminen Excelissä (tai joka n. Rivi)

Katso video - Poista kaikki muut rivit Excelissä

Joskus saatat joutua poistamaan joka toinen rivi (eli vaihtoehtoiset rivit) tai joka kolmas/neljäs/viides rivi Excelissä.

Yksi käyttötapa voi olla tämä, kun sinulla on viikoittaisia ​​tietoja ja haluat vain parillisten tai parittomien viikkojen tiedot. Toinen tapaus voi olla, kun saat tietokannan tietokannasta ja kaikki hyödylliset tiedot ovat vain joka toisella tai kolmannella rivillä.

Vaikka sinulla on aina mahdollisuus valita ja poistaa rivejä manuaalisesti, tämä on tehotonta, jos sinulla on suuri tietojoukko.

On parempia tapoja tehdä tämä.

Tässä opetusohjelmassa näytän sinulle pari tapaa poistaa kaikki muut Excel -rivit yksinkertaisella suodatustekniikalla. Ja jos olet hyvä käyttämään VBA -makrokoodia, olen myös antanut lyhyen VBA -koodin, joka tekee sen yhdellä napsautuksella. Menetelmät esitetään tässä opetusohjelmassa kaikille Excel -versioille (2007, 2010, 2013 ja 2016)

Vaikka jokaisen Excel -rivin poistaminen voi olla melko yksinkertaista, jokaisen sarakkeen poistaminen voi olla haaste. Tämä johtuu siitä, että et voi suodattaa sarakkeita Excelissä (tapa, jolla voit suodattaa rivejä). Tämän opetusohjelman viimeisessä osassa näytän myös joitain tapoja poistaa vaihtoehtoisia sarakkeita (tai jokaista n. Saraketta) Excelissä.

Poista kaikki muut rivit suodattamalla tietojoukko (käyttämällä kaavaa)

Jos voisit jotenkin suodattaa kaikki parilliset tai parittomat rivit, näiden rivien/tietueiden poistaminen olisi erittäin helppoa.

Vaikka tähän ei ole sisäänrakennettua ominaisuutta, voit jakaa apurivisarakkeen avulla rivit ensin parittomiksi ja parillisiksi ja suodattaa sitten auttajasarakkeen arvon perusteella.

Oletetaan, että sinulla on alla esitetyn kaltainen tietojoukko, joka sisältää myyntitiedot jokaiselta myyntiedustajalta kahdelta alueelta (Yhdysvallat ja Kanada) ja haluat poistaa Kanadan tiedot.

Alla on vaiheet, joissa suodatetaan ensin ja poistetaan sitten kaikki muut rivit (joilla on Kanadan tiedot):

1. Kirjoita teksti viimeisen sarakeotsikon vieressä olevaan soluun HelperColumn (tai mikä tahansa otsikkoteksti, jonka haluat auttajan sarakkeessa olevan)
2. Kirjoita auttajasarakkeen otsikon alla olevaan soluun seuraava kaava: = ISEVEN (ROW ()). Kopioi tämä kaava kaikille soluille. Tämä kaava palauttaa TOSI kaikille parillisille riveille ja EPÄTOSI kaikille ODD -riveille
3. Valitse koko tietojoukko (mukaan lukien solut, joihin annoimme kaavan yllä olevassa vaiheessa).
4. Napsauta Data -välilehteä
5. Napsauta Suodatin -kuvaketta. Tämä käyttää suodatinta kaikkiin tietojoukon otsikoihin
6. Napsauta Suodatin -kuvaketta HelperColumn -solussa.
7. Poista TOSI -vaihtoehdon valinta (joten vain EPÄTOSI -vaihtoehto on valittu)
8. Napsauta OK. Tämä suodattaa tiedot ja näyttää vain ne tietueet, joissa HelperColumn -arvo on EPÄTOSI.
9. Valitse kaikki suodatetut solut auttajasarakkeesta (otsikkoa lukuun ottamatta)
10. Napsauta hiiren kakkospainikkeella mitä tahansa valittuja soluja ja napsauta Poista rivi
11. Napsauta avautuvassa valintaikkunassa OK. Tämä poistaa kaikki näkyvät tietueet ja näet vain otsikkorivin.
12. Napsauta Tiedot -välilehteä ja napsauta sitten Suodatin -kuvaketta. Tämä poistaa suodattimen ja näet kaikki jäljellä olevat tietueet.

Yllä olevat vaiheet suodattavat tietojoukon joka toinen rivi ja poistavat sitten nämä rivit.

Älä huolehdi auttajasarakkeen arvoista tässä vaiheessa. Tuloksena olevissa tiedoissa on vain Yhdysvaltojen rivit ja kaikki Kanadan rivit poistetaan. Voit poistaa auttajasarakkeen nyt.

Jos haluat poistaa joka toinen rivi ensimmäisestä rivistä alkaen, valitse TOSI -vaihtoehto vaiheessa 7 ja poista valinta EPÄTOSI -vaihtoehdosta.

Huomautus: Kun poistat rivit Excelistä yllä olevalla menetelmällä, se poistaa myös kaikki tiedot, joita sinulla saattaa olla koko aineistossa (lukuun ottamatta tietojoukossa olevaa). Kun käytät tätä menetelmää, varmista, että poistettavan tietojoukon vasemmalla ja oikealla puolella ei ole mitään.

Vaikka yllä oleva menetelmä on loistava, sillä on kaksi haittaa:

1. Sinun on lisättävä uusi sarake ( HelperColumn yllä olevassa esimerkissämme)
2. Se voi viedä aikaa, jos joudut poistamaan vaihtoehtoisia rivejä

Aiheeseen liittyvä opetusohjelma: Rivien poistaminen solun arvon (tai ehdon) perusteella Excelissä

Poista joka n. Rivi suodattamalla tietojoukko (käyttämällä kaavaa)

Yllä olevassa menetelmässä näytin sinulle, miten voit poistaa kaikki muut rivit (vaihtoehtoinen rivi) Excelissä.

Voit myös käyttää samaa logiikkaa poistamaan joka kolmas tai neljäs rivi Excelissä.

Oletetaan, että sinulla on alla näkyvä tietojoukko ja haluat poistaa kaikki joka kolmas rivi.

Jokaisen kolmannen rivin poistamisvaiheet ovat melkein samat kuin yllä olevassa osassa (vaihtoehtoisten rivien poistaminen). Ainoa ero on vaiheessa 2 käytetyssä kaavassa.

Alla on vaiheet tämän tekemiseen:

1. Kirjoita teksti viimeisen sarakeotsikon vieressä olevaan soluun HelperColumn (tai mikä tahansa otsikkoteksti, jonka haluat auttajan sarakkeessa olevan)
2. Kirjoita auttajasarakkeen otsikon alla olevaan soluun seuraava kaava: = MOD (RIVI (), 3) = 1. Tämä kaava palauttaa TOSI joka kolmannelle riville ja EPÄTOSI jokaiselle riville.
3. Valitse koko tietojoukko (mukaan lukien solut, joihin annoimme kaavan yllä olevassa vaiheessa).
4. Napsauta Data -välilehteä
5. Napsauta Suodatin -kuvaketta. Tämä käyttää suodatinta kaikkiin tietojoukon otsikoihin
6. Napsauta Suodatin -kuvaketta HelperColumn -solussa.
7. Poista TOSI -vaihtoehdon valinta (joten vain EPÄTOSI -vaihtoehto on valittu)
8. Napsauta OK. Tämä suodattaa tiedot ja näyttää vain ne tietueet, joissa HelperColumn -arvo on EPÄTOSI.
9. Valitse kaikki solut avustaja -sarakkeesta
10. Napsauta hiiren kakkospainikkeella mitä tahansa valittuja soluja ja napsauta Poista rivi
11. Napsauta avautuvassa valintaikkunassa OK. Tämä poistaa kaikki näkyvät tietueet ja näet vasta nyt otsikkorivin.
12. Napsauta Tiedot -välilehteä ja napsauta sitten Suodatin -kuvaketta. Tämä poistaa suodattimen ja näet kaikki jäljellä olevat tietueet.

Yllä olevat vaiheet poistaisivat joka kolmannen rivin tietojoukosta ja saisit tuloksena olevat tiedot alla esitetyllä tavalla.

Älä huolehdi auttajasarakkeen arvoista tässä vaiheessa. Voit poistaa auttajasarakkeen nyt.

Vaiheessa 2 käytetty kaava käyttää MOD -toimintoa - joka antaa loput, kun yksi numero jaetaan toisella. Tässä olen käyttänyt ROW -funktiota rivinumeron saamiseksi ja se on jaettu kolmella (koska haluamme poistaa joka kolmas rivi).

Koska tietojoukko alkaa toisesta rivistä eteenpäin (eli rivi #2 sisältää ensimmäisen tietueen), käytän seuraavaa kaavaa:= MOD (RIVI (), 3) = 1

Vertaan sitä yhteen ja joka kolmas rivi, MOD -kaava antaa loput 1: ksi.

Voit säätää kaavaa vastaavasti. Jos esimerkiksi tietojoukon ensimmäinen tietue alkaa kolmannesta rivistä, kaava olisi = MOD (RIVI (), 3) = 2

Poista automaattisesti joka toinen rivi (tai n. Rivi) VBA -makron avulla (nopea menetelmä)

Jos joudut poistamaan joka toinen rivi (tai joka n. Rivi) melko usein, voit käyttää VBA -koodia ja saada sen saataville Pikatyökalupalkista. Näin voit poistaa vaihtoehtoiset rivit nopeasti yhdellä napsautuksella.

Alla on koodi, joka pyytää sinua ensin valitsemaan alueen, josta haluat poistaa vaihtoehtoiset rivit, ja poista sitten valitun tietojoukon joka toinen rivi.

Sub Delete_Every_Other_Row () Dim Rng as Range Set Rng = Application.InputBox ("Valitse alue (pois lukien otsikot)", "Alueen valinta", tyyppi: = 8) I = Rng.Rows.Count To 1 Step -2 If i Mod 2 = 0 Sitten Rng. Rivit (i) Poista loppu, jos seuraava i Lopeta ala

Kun suoritat yllä olevan koodin, se pyytää sinua ensin valitsemaan solualue. Kun olet tehnyt valinnan, se käy läpi jokaisen rivin ja poistaa joka toinen rivi.

Jos haluat sen sijaan poistaa joka kolmas rivi, voit käyttää alla olevaa koodia:

Sub Delete_Every_Third_Row () Dim Rng as Range Set Rng = Application.InputBox ("Valitse alue (pois lukien otsikot)", "Alueen valinta", tyyppi: = 8) I = Rng.Rows.Count to 1 Step -3 If i Mod 3 = 0 Sitten Rng Rivit (i) Poista loppu, jos seuraava i Lopeta ala

Minne tämä VBA -makrokoodi laitetaan?

Sinun on sijoitettava tämä koodi tavalliseen moduuliin Excelin VB -editorissa.

Alla on ohjeet Vb -editorin avaamiseen, moduulin lisäämiseen ja koodin asettamiseen siihen:

1. Kopioi yllä oleva VBA -koodi.
2. Siirry Kehittäjä -välilehdelle.
3. Napsauta Visual Basic.
4. Napsauta hiiren kakkospainikkeella mitä tahansa työkirjan objekteja VB-editorissa.
5. Siirry Lisää -kohtaan ja napsauta Moduuli.
6. Liitä moduuliin yllä oleva VBA -koodi.
7. Sulje VB Editor.

Kun olet saanut koodin VB Editorissa, voit suorittaa koodin seuraavilla tavoilla:

• Suorita makro VB Editorista (napsauttamalla vihreää toistopainiketta VB Editor -työkalurivillä)
• Aseta kohdistin koodin mille tahansa riville ja käytä F5 -näppäintä
• Määrittämällä makron painikkeelle/muodolle
• Lisäämällä makron pikakäyttötyökaluriville

Tässä on yksityiskohtainen opetusohjelma makron suorittamisesta Excelissä.

Jos sinun on tehtävä tämä usein, voit harkita VBA -koodin lisäämistä henkilökohtaiseen makro -työkirjaan. Näin se on aina käytettävissäsi kaikissa työkirjoissa.

Kun työkirjassa on VBA-koodi, sinun on tallennettava se arkistoituina makroihin (.XLSM-laajennuksella)

Huomautus: Koska kaikki VBA-koodin tekemät muutokset ovat peruuttamattomia, on parasta ensin tehdä varmuuskopio työkirjasta/laskentataulukosta ja suorittaa sitten tämä koodi.

Poista kaikki muut sarakkeet (tai joka n. Sarake)

Jokaisen vaihtoehtoisen rivin tai joka kolmannen/neljännen rivin poistaminen on helppoa, koska voit käyttää suodatinvaihtoehtoa. Sinun tarvitsee vain käyttää kaavaa, joka tunnistaa vaihtoehtoiset rivit (tai joka kolmas/neljäs rivi) ja suodattaa nämä rivit.

Valitettavasti tämä sama menetelmä ei toimi sarakkeiden kanssa - koska et voi suodattaa sarakkeita samalla tavalla kuin suodatat rivejä.

Joten jos joudut poistamaan kaikki muut sarakkeet (tai joka kolmas/neljäs/n. Sarake), sinun on oltava hieman luovempi.

Tässä osassa näytän sinulle kaksi tapaa, joilla voit poistaa kaikki muut Excel -sarakkeet (ja voit käyttää samaa menetelmää jokaisen kolmannen/neljännen/n: nnen sarakkeen poistamiseen, jos haluat).

Poista vaihtoehtoiset sarakkeet kaavojen ja lajittelumenetelmän avulla

Oletetaan, että sinulla on alla esitetyn kaltainen tietojoukko ja haluat poistaa kaikki muut sarakkeet (paitsi otsikkosarakkeen A)

Temppu tässä olisi tunnistaa vaihtoehtoiset sarakkeet kaavan avulla ja lajitella sitten sarakkeet kyseisen kaavan perusteella. Kun olet lajitellut sarakkeet yhdessä, voit valita ja poistaa tämän manuaalisesti.

Alla on vaiheet kaikkien muiden Excel -sarakkeiden poistamiseksi:

1. Lisää rivi otsikkorivin yläpuolelle (napsauta hiiren kakkospainikkeella mitä tahansa otsikon solua, napsauta Lisää ja valitse sitten Koko rivi -vaihtoehto)
2. Kirjoita seuraava kaava tietojoukon vasemmanpuoleisimman sarakkeen yläpuolella olevaan soluun ja kopioi kaikki solut: = MOD (COLUMN (), 2)
3. Muunna kaavan arvot numeroiksi. Voit tehdä tämän kopioimalla solut, napsauttamalla hiiren kakkospainikkeella ja siirtymällä kohtaan Liitä erikois-> Liitä arvot.
4. Valitse koko tietojoukko (lukuun ottamatta sarakkeen otsikoita). Tässä esimerkissä olen valinnut B1: G14 (ja EI sarake A)
5. Napsauta Data -välilehteä
6. Napsauta Lajittele -kuvaketta
7. Tee Lajittelu -valintaikkunassa seuraavat muutokset:
   • Napsauta "Asetukset" -painiketta ja napsauta avautuvassa valintaikkunassa "Lajittele vasemmalta oikealle" ja sitten OK
   • Valitse avattavasta Lajitteluperuste-valikosta rivi 1. Tällä rivillä on kaavan tulokset
   • Valitse avattavasta Tilaa-valikosta Pienin-Suurin.
8. Napsauta OK

Yllä olevat vaiheet lajittelevat kaikki sarakkeet ja yhdistävät kaikki vaihtoehtoiset sarakkeet yhteen paikkaan (lopussa).

Nyt voit valita kaikki nämä sarakkeet (joiden kaavan arvo on 1) ja poistaa ne.

Vaikka tämä ei ole paras ratkaisu, se silti tekee työnsä.

Jos haluat poistaa joka kolmas tai joka neljäs sarake, sinun on muutettava kaavaa vastaavasti.

Aiheeseen liittyvä opetusohjelma: Kuinka lajitella Excelissä (rivien, sarakkeiden, värien, päivämäärien ja numeroiden mukaan)

Vaihtoehtoisten sarakkeiden poistaminen VBA: n avulla

Toinen nopea tapa poistaa vaihtoehtoisia sarakkeita on käyttää alla olevaa VBA -koodia:

Sub Delete_Every_Other_Column () Dim Rng as Range Set Rng = Application.InputBox ("Valitse alue (pois lukien otsikot)", "Alueen valinta", tyyppi: = 8) I = Rng.Columns.Count to 1 Step -2 If i Mod 2 = 0 Sitten Rng. Sarakkeet (i). Poista loppu, jos seuraava i Lopeta ala

Yllä oleva koodi pyytää sinua valitsemaan solualueen, jossa on sarakkeet. Täällä sinun on valittava sarakkeet lukuun ottamatta otsikkoa.

Kun olet määrittänyt solualueen tiedoilla, se käyttää silmukkaa ja poistaa kaikki muut sarakkeet.

Jos haluat poistaa joka kolmannen sarakkeen, voit käyttää alla olevaa koodia (ja säädä vastaavasti n. Sarakkeen poistamiseksi)

Sub Delete_Every_Third_Column () Dim Rng Asetusalueena Rng = Application.InputBox ("Valitse alue (pois lukien otsikot)", "Alueen valinta", tyyppi: = 8) I = Rng.Columns.Count to 1 Step -3 If i Mod 3 = 0 Sitten Rng. Sarakkeet (i). Poista loppu, jos seuraava i Lopeta ala

Vaiheet tämän VBA -koodin sijoittamiseen ja käyttämiseen on kuvattu yllä olevassa osiossa - "Poista automaattisesti kaikki muut rivit (tai yhdeksäs rivi) VBA -makrolla (nopea menetelmä)"

Toivottavasti pidit tätä Excel -opetusohjelmaa hyödyllisenä.