Delete Entire Row using VBA – Excel Macro Example Code

Excel VBA code to Delete Entire Row example will help us to delete rows in excel worksheet. Putem utiliza metoda Delete (Ștergere) din Rows (Rânduri) pentru a șterge Entire Row (Rând întreg). În acest exemplu vom vedea cum să ștergem întregul rând în foaia de lucru Excel folosind VBA. Codul macro Excel VBA pentru ștergerea macroului de ștergere a rândurilor întregi ar trebui să funcționeze pentru toate versiunile Microsoft Excel 2003, Excel 2007, Excel 2010 și Excel 2013.

Codul VBA pentru ștergerea întregului rând

Iată macroul VBA de ștergere a întregului rând Sintaxa și exemplul de cod macro VBA pentru ștergerea întregului rând din foaia de lucru Excel. Acest lucru vă va ajuta să știți cum să ștergeți întregul rând din registrul de lucru Excel folosind VBA.

VBA Delete Entire Row: Syntax

În continuare este VBA delete entire row macro Syntax and sample VBA macro command to Delete Entire Row from worksheet using VBA. Folosim metoda Delete (Ștergere) a obiectului Rows (Rânduri) din foaia de lucru.


Rows(

).EntireRow.Delete


Aici Row Number (Numărul rândului) este numărul rândului pe care doriți să îl ștergeți. Iar metoda EntireRow.Delete va șterge întregul rând din foaia de calcul Excel.

Delete Entire Row using VBA: Examples

Codul macro Excel VBA delete entire row următor este pentru a șterge întregul rând din foaia de calcul. Acest macro VBA de ștergere a întregului rând va șterge rândul pe care l-am menționat în cod.

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

Instrucțiuni pentru a executa codul macro VBA de ștergere a întregului rând

Vă rugăm să urmați pașii de mai jos pentru a executa macro VBA de ștergere a întregului rând.
Pasul 1: Deschideți orice registru de lucru Excel existent.
Pasul 2: Apăsați Alt+F11 – Acest lucru va deschide Editorul VBA.
Pasul 3: Introduceți un modul de cod din meniul de inserare apoi.
Pasul 4: Copiați codul de mai sus și lipiți-l în modulul de cod care au inserat în pasul de mai sus.
Pasul 5: introduceți câteva date de probă în rândul 1.
Etapa 6: Acum apăsați F5 pentru a executa codul.

Acum puteți observa că întregul rând 1 este șters din foaia de lucru.

Cod VBA explicat pentru a șterge întregul rând:

Program de pornire și subprocedură pentru a scrie codul VBA pentru a șterge întregul rând din foaie.
Sub sbVBS_To_Delete_EntireRow_C()

‘Specificarea rândurilor de șters și ștergerea rândurilor folosind metoda EntireRow.Delete.
Rows(1).EntireRow.Delete

‘Încheierea subprocedurii pentru a șterge întregul rând.
End Sub

Aici Rows(1) este pentru a spune Excel să șteargă rândul 1 din foaia de lucru. Iar metoda Delete va șterge întregul rând din foaia de lucru.

VBA to Delete Entire Row in Excel :

Dacă doriți să ștergeți primele câteva rânduri din excel, puteți repeta comanda delete de mai multe ori. Următorul exemplu de cod macro VBA de ștergere a întregului rând vă va arăta cum să ștergeți primele 3 rânduri din foaia de calcul.

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

În acest exemplu, puteți vedea că comanda de ștergere este repetată de 3 ori. Aceasta va șterge mai întâi primul rând, atunci când vom șterge primul rând. Următorul rând devine (al doilea rând) primul rând. Deci, dacă ștergem din nou primul rând. Următorul rând (3rd Row) devine primul rând. Asta înseamnă că am șters primele trei rânduri folosind VBA.

VBA to Delete Entire Row in Excel : VBA code Explained

Iată explicația VBA delete entire rowMacro pentru ștergerea primelor trei rânduri în Excel.

Începeți procedura de scriere a comenzilor VBA pentru a șterge primele câteva (3) rânduri.
Sub sbVBS_To_Delete_FirstFewRows_in_Excel_C()

‘Primul rând se șterge
Rows(1).EntireRow.Delete
‘Now Second row becomes the first row- again we are deleting the first row.
Rows(1).EntireRow.Delete
‘Now Third row becomes the first row- again delete command is deleting the first row.
Rows(1).EntireRow.Delete
‘Am șters primele 3 rânduri și încheiem subprocedura aici.
End Sub

VBA to Delete Entire Row in Excel : Using For Loop

Iată un exemplu de macro VBA pentru a șterge primele câteva rânduri folosind For Loop. Aceasta va șterge primele 10 înregistrări folosind For loop în VBA.

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

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

Iată explicația detaliată a ștergerii rândului folosind For Loop în VBA.

Începeți subprocedura pentru a scrie macro VBA pentru a șterge rândurile folosind bucla for în VBA.
Sub sbVBS_To_Delete_EntireRow_For_Loop_C()
‘Declararea variabilei iCntr pentru a stoca iterațiile buclei for.
Dim iCntr
‘parcurgerea rândurilor folosind bucla for, aici declarația step indică incrementarea lui iCntr.
For iCntr = 1 To 10 Step 1
‘ștergerea primului rând.
Rows(1).EntireRow.Delete
Next
‘Am șters primul rând de 10 ori, ceea ce înseamnă că am șters primele 10 rânduri din foaia Excel folosind bucla for și VBA.
End Sub

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

Iată un exemplu de macro VBA de ștergere a întregului rând pentru a șterge primele câteva rânduri folosind bucla Do while. Aceasta va șterge primele 10 înregistrări folosind bucla For în 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 to Delete Entire Row in Excel : Using Using Do while Loop – Explanation

Iată explicația la macroul VBA delete entire row de mai sus pentru a șterge rândurile folosind bucla Do while.

Începem macro VBA pentru a șterge rândurile folosind buclă Do while.
Sub sbVBS_To_Delete_EntireRow_Do_while_Loop()
‘Declararea variabilei care stochează numărul ultimului rând și utilizarea acesteia ca variabilă de contor.
Dim iCntr
‘atribuirea valorii ultimului rând la iCntr.
iCntr = 10 ‘ Ultimul rând
‘Folosind bucla do while ștergem rândurile de la ultimul (al 10-lea) rând .
Do While iCntr >= 1
Rows(iCntr).EntireRow.Delete
iCntr = iCntr – 1
Loop
‘terminând aici subprocedura.
End Sub

Aici puteți observa că parcurgem în buclă rândurile de la ultimul la început. Acesta va fi codul exact în timpul ștergerii rândurilor din foaia de calcul. Întotdeauna ștergeți rândurile de la ultimul la primul rând.

.