Slet hele rækken ved hjælp af VBA – Excel Macro Example Code

Excel VBA-kode til Delete Entire Row eksempel vil hjælpe os med at slette rækker i Excel-regneark. Vi kan bruge Delete-metoden for Rows til at slette hele rækken. I dette eksempel vil vi se, hvordan vi sletter hele rækken i excel regneark ved hjælp af VBA. Excel VBA-makrokode til sletning af hele rækker makro bør fungere for alle versioner af Microsoft Excel 2003, Excel 2007, Excel 2010 og Excel 2013.

VBA-kode til at slette hele rækken

Her er VBA slette hele rækken makro Syntaks og eksempel VBA-makrokode til at slette hele rækken fra excel regneark. Dette vil hjælpe dig med at vide, hvordan du sletter hele rækken fra Excel-arbejdsmappen ved hjælp af VBA.

VBA Slet hele rækken: Syntaks

Det følgende er VBA slette hele rækken makro Syntaks og eksempel VBA makrokommando til at slette hele rækken fra regneark ved hjælp af VBA. Vi bruger Delete-metoden for Rows-objektet i regnearket.


Rows(

).EntireRow.Delete


Her Row Number er dit rækkenummer, der skal slettes. Og EntireRow.Delete-metoden vil slette hele rækken fra Excel-regnearket.

Slet hele rækken ved hjælp af VBA: Eksempler

Den følgende Excel VBA-slet hele rækken makrokode er at slette hele rækken fra regnearket. Denne VBA slet hele rækken makro vil slette den række, som vi har nævnt i koden.

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

Instruktioner til at køre VBA-makrokoden til at slette hele rækken

Følg nedenstående trin for at udføre VBA slet hele rækken makro.
Stræk 1: Åbn en eksisterende Excel-arbejdsbog.
Stræk 2: Tryk på Alt+F11 – Dette vil åbne VBA Editor.
Stræk 3: Indsæt et kodemodul fra derefter indsæt menuen.
Stræk 4: Kopier ovenstående kode og indsæt i kodemodulet, som har indsat i ovenstående trin.
Stræk 5: Indtast nogle eksempeldata i række 1.
Strg 6: Tryk nu på F5 for at udføre koden.

Nu kan du observere, at hele række 1 slettes fra regnearket.

Forklaret VBA-kode til at slette hele rækken:

Startprogram og underprocedure for at skrive VBA-kode til at slette hele rækken fra arket.
Sub sbVBS_To_Delete_EntireRow_C()

‘Angivelse af de rækker, der skal slettes, og sletning af rækkerne ved hjælp af EntireRow.Delete-metoden.
Rows(1).EntireRow.Delete

‘Afslutning af underproceduren for at slette hele rækken.
End Sub

Her skal Rows(1) fortælle excel, at række 1 i regnearket skal slettes. Og Delete-metoden sletter hele rækken fra regnearket.

VBA til at slette hele rækken i Excel :

Hvis du vil slette de første par rækker i excel, kan du gentage delete-kommandoen flere gange. Det følgende VBA-slet hele rækken makrokodeeksempel viser dig, hvordan du sletter de første 3 rækker i regnearket.

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

I dette eksempel kan du se, at slettekommandoen gentages 3 gange. Den vil først slette den første række, når vi sletter den første række. Den næste række bliver (2. række) den første række. Så hvis du sletter den første række igen. Den næste række (3rd Row) bliver den første række. Det betyder, at vi har slettet de første tre rækker ved hjælp af VBA.

VBA til at slette hele rækken i Excel : VBA-kode forklaret

Her er forklaringen på VBA slet hele rækkenMakro til at slette de første tre rækker i Excel.

Start proceduren for at skrive VBA-kommandoer til at slette de første par (3) rækker.
Sub sbVBS_To_Delete_FirstFewRows_in_Excel_C()

‘Første række slettes
Rows(1).EntireRow.Delete
‘Nu bliver anden række den første række- igen sletter vi den første række.
Rows(1).EntireRow.Delete
‘Nu bliver tredje række den første række- igen sletter slettekommandoen den første række.
Rows(1).EntireRow.Delete
‘Vi har slettet de første 3 rækker og afslutter underproceduren her.
End Sub

VBA til at slette hele rækken i Excel : Ved hjælp af For Loop

Her er et eksempel på en VBA-makro til at slette de første par rækker ved hjælp af For Loop. Dette vil slette de første 10 poster ved hjælp af For loop i VBA.

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

VBA til at slette hele rækken i Excel : Ved hjælp af For Loop – Forklaring

Her er den detaljerede forklaring på slet rækken ved hjælp af For loop i VBA.

Start af underproceduren for at skrive VBA-makro til at slette rækker ved hjælp af VBA for loop.
Sub sbVBS_To_Delete_EntireRow_For_Loop_C()
‘Deklaration af variablen iCntr til at gemme for loop-iterationerne.
Dim iCntr
‘sløjfe gennem rækkerne ved hjælp af for-loop, her angiver step-erklæringen iCntr-inkrementeringen.
For iCntr = 1 To 10 Step 1
‘sletning af den første række.
Rows(1).EntireRow.Delete
Next
‘Vi har slettet den første række 10 gange, det betyder, at vi har slettet de første 10 rækker i Excel-ark ved hjælp af for loop og VBA.
End Sub

VBA til at slette hele rækken i Excel: Brug af Do while Loop

Her er et eksempel VBA slette hele rækken makro til at slette de første par rækker ved hjælp af Do while Loop. Dette vil slette de første 10 poster ved hjælp af For loop i VBA.

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 til at slette hele rækken i Excel : Brug af Do while Loop – Forklaring

Her er forklaringen til ovenstående VBA slet hele rækken Makro til at slette rækker ved hjælp af Do while loop.

Start VBA-makroen til at slette rækker ved hjælp af do while loop.
Sub sbVBS_To_Delete_EntireRow_Do_while_Loop()
‘Deklarere variablen gemme den sidste række nummer og bruge den som tæller variabel.
Dim iCntr
‘Tildele den sidste række værdi til iCntr.
iCntr = 10 ‘ Sidste række
‘Ved hjælp af do while loop sletter vi rækkerne fra den sidste (10.) række .
Do While iCntr >= 1
Rows(iCntr).EntireRow.Delete
iCntr = iCntr – 1
Loop
‘slutter underproceduren her.
End Sub

Her kan du observere, at vi gennemløber rækkerne fra sidste til begyndelsen. Dette vil være den nøjagtige kode, mens vi sletter rækkerne fra regnearket. Slet altid rækken fra sidste til første.