VBA Șterge rândul
În Excel pentru a șterge orice rând, avem o scurtătură pentru a utiliza CTRL + - sau putem selecta rândul și faceți clic dreapta pe el și ștergeți-l. Dar în VBA am făcut-o scriind un cod pentru el. Metoda de ștergere a unui rând în VBA este mai întâi trebuie să identificăm ce rând să ștergem și apoi să îl ștergem. În acest articol, vom afla despre diferite ilustrații despre cum puteți șterge un rând în VBA.
În VBA, Șterge rând este folosit pentru a șterge fie un set de rânduri, fie un singur rând, în funcție de situații. Similar cu foaia de lucru excel, putem folosi macros sau VBA pentru a șterge rândurile dintr-o foaie de lucru excel. Acest lucru ajută atunci când multe date au la dispoziție și nu putem face acest lucru manual.
Sintaxa pentru a șterge rândul în Excel VBA
Sintaxa pentru a șterge un rând în excel este ca mai jos.
Worksheets.Rows (Rând #). Ștergere
Există, de asemenea, alte metode pentru a șterge rândurile folosind VBA, cum ar fi următoarele.
Range ( „Cell“). EntireRow.Delete
Ceea ce va face afirmația de mai sus este că va șterge rândul pentru rândul dat. De exemplu, dacă scriem Interval („A1”) .IntireRow.Delete, atunci primul rând va fi șters, deoarece celula A1 aparține primului rând.
De asemenea, putem folosi rânduri (rând_num) .delete pentru a șterge un rând.
Cum să ștergeți rândul în Excel folosind VBA?
Mai jos sunt câteva exemple despre cum puteți șterge un rând în excel folosind VBA.
Puteți descărca acest șablon VBA Ștergeți rândul Excel aici - Șablonul VBA Șterge rândul ExcelVBA Șterge rândul - Exemplul # 1
Permiteți utilizarea primei metode simple pentru a șterge rândurile. În scop demonstrativ, voi introduce o valoare aleatorie în celulele A1 și B1. Aruncați o privire mai jos.
Ce vreau să văd este dacă folosesc codul scris deasupra întregului rând vor fi șterse sau se va șterge o singură celulă.
Notă: Pentru a utiliza Excel VBA, trebuie să avem activată fila dezvoltatorului din fila Fișiere din secțiunea de opțiuni.Urmați pașii de mai jos pentru a șterge rândul în excel folosind VBA.
Pasul 1: Accesați fila dezvoltatorului, faceți clic pe Visual Basic pentru a deschide VBA Editor.
Pasul 2: În segmentul de cod declarați o sub-funcție pentru a începe să scrieți codul.
Cod:
Sub eșantion () End Sub
Pasul 3: Acum scrieți următorul cod pentru a șterge rândul.
Cod:
Sub Eșantion () Interval ("A1"). ÎntreRow.Delete Sub End
Pasul 4: Rulați acest cod apăsând butonul F5 sau Run și vedeți ieșirea.
Odată ce rulăm codul, putem vedea că valorile din celula A1 și B1 sunt eliminate, deoarece întregul rând a fost șters.
VBA Șterge rândul - Exemplul # 2
La începutul primului exemplu, am șters doar un singur rând. Dar ce se întâmplă dacă trebuie să ștergem mai multe rânduri. În scop demonstrativ, am următoarele date așa cum se arată mai jos,
Vreau să șterg toate primele cinci rânduri. Urmați pașii de mai jos pentru a șterge rândul în excel folosind VBA.
Pasul 1: în fila dezvoltatorului faceți clic pe Visual Basic pentru a deschide VBA Editor.
Pasul 2: În cod se declară o sub-funcție pentru a începe să scrie codul,
Cod:
Sub Eșantion1 () Final Sub
Pasul 3: Scrieți următorul cod afișat mai jos pentru a șterge cele cinci rânduri.
Cod:
Sub Eșantion1 () Interval ("A1: B5"). ÎntreRow.Delete Sub End
Pasul 4: Rulați acest cod apăsând butonul F5 sau Run și vedeți ieșirea.
Odată ce rulăm codul, vom vedea următorul rezultat, Toate datele au fost șterse înseamnă că primele cinci rânduri au fost șterse, deoarece am avut date în primele cinci rânduri.
Notă: Voi insera datele din foaia de eșantion excel pentru demonstrație.VBA Șterge rândul - Exemplul # 3
Acum avem date pentru angajați, iar vânzările lor se fac în trei luni ianuarie, februarie și martie. Unul dintre angajați a fost în concediu și nu a putut face vânzări timp de trei luni, astfel încât celulele sunt goale pentru el. Scopul nostru este să găsim acel rând necompletat și să îl ștergem din date.
Aruncați o privire la datele de mai jos,
Urmați pașii de mai jos pentru a șterge rândul în excel folosind VBA.
Pasul 1: din fila dezvoltatorului faceți clic pe Visual Basic pentru a deschide un editor vizual de bază.
Pasul 2: Declarați subfuncția din fereastra de cod pentru a începe să scrieți codul,
Cod:
Sub Eșantion2 () Final Sub
Pasul 3: Scrieți următorul cod pentru a șterge rândurile care au celule goale.
Cod:
Sub Sample2 () Interval ("A1: D5"). SpecialCells (xlCellTypeBlanks) .EntireRow.Delete End Sub
SpecialCells este o funcție în VBA care ne returnează toate celulele care se potrivesc condițiilor noastre, iar condiția noastră a fost celulele goale din intervalul respectiv, așa că am folosit o funcție xlCellTypeBlanks.
Pasul 4: Rulați acest cod apăsând butonul F5 sau Run și vedeți ieșirea.
Odată ce rulăm codul, putem vedea că rândul care avea celulele goale a fost șters.
Notă: Voi insera din nou datele în foaia de eșantion excel pentru demonstrație.VBA Șterge rândul - Exemplul # 4
Există câteva alte metode similare pentru a șterge rândurile, cum ar fi utilizarea rândurilor și a șterge funcția. De exemplu, avem date din rândul 4 și vreau să șterg rândul 4. Putem da o comandă excel pentru a șterge al 4- lea rând din date. Aruncați o privire la imaginea de mai jos Am date aleatorii la rândul 4 din prima celulă.
Urmați pașii de mai jos pentru a șterge rândul în excel folosind VBA.
Pasul 1: Deschideți editorul VBA făcând clic pe Visual Basic din fila Dezvoltatorului,
Pasul 2: Declarați subfuncția pentru a începe să scrieți codul.
Cod:
Sub Eșantion3 () Final Sub
Pasul 3: Scrieți următorul cod pentru a șterge al 4-lea rând.
Cod:
Sub Eșantion3 () Rânduri (4). Ștergeți Sub final
Pasul 4: Rulați acest cod apăsând butonul F5 sau Run și vedeți ieșirea.
Datele au fost șterse, deoarece al 4- lea rând a fost șters.
VBA Șterge rândul - Exemplul # 5
În codul de mai sus, am dat intervalul sau rândul pentru a șterge în cod. Acum să luăm intrare de la utilizator și el poate șterge rândul dintr-o dată dată. De exemplu, am date despre angajați și vânzările au făcut ca mai jos și vreau ca un utilizator să selecteze intervalul din câte date dorește să șterge rândurile cu celule goale. Aruncați o privire la datele de mai jos,
Urmați pașii de mai jos pentru a șterge rândul în excel folosind VBA.
Pasul 1: Deschideți VB Editor făcând clic pe Visual Basic din fila dezvoltatorului,
Pasul 2: Declarați o sub-funcție pentru a începe să scrieți codul.
Cod:
Sub Eșantion4 () Final Sub
Pasul 2: Declarați două variabile ca interval, A și B.
Cod:
Sub eșantion4 () Dim A ca rază Dim B Ca interval final sub
Pasul 3: Pentru a prelua intrarea de la utilizator pentru o selecție a intervalului de șters, vom folosi funcția casetei de intrare și vom salva acea intrare într-o variabilă definită mai sus.
Cod:
Sub Eșantion4 () Dim A Ca rază Dim B Ca set de intervale A = Application.InputBox ("Selectare date", "Macro eșantion", Tip: = 8) Final Sub
Pasul 4: Setați B = A astfel încât intrarea de la utilizator să poată fi stocată în intervalul B.
Cod:
Sub eșantion4 () Dim A ca rază Dim B Ca set de intervale A = Application.InputBox ("Select Data", "Macro de exemplu", tip: = 8) Set B = A Sub Sub
Pasul 5: Acum vom șterge datele care au celule goale din intervalul ales de utilizator.
Cod:
Sub eșantion4 () Dim A ca rază Dim B Ca rază Set A = Application.InputBox ("Selectare date", "Macro de eșantion", tip: = 8) Set B = A A.SpecialCells (xlCellTypeBlanks) .EntireRow.Delete End Sub
Pasul 6: Acum rulați codul din butonul de rulare furnizat.
Pasul 6: apare o casetă de intrare.
Pasul 7: Selectați intervalul de la A1: D8 în acest exemplu. Apăsați OK pentru a vedea rezultatul.
Datele care aveau celule goale au fost șterse.
Lucruri de amintit
Există câteva lucruri pe care trebuie să le amintim despre Ștergerea rândului în Excel VBA:
- Putem șterge rândul pe baza unei singure celule.
- Putem șterge mai multe rânduri oferind o gamă de celule.
- De asemenea, putem șterge rânduri luând intrări de la utilizator.
Articole recomandate
Acesta a fost un ghid pentru VBA Delete Row. Aici am discutat despre cum se șterge rândul în Excel VBA împreună cu exemple practice și șablon Excel descărcabil. De asemenea, puteți parcurge și alte articole sugerate -
- Cum se utilizează funcția Înlocuire în VBA?
- Comandă rapidă Excel Ștergeți rândul
- Cazul VBA | Trucuri Excel
- Comenzi rapide Introduceți rândul
- Cum să însumi mai multe rânduri în Excel?