Poista koko rivi VBA: n avulla – Excel-makro esimerkkikoodi

Excel VBA-koodi Poista koko rivi -esimerkki auttaa meitä poistamaan rivejä Excel-taulukosta. Voimme käyttää rivien Delete-metodia poistaaksemme koko rivin. Tässä esimerkissä näemme, miten voimme poistaa koko rivin Excel-taulukosta VBA:n avulla. Excel VBA -makrokoodin koko rivien poistamiseen tarkoitetun makron pitäisi toimia kaikissa Microsoft Excel 2003-, Excel 2007-, Excel 2010- ja Excel 2013 -versioissa.

VBA-koodi koko rivin poistamiseen

Tässä on VBA:n koko rivin poistamisen makro Syntaksi ja esimerkki VBA-makrokoodi koko rivin poistamiseen Excel-työskentelytaulukosta. Tämä auttaa sinua tietämään, miten poistaa koko rivi Excel-työkirjasta VBA: n avulla.

VBA Poista koko rivi: Syntaksi

Seuraavassa on VBA Poista koko rivi -makro Syntaksi ja esimerkki VBA-makrokomento Poista koko rivi työarkista VBA:n avulla. Käytämme työarkin Rows-objektin Delete-metodia.


Rows(

).EntireRow.Delete


Tässä Row Number on poistettavan rivin numero. Ja EntireRow.Delete-metodi poistaa koko rivin Excel-taulukosta.

Poista koko rivi VBA:n avulla: Esimerkkejä

Seuraavalla Excel VBA Poista koko rivi -makrokoodilla poistetaan koko rivi laskentataulukosta. Tämä VBA Poista koko rivi -makro poistaa rivin, jonka olemme maininneet koodissa.

Sub sbVBS_To_Delete_EntireRow () Rows(1).EntireRow.DeleteEnd Sub

Ohjeita VBA-makrokoodin suorittamiseen koko rivin poistamiseksi

Seuraa alla olevia ohjeita VBA Poista koko rivi -makron suorittamiseksi.
Vaihe 1: Avaa mikä tahansa olemassa oleva Excel-työkirja.
Vaihe 2: Paina Alt+F11 – Tämä avaa VBA-editorin.
Vaihe 3: Lisää koodimoduuli sitten Lisää-valikosta.
Vaihe 4: Kopioi yllä oleva koodi ja liitä koodimoduuliin, joka on lisätty edellä olevassa vaiheessa.
Vaihe 5: Syötä joitakin esimerkkitietoja riville 1.
Vaihe 6: Paina nyt F5 painiketta koodin suorittamiseksi.

Nyt voit havaita, että koko rivi 1 on poistettu laskentataulukosta.

Esitetty VBA-koodi koko rivin poistamiseksi:

Aloitetaan ohjelma ja aliproseduuri VBA-koodin kirjoittamiseksi koko rivin poistamiseksi laskentataulukosta.
Sub sbVBS_To_Delete_EntireRow_C()

’Määritellään poistettavat rivit ja poistetaan rivit EntireRow.Delete -menetelmällä.
Rows(1).EntireRow.Delete

’Lopetetaan aliproseduuri kokonaisen rivin poistamiseksi.
End Sub

Tässä Rows(1):llä kerrotaan excelille, että se haluaa poistaa rivin 1 taulukkolehdestä. Ja Delete-metodi poistaa koko rivin laskentataulukosta.

VBA poistaa koko rivin Excelistä :

Jos haluat poistaa Excelistä muutaman ensimmäisen rivin, voit toistaa delete-komennon useita kertoja. Seuraavassa VBA poista koko rivi -makrokoodiesimerkissä näytetään, miten poistetaan kolme ensimmäistä riviä työarkista.

Sub sbVBS_To_Delete_FirstFewRows_in_Excel() Rows(1).EntireRow.Delete Rows(1).EntireRow.Delete Rows(1).EntireRow.DeleteEnd Sub

Tässä esimerkissä näet, että poistokomento toistetaan kolme kertaa. Se poistaa ensin ensimmäisen rivin, kun poistamme ensimmäisen rivin. Seuraavasta rivistä tulee (2. rivi) ensimmäinen rivi. Joten jos poistat ensimmäisen rivin uudelleen. Seuraavasta rivistä (3rd Row) tulee ensimmäinen rivi. Tämä tarkoittaa, että olemme poistaneet kolme ensimmäistä riviä VBA:n avulla.

VBA poistaa koko rivin Excelissä : VBA-koodi selitetty

Tässä on selitys VBA:n Poista koko riviMakro poistaa kolme ensimmäistä riviä Excelissä.

Aloitetaan menettely VBA-komentojen kirjoittamiseksi muutaman (3) ensimmäisen rivin poistamiseksi.
Sub sbVBS_To_Delete_FirstFewRows_in_Excel_C()

’Ensimmäinen rivi poistetaan
Rows(1).EntireRow.Delete
’Nyt Toisesta rivistä tulee ensimmäinen rivi- taas poistetaan ensimmäinen rivi.
Rows(1).EntireRow.Delete
’Nyt Kolmannesta rivistä tulee ensimmäinen rivi- taas poistokomento poistaa ensimmäisen rivin.
Rows(1).EntireRow.Delete
’Olemme poistaneet 3 ensimmäistä riviä ja lopetamme aliproseduurin tähän.
End Sub

VBA koko rivin poistamiseksi Excelissä : For-silmukan käyttäminen

Tässä on esimerkki VBA-makro muutaman ensimmäisen rivin poistamiseksi For-silmukan avulla. Tämä poistaa 10 ensimmäistä tietuetta käyttämällä For-silmukkaa VBA:ssa.

Sub sbVBS_To_Delete_EntireRow_For_Loop()Dim iCntr For iCntr = 1 To 10 Step 1 Rows(1).EntireRow.Delete NextEnd Sub

VBA poistaa koko rivin Excelissä : käyttämällä For-silmukkaa – selitys

Tässä on yksityiskohtainen selitys rivin poistamisesta käyttämällä For-silmukkaa VBA:ssa.

Aloitetaan aliproseduuri, jolla kirjoitetaan VBA-makro rivien poistamiseksi VBA:n for-silmukan avulla.
Sub sbVBS_To_Delete_EntireRow_For_Loop_C()
’Muuttujan iCntr julistaminen for-silmukan iteraatioiden tallentamista varten.
Dim iCntr
’käydään läpi rivit for-silmukan avulla, tässä step-lause ilmoittaa iCntr:n lisäyksen.
For iCntr = 1 To 10 Step 1
’poistetaan ensimmäinen rivi.
Rows(1).EntireRow.Delete
Next
’Olemme poistaneet ensimmäisen rivin 10 kertaa, eli olemme poistaneet 10 ensimmäistä riviä Excel-taulukosta for-silmukan ja VBA:n avulla.
End Sub

VBA koko rivin poistamiseksi Excelissä : Do while-silmukan käyttäminen

Tässä on esimerkki VBA:n koko rivin poisto makro, jolla voidaan poistaa ensimmäiset rivit Do while-silmukan avulla. Tämä poistaa 10 ensimmäistä tietuetta käyttämällä For-silmukkaa VBA:ssa.

Sub sbVBS_To_Delete_EntireRow_Do_while_Loop()Dim iCntriCntr = 10 ' Last row Do While iCntr >= 1 Rows(iCntr).EntireRow.Delete iCntr = iCntr - 1 LoopEnd Sub

VBA to Delete Entire Row in Excel : Using Using Using Do while Loop – Explanation

Here is the explanation to the above VBA delete whole row Macro to delete Rows using Do while loop.

Aloitetaan VBA-makro rivien poistamiseksi Do while-silmukan avulla.
Sub sbVBS_To_Delete_EntireRow_Do_while_Loop()
’Muuttujan julistaminen tallentaa viimeisen rivin numeron ja käyttää sitä laskurimuuttujana.
Dim iCntr
’viimeisen rivin arvon osoittaminen iCntr:lle.
iCntr = 10 ’ Viimeinen rivi
’Käyttämällä do while-silmukkaa poistamme rivit viimeisestä (10.) rivistä .
Do While iCntr >= 1
Rows(iCntr).EntireRow.Delete
iCntr = iCntr – 1
Loop
’lopetamme aliproseduurin tähän.
End Sub

Tässä voit havaita, että käymme silmukassa läpi rivit viimeisestä rivistä alkuun. Tämä on tarkka koodi, kun poistetaan rivejä laskentataulukosta. Poista rivi aina viimeisestä ensimmäiseen.