Ta bort hela raden med hjälp av VBA – Excel Macro Example Code

Excel VBA-kod för att ta bort hela raden exempel kommer att hjälpa oss att ta bort rader i Excel-arbetsblad. Vi kan använda Delete-metoden för Rows för att ta bort hela raden. I det här exemplet kommer vi att se hur man tar bort hela raden i Excel-arbetsbladet med hjälp av VBA. Excel VBA makrokod för att ta bort hela rader makro bör fungera för alla versioner av Microsoft Excel 2003, Excel 2007, Excel 2010 och Excel 2013.

VBA-kod för att ta bort hela rader

Här är VBA ta bort hela rader makro Syntax och exempel VBA makrokod för att ta bort hela rader från excel arbetsblad. Detta kommer att hjälpa dig att veta hur man raderar hela raden från Excel-arbetsboken med hjälp av VBA.

VBA Delete Entire Row: Syntax

Följande är VBA delete entire row macro Syntax och exempel VBA-makrokommando för att ta bort hela raden från kalkylblad med hjälp av VBA. Vi använder Delete-metoden för Rows-objektet i arbetsbladet.


Rows(

).EntireRow.Delete


Här är Row Number det radnummer som ska raderas. Metoden EntireRow.Delete tar bort hela raden från Excel-kalkylbladet.

Ta bort hela raden med hjälp av VBA: Exempel

Med följande Excel VBA-makrokod för att ta bort hela raden från kalkylbladet. Detta VBA-makro för att radera hela raden raderar den rad som vi har nämnt i koden.

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

Instruktioner för att köra VBA-makrokoden för att radera hela raden

Följ nedanstående steg för att utföra VBA-makrot för att radera hela raden.
Steg 1: Öppna en befintlig Excel-arbetsbok.
Steg 2: Tryck Alt+F11 – Detta kommer att öppna VBA Editor.
Steg 3: Infoga en kodmodul från sedan infoga menyn.
Steg 4: Kopiera ovanstående kod och klistra in i kodmodulen som har infogats i ovanstående steg.
Steg 5: Ange några provdata i rad 1.
Steg 6: Tryck nu på F5 för att exekvera koden.

Nu kan du observera att hela rad 1 tas bort från arbetsbladet.

Förklarad VBA-kod för att ta bort hela raden:

Startprogram och underprocedur för att skriva VBA-kod för att ta bort hela raden från arket.
Sub sbVBS_To_Delete_EntireRow_C()

’Ange de rader som ska raderas och radera raderna med hjälp av metoden EntireRow.Delete.
Rows(1).EntireRow.Delete

’Avsluta subproceduren för att radera hela raden.
End Sub

Här ska Rows(1) tala om för Excel att radera rad 1 i arbetsbladet. Och Delete-metoden tar bort hela raden från arbetsbladet.

VBA för att ta bort hela raden i Excel :

Om du vill ta bort de första raderna i Excel kan du upprepa delete-kommandot flera gånger. Följande exempel på makrokod för VBA delete entire row visar dig hur du tar bort de tre första raderna i kalkylbladet.

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

I det här exemplet kan du se att delete-kommandot upprepas tre gånger. Det kommer först att radera den första raden, när vi raderar den första raden. Nästa rad blir (2nd Row) den första raden. Så om du raderar den första raden igen. Nästa rad (3rd Row) blir den första raden. Det betyder att vi har raderat de tre första raderna med hjälp av VBA.

VBA för att ta bort hela raden i Excel : VBA-kod förklaras

Här är förklaringen till VBA delete entire rowMacro för att ta bort de tre första raderna i Excel.

Startar proceduren för att skriva VBA-kommandon för att radera de första (3) raderna.
Sub sbVBS_To_Delete_FirstFewRows_in_Excel_C()

’Första raden raderas
Rows(1).EntireRow.Delete
’Nu blir andra raden den första raden- återigen raderar vi första raden.
Rows(1).EntireRow.Delete
’Nu blir tredje raden den första raden- återigen raderar delete kommandot första raden.
Rows(1).EntireRow.Delete
’Vi har raderat de tre första raderna och avslutar subproceduren här.
End Sub

VBA för att radera hela raden i Excel: Med hjälp av For Loop

Här är ett exempel på ett VBA-makro för att radera de första raderna med hjälp av For Loop. Detta kommer att radera de första 10 posterna med hjälp av 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 för att ta bort hela raden i Excel : Med hjälp av For Loop – Förklaring

Här är den detaljerade förklaringen av radera raden med hjälp av For loop i VBA.

Start av underproceduren för att skriva ett VBA-makro för att ta bort rader med hjälp av VBA for loop.
Sub sbVBS_To_Delete_EntireRow_For_Loop_C()
’Deklaration av variabeln iCntr för att lagra for loop-iterationerna.
Dim iCntr
’loopar genom raderna med hjälp av for-slingan, här anger step-angivelsen ökningen av iCntr.
For iCntr = 1 To 10 Step 1
’raderar den första raden.
Rows(1).EntireRow.Delete
Next
’Vi har raderat den första raden 10 gånger, vilket innebär att vi har raderat de första 10 raderna i Excel-ark med hjälp av for-slinga och VBA.
End Sub

VBA för att radera hela raden i Excel: Användning av Do while Loop

Här är exemplet på ett VBA-makro för att radera hela raden för att radera de första raderna med Do while Loop. Detta kommer att radera de första 10 posterna med hjälp av 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 för att ta bort hela raden i Excel : Användning med hjälp av Do while Loop – Förklaring

Här är förklaringen till ovanstående VBA ta bort hela raden Makro för att ta bort rader med hjälp av Do while loop.

Starta VBA-makrot för att ta bort rader med hjälp av do while loop.
Sub sbVBS_To_Delete_EntireRow_Do_while_Loop()
’Deklarera variabeln lagra den sista raden numret och använda den som räknare variabel.
Dim iCntr
’Tilldela den sista raden värdet till iCntr.
iCntr = 10 ’ Sista raden
’Med hjälp av do while-slingan raderar vi raderna från den sista (tionde) raden .
Do While iCntr >= 1
Rows(iCntr).EntireRow.Delete
iCntr = iCntr – 1
Loop
’avslutar subproceduren här.
End Sub

Här kan du se att vi loopar igenom raderna från sista till början. Detta kommer att vara den korrekta koden när vi raderar raderna från arbetsbladet. Radera alltid raden från sista till första.