VBA Poista rivi
Excelissä minkä tahansa rivin poistamiseksi meillä on pikavalinta CTRL +: n käytöstä - tai voimme valita rivin ja napsauttaa sitä hiiren oikealla painikkeella ja poistaa sen. Mutta VBA: ssa olemme tehneet sen kirjoittamalla sille koodin. Rivin poistamismenetelmä VBA: lla on ensin tunnistettava poistettava rivi ja sitten voimme poistaa sen. Tässä artikkelissa opitaan erilaisista kuvista rivin poistamisesta VBA: sta.
VBA: ssa Poista rivi -toimintoa käytetään joko rivisarjan tai yhden rivin poistamiseen tilanteesta riippuen. Samoin kuin Excel-taulukko, voimme käyttää makroja tai VBA: ta rivien poistamiseen Excel-taulukosta. Tämä auttaa, kun meillä on paljon tietoja emmekä voi tehdä sitä manuaalisesti.
Syntaksi rivin poistamiseen Excel VBA: ssa
Excel-rivin poistamisen syntaksi on kuten alla.
Worksheets.Rows (rivi #). Poista
Rivien poistamiseen VBA: lla on myös muita menetelmiä, kuten seuraavat.
Range ( ”Cell”). EntireRow.Delete
Mitä yllä oleva lausunto aikoo tehdä, se poistaa annetun rivin rivin. Jos kirjoitamme esimerkiksi Alue (“A1”). EntireRow.Delete, ensimmäinen rivi poistetaan, koska solu A1 kuuluu ensimmäiseen riviin.
Voimme myös poistaa Rivit (rivinumero) .poiston rivin poistamiseen.
Kuinka poistaa rivi Excelistä käyttämällä VBA: ta?
Alla on joitain esimerkkejä rivin poistamisesta Excelistä VBA: n avulla.
Voit ladata tämän VBA Delete Row Excel -mallin täältä - VBA Delete Row Excel TemplateVBA Poista rivi - esimerkki # 1
Anna rivien poistamisen käyttää ensimmäistä yksinkertaista tapaa. Esitän demonstrointia varten satunnaisarvon soluihin A1 ja B1. Katso sitä alla.
Haluan nähdä, jos käytän koko rivin yläpuolelle kirjoitettua koodia tai yksi solu.
Huomaa: Jotta Excel VBA : ta voidaan käyttää, kehittäjä-välilehti on oltava käytössä Asetukset-osion Tiedostot-välilehdessä.Poista seuraavat rivit excelissä noudattamalla seuraavia vaiheita VBA: lla.
Vaihe 1: Siirry kehittäjän välilehteen napsauttamalla Visual Basiciä avataksesi VBA Editorin.
Vaihe 2: Ilmoita koodisegmentissä alatoiminto aloittaaksesi koodin kirjoittamisen.
Koodi:
Alinäyte () Loppu alaosaan
Vaihe 3: Kirjoita nyt seuraava koodi rivin poistamiseksi.
Koodi:
Alinäyte () -alue ("A1"). EntireRow.Delete End Sub
Vaihe 4: Suorita tämä koodi napsauttamalla F5 tai Suorita-painiketta ja katso lähtö.
Kun olemme suorittaneet koodin, voimme nähdä, että sekä solun A1 että B1 arvot poistetaan, koska koko ensimmäinen rivi on poistettu.
VBA Poista rivi - esimerkki 2
Aikaisemmin ensimmäisessä esimerkissä olen poistanut vain yhden rivin. Entä jos meidän on poistettava useita rivejä. Esittelytarkoituksessa minulla on seuraavat tiedot alla esitetyllä tavalla,
Haluan poistaa kaikki viisi ensimmäistä riviä. Noudata alla olevia vaiheita poistaaksesi rivin Excelistä VBA: lla.
Vaihe 1: Avaa VBA-editori napsauttamalla kehittäjän välilehdellä Visual Basiciä.
Vaihe 2: Ilmoita koodissa alatoiminto aloittaaksesi koodin kirjoittamisen,
Koodi:
Alinäyte1 () Loppu alaosa
Vaihe 3: Kirjoita seuraava alla näkyvä koodi kaikkien viiden rivin poistamiseksi.
Koodi:
Alinäyte1 () -alue ("A1: B5"). EntireRow.Delete End Sub
Vaihe 4: Suorita tämä koodi napsauttamalla F5 tai Suorita-painiketta ja katso lähtö.
Kun suoritamme koodin, näemme seuraavan tuloksen. Koko data on poistettu tarkoittaa, että ensimmäiset viisi riviä on poistettu, koska meillä oli tietoja ensimmäisissä viidessä rivissä.
Huomautus: Asennan tiedot takaisin excel-näytönohjaimeen esittelyä varten.VBA Poista rivi - esimerkki 3
Nyt meillä on tietoja työntekijöistä ja heidän myynti tapahtuu kolmen kuukauden aikana tammi-, helmi- ja maaliskuussa. Yksi työntekijöistä oli lomalla eikä voinut tehdä myyntiä kolme kuukautta, joten solut ovat tyhjät hänelle. Tavoitteenamme on löytää tyhjä rivi ja poistaa se tiedoista.
Katso alla olevat tiedot,
Noudata alla olevia vaiheita poistaaksesi rivin Excelistä VBA: lla.
Vaihe 1: Avaa kehittäjä-välilehdellä Visual Basic ja avaa visuaalinen peruseditori.
Vaihe 2: Ilmoita alatoiminto koodi-ikkunassa aloittaaksesi koodin kirjoittamisen,
Koodi:
Alinäyte2 () Loppu alaosaan
Vaihe 3: Kirjoita seuraava koodi poistaaksesi rivit, joissa on tyhjät solut.
Koodi:
Alinäyte2 () -alue ("A1: D5"). Erikoiskennot (xlCellTypeBlanks) .EntireRow.Delete End Sub
SpecialCells on VBA: n toiminto, joka palauttaa meille kaikki solut, jotka vastaavat olosuhteitamme, ja olosuhteemme olivat tyhjät solut tällä alueella, joten käytimme xlCellTypeBlanks-toimintoa.
Vaihe 4: Suorita tämä koodi napsauttamalla F5 tai Suorita-painiketta ja katso lähtö.
Kun olet suorittanut koodin, voimme nähdä, että rivi, jossa oli tyhjät solut, on poistettu.
Huomaa: Aion lisätä tiedot takaisin excel-näyttelylehteen demonstrointia varten.VBA Poista rivi - esimerkki 4
On olemassa joitain muita samanlaisia menetelmiä rivien poistamiseksi, kuten rivien käyttö ja poistaminen. Esimerkiksi, meillä on tietoja rivillä 4 ja haluan poistaa rivin 4. Voimme antaa komennon excel poistamaan 4. rivin tiedoista. Katso alla oleva kuvakaappaus. Minulla on satunnaisia tietoja ensimmäisen solun rivillä 4.
Noudata alla olevia vaiheita poistaaksesi rivin Excelistä VBA: lla.
Vaihe 1: Avaa VBA Editor napsauttamalla Kehittäjän välilehdessä Visual Basiciä,
Vaihe 2: Aloita koodin kirjoittaminen alatoiminnosta.
Koodi:
Alinäyte3 () Loppu alaosaan
Vaihe 3: Kirjoita seuraava koodi poistaaksesi 4. rivin.
Koodi:
Alinäyte3 () -rivit (4) .Poista alaosa
Vaihe 4: Suorita tämä koodi napsauttamalla F5 tai Suorita-painiketta ja katso lähtö.
Tiedot on poistettu, koska neljäs rivi on poistettu itse.
VBA Poista rivi - esimerkki 5
Yllä olevassa koodissa olemme antaneet alueen tai rivin poistettavaksi itse koodissa. Otetaan nyt käyttäjän syötteet ja hän voi poistaa rivin annetusta tiedosta. Minulla on esimerkiksi tietoja työntekijöistä ja myynnistä kuten alla ja haluan käyttäjän valitsevan alueen siitä, kuinka paljon tietoa käyttäjä haluaa poistaa rivejä tyhjillä soluilla. Katso alla olevat tiedot,
Noudata alla olevia vaiheita poistaaksesi rivin Excelistä VBA: lla.
Vaihe 1: Avaa VB Editor napsauttamalla kehittäjän välilehdellä Visual Basiciä,
Vaihe 2: Ilmoita alatoiminto aloittaaksesi koodin kirjoittamisen.
Koodi:
Alinäyte4 () Loppu alaosaan
Vaihe 2: Ilmoita kaksi muuttujaa alueeksi, A ja B.
Koodi:
Alinäyte4 () Himmennä A asteikkona Dim B asteikkona loppuu alaosa
Vaihe 3: Jos haluat ottaa käyttäjän syötteitä poistettavan alueen valintaa varten, käytämme syöttöruutu-toimintoa ja tallennamme kyseisen tulon yllä määriteltyyn muuttujaan.
Koodi:
Alinäyte4 () Himmennetään A Asteikkona himmennetään B Asteikkona määritettynä = Sovellus.InputBox ("Valitse data", "Näytemakro", tyyppi: = 8) Lopeta alaosa
Vaihe 4: Aseta B = A, jotta käyttäjän syöttämät tiedot voidaan tallentaa alueelle B.
Koodi:
Alinäyte4 () Himmennetään A Asteikkona himmennetään B Asteikkona asetetaan A = Sovellus.InputBox ("Valitse data", "Näytemakro", Tyyppi: = 8) Aseta B = A Loppuosa
Vaihe 5: Poistamme nyt tiedot, joissa on tyhjiä soluja käyttäjän valitsemasta alueesta.
Koodi:
Alinäyte4 () Himmennetään A Asteikkona himmennetään B Asteikkona asetetaan A = Application.InputBox ("Valitse data", "Sample Macro", tyyppi: = 8) Aseta B = A A.SpecialCells (xlCellTypeBlanks) .EntireRow.Delete End Sub
Vaihe 6: Suorita nyt koodi mukana toimitetulla suorituspainikkeella.
Vaihe 6: Syöttöruutu tulee näkyviin.
Vaihe 7: Valitse alue esimerkistä A1: D8. Paina OK nähdäksesi tulos.
Tiedot, joissa oli tyhjiä soluja, on poistettu.
Muistettavat asiat
Poista rivi Excel VBA: ssa on muistettava muutamia asioita:
- Voimme poistaa rivin yhden solun perusteella.
- Voimme poistaa useita rivejä antamalla solualueen.
- Voimme myös poistaa rivejä ottamalla syötteitä käyttäjältä.
Suositellut artikkelit
Tämä on opas VBA Delete Row -sivulle. Tässä keskustelimme siitä, kuinka poistaa rivi Excel VBA: ssa, sekä käytännön esimerkkejä ja ladattavaa excel-mallia. Voit myös käydä läpi muiden ehdottamiemme artikkeleidemme -
- Kuinka käyttää korvaavaa toimintoa VBA: ssa?
- Excel Poista rivin pikakuvake
- VBA-tapaus | Excel-temppuja
- Excel-lisäysrivin pikakuvake
- Kuinka summata useita rivejä Excelissä?