Sadržaj
Ako tražite neke od najlakših načina za brisanje retka pomoću VBA , onda ste na pravom mjestu.
Uronimo u glavni članak.
Preuzmite radnu knjigu
VBA Delete Row.xlsm
14 načina za brisanje retka pomoću VBA
Ovdje imam tri podatka tablice za prikaz načina brisanja redaka pomoću VBA . Prva tablica sadrži neke Proizvode tvrtke i njihove Veličine , Cijene .
Druga jedan ima neke šifre proizvoda i njihove odgovarajuće veličine proizvoda i cijene
a zadnji sadrži neki Nazivi projekata i njihovi odgovarajući Datumi početka i Troškovi .
Za izradu članka, ste koristili inačicu Microsoft Excel 365 , možete koristiti bilo koju drugu inačicu kako vam odgovara.
Metoda-1: Izbrišite jedan red pomoću VBA
Recimo, vi želite izbrisati redak koji sadrži Proizvod Cipela 1, a za brisanje ovog jednog retka možete slijediti ovu metodu.
Korak-01 :
➤Idite na Razvojni programer Kartica>> Visual Basic Opcija
Tada će se Visual Basic Editor otvoriti.
➤Idite na Insert Tab>> Module Option
Nakon toga, Modul će biti kreiran.
Korak-02 :
➤Napiši fol niski kod
7638
Ovdje, “Single” jeunija višestrukih raspona koji odgovaraju ćelijama koje imaju datum 11/12/2021 , a na kraju će rasponi biti izbrisani.
➤Pritisnite F5
Rezultat :
Nakon toga ćete izbrisati retke koji imaju određeni datum 11/12/2021 .
Povezani sadržaj: Excel VBA za brisanje redaka s određenim podacima (9 primjera)
Vježbajte Odjeljak
Za samostalno vježbanje osigurali smo odjeljak Vježbanje kao ispod na listu pod nazivom Vježbanje . Učinite to sami.
Zaključak
U ovom sam članku pokušao pokriti najlakše načine za učinkovito korištenje VBA za brisanje redaka. Nadam se da će vam biti od koristi. Ako imate prijedloge ili pitanja, slobodno ih podijelite u odjeljku za komentare.
naziv radnog lista, a Reci(7)odabrat će broj retka..EntireRow.Delete izbrisat će cijeli redak 7.
➤Pritisnite F5
Rezultat :
Na ovaj način ćete izbrisati red koji sadrži Proizvod naziv Cipela 1 .
Pročitajte više: Kako izbrisati retke u Excelu: 7 Metode
Metoda-2: Brisanje više redaka pomoću VBA
Ako želite izbrisati više redaka poput redaka koji sadrže Proizvod imena Cipela1 , Cipela2, i Cipela3 , tada možete slijediti ovaj VBA kod.
Korak-01 :
➤Slijedite Korak-01 od Metode-1
6091
Ovdje, brojevi redaka 13, 10 , i 7 bit će izbrisani i u serijskom pisanju brojeva redaka koje morate napisati od zadnjeg broja retka do broja prvog retka kao što je ovaj kod.
U suprotnom, nakon brisanja prvog retka kao što je redak 7 preostali redovi ispod ovog retka pomaknut će se jedan red prema gore i stoga će red 10 biti red 9, a red 13 bit će red 12. Za ovu re ason, nećete moći izbrisati točne retke.
➤Pritisnite F5
Rezultat :
Tada ćete izbrisati retke koji sadrže nazive Proizvoda Cipela 1 , Cipela2, i Cipela3 .
Pročitajte više: Kako izbrisati više redaka u programu Excel (3 metode)
Metoda-3 : Brisanje retka odabirom
Ovdje ću pokazati način brisanja retkau odnosu na aktivnu ćeliju tog retka.
Korak-01 :
➤Slijedite Korak-01 od Metode-1
4728
Izbrisat će red koji ima aktivnu ćeliju.
➤Spremite kod.
Korak-02 :
➤Odaberite bilo koju ćeliju retka koju želite izbrisati (ovdje sam odabrao ćeliju B7 )
➤Idite na Developer Tab>> Macros Option
Nakon toga, Macro Čarobnjak će se otvoriti.
➤Odaberite Naziv makronaredbe dltrow3 i pritisnite Pokreni
Rezultat :
Nakon toga ćete izbrisati redak koji sadrži naziv Proizvoda Cipela 1 .
Metoda-4: Brisanje svih redaka u odabiru
Za brisanje svih redaka u odabiru možete slijediti ovu metodu.
Korak-01 :
➤Slijedite Korak-01 od Metode-1
6779
It će izbrisati sve retke odabira.
➤Spremite kod.
Korak-02 :
➤Odaberite raspon redaka koje želite izbrisati (Ovdje sam odabrao raspon B7:D9 )
➤Idite na Razvojni programer Kartica>> Makronaredbe Opcija
Nakon toga otvorit će se Makro Čarobnjak.
➤Odaberite Naziv makronaredbe dltrow4 i pritisnite Pokreni
Rezultat :
Tada ćete izbrisati retke koji sadrže Nazivi proizvoda Cipela 1 , Jakna1, i Jacket2 .
Pročitajte više: Kako izbrisati odabrane retke u Excelu (8 pristupa)
Metoda-5: Brisanje retka ako je bilo koja ćelija prazna
Ovdje imam praznu ćeliju koja je B9 (uklonio sam vrijednost iz ove ćelije za ovo metoda), a koristeći VBA kod izbrisat ću red koji ima B9 ćeliju.
Korak-01 :
➤Slijedite Korak-01 od Metode-1
9832
Izbrisat će sve retke u rasponu “B5:D13” ima bilo koju praznu ćeliju.
➤Pritisnite F5
Rezultat :
Tada ćete moći izbrisati redak koji sadrži praznu ćeliju.
Pročitajte više: Kako ukloniti prazne retke u Excelu (11 metoda)
Metoda-6: Brisanje retka ako je cijeli red prazan
Ovdje imam praznu ćeliju koja je B9 (uklonio sam vrijednosti za ovu metodu), i prazan redak koji je redak 12 (uklonio sam vrijednosti za ovu metodu), i koristeći VBA kod i funkcija COUNTA Izbrisat ću red koji je prazan.
Korak-01 :
➤Slijedite Korak-01 od Metode-1
8389
“B5:D13” je raspon podataka i petlja FOR radit će za svaku ćeliju u ovaj raspon.
CountA(cell.EntireRow) vratit će broj ćelija koje nisu prazne i kada postane 0, red će biti izbrisan.
➤Pritisnite F5
Rezultat :
Nakon toga, moći ćete izbrisati prazan redak, ali neće izbrisati nijedan redak koji nema sve ćelije ovog retka su prazne.
Pročitajte više: Kako koristiti VBA za brisanje praznih redaka u Excelu
Metoda-7: Brisanje svakog n-tog reda
Možete izbrisati svaki n-ti red (u ovom slučaju svaki 3. red) slijedeći ovu metodu.
Korak-01 :
➤Slijedite Korak-01 od Metode-1
3765
“B5 :D13” je raspon podataka i rc vratit će ukupan broj retka ovog raspona koji je 9 .
Ovdje, FOR petlja će započeti od posljednjeg retka koji je rc ili 9 u ovom slučaju i završiti s prvim redom.
Korak -3 pomoći će izbrisati svaki 3. red u ovom rasponu.
➤Pritisnite F5
Rezultat :
Tada ćete izbrisati retke koji sadrže nazive Proizvoda Cipela 1 , Cipela2, i Cipela3 .
Pročitajte više: Kako izbrisati svaki n-ti R ow u Excelu (6 najlakših načina)
Slična čitanja:
- Kako izbrisati odabrane retke pomoću programa Excel VBA (korak- Smjernice po koraku)
- Izbrišite neiskorištene retke u Excelu (8 jednostavnih načina)
- Kako izbrisati skrivene retke u Excelu (3 metode)
- Izbrišite beskonačne retke u Excelu (5 jednostavnih načina)
- Kako izbrisati retke u Excelu koji traju vječno (4 jednostavnaNačini)
Metoda-8: Brisanje retka na temelju vrijednosti ćelije
U ovoj metodi izbrisat ću red koji ima određenu vrijednost Košulja 2 .
Korak-01 :
➤Slijedite Korak-01 od Metode- 1
3198
“B5:D13” je raspon podataka i petlja FOR radit će za svaku ćeliju u ovom rasponu.
Ako bilo koja ćelija u retku sadrži vrijednost “Košulja 2” tada će red biti izbrisan.
➤Pritisnite F5
Rezultat :
Na ovaj način ćete izbrisati red koji sadrži naziv Proizvoda Košulja 2 .
Pročitajte više: VBA makronaredba za brisanje retka ako ćelija sadrži vrijednost u Excelu (2 metode)
Metoda-9: Brisanje dupliciranih redaka
Ovdje imam dva retka s šifrom proizvoda 97375 pa želim izbrisati jedan od ovih redaka koji su označeni s crveni okvir ispod.
Korak-01 :
➤Slijedite Korak-01 od Metoda-1
6477
Ovdje, “B5:D13” je raspon podataka i Stupci:=1 ja i tražit će duplicirane vrijednosti samo u jednom stupcu koji je početni stupac Stupac B ali ako želite pretraživati i u drugim stupcima, možete koristiti ovaj broj prema svojim potrebama.
➤Pritisnite F5
Rezultat :
Nakon toga ćete moći izbrisati redak koji je sličan drugom retku.
Pročitajte više: Kako izbrisati duplicirane retke uExcel s VBA (8 učinkovitih načina)
Metoda-10: Brisanje redaka u tablici
Pretpostavimo da imate sljedeću tablicu čije je ime Tablica1 i sada želite izbrisati red broj 6 ove tablice. Da biste to učinili, možete slijediti ovu metodu.
Korak-01 :
➤Slijedite Korak-01 of Metoda-1
1279
Ovdje, “Table” je naziv lista, “Table1” je naziv tablice i 6 je broj retka ove tablice koju želite izbrisati.
➤Pritisnite F5
Rezultat :
Na ovaj način ćete izbrisati željeni red ove tablice.
Pročitajte više: Kako ukloniti duplikate redaka na temelju jednog stupca pomoću programa Excel VBA
Metoda-11: Brisanje vidljivih redaka nakon filtriranja
Ovdje imam tablicu podataka koja je filtrirana stupac Cijena za vrijednosti veće od 1.500,00$ i želim izbrisati sve vidljive retke nakon filtriranja.
Korak-01 :
➤Slijedite Korak-01 od Metode-1
2385
Ovdje, “B5: D13” je raspon podataka.
➤Pritisnite F5
Sada će svi vidljivi redovi nakon filtriranja biti izbrisani. Sada možete vratiti skrivene retke odabirom znaka Filter u stupcu Cijena .
➤Kliknite na Odaberi sve opciju
➤Pritisni OK
Rezultat :
Konačno ćete vratiti skrivene retketablicu podataka.
Pročitajte više: Kako filtrirati i brisati retke pomoću VBA u Excelu (2 metode)
Metoda-12: Brisanje retka na temelju zadnje aktivne ćelije
Ovdje, moja zadnja aktivna ćelija je ćelija B13 i želim je izbrisati sa zadnjom aktivnom ćelijom od sljedećeg tablica podataka.
Korak-01 :
➤Slijedite Korak-01 od Metode -1
9864
Ovdje, 2 znači Kolonu B na kojoj imam svoju aktivnu ćeliju, možete promijeniti broj prema svojim potrebama.
➤Pritisnite F5
Rezultat :
Na ovaj način ćete izbrisati svoj posljednji aktivni redak.
Pročitajte više: Excel VBA kod za brisanje redaka na temelju vrijednosti više ćelija (3 kriterija)
Metoda-13: Brisanje redaka koji imaju bilo koji niz
Pretpostavimo da želite izbrisati retke koji imaju bilo koji niz, a da biste to učinili, možete slijediti ovu metodu.
Korak-01 :
➤Slijedite Korak-01 od Metode-1
9797
Ovdje, “string” je naziv lista, broj prvog retka ovog raspona podataka je 5 , a broj početnog stupca je 2
Izjava With omogućuje vam da odredite objekt ili korisnički definirani tip jednom za cijeli niz naredbi. Izjava
On Error Resume Next navodi da, kada se dogodi pogreška u vremenu izvođenja, kontrola ide na naredbu koja slijedi nakon naredbe gdje javlja se pogreška.
LastRow i LastColumn vraćaju zadnji redak i stupac raspona podataka.
SpecialCells(xlCellTypeConstants, xlTextValues) odabrat će retke koji imaju bilo koju tekstualnu vrijednost u raspon.
➤Pritisnite F5
Rezultat :
Nakon toga ćete izbrišite retke koji sadrže bilo koji tekstualni niz.
Pročitajte više: Excel prečac za brisanje redaka (s dodatnim tehnikama)
Metoda-14: Brisanje retka na temelju datuma
Ovdje ću obrisati retke koji imaju poseban datum 11/12/2021 (mm/dd/gggg) u ovom metoda pomoću funkcije DATEVALUE .
Korak-01 :
➤Slijedite Korak- 01 od Metode-1
7897
Ovdje, “Datum” je naziv lista, broj prvog reda ovog raspona podataka je 5 , a broj stupca kriterija (koji stupac ima datume) je 3 .
Izjava With omogućuje vam da jednom odredite objekt ili korisnički definirani tip za cijeli niz izjava.
On Error Resume Next izjava specificira da, kada se dogodi pogreška u vremenu izvođenja, kontrola ide na naredbu koja slijedi naredbu u kojoj se pogreška pojavljuje.
LastRow vraća zadnji redak raspona podataka i ovdje, FOR petlja će započeti od posljednjeg retka koji je LastRow ili 6 u ovom slučaju, a završava s prvim redom.
DATEVALUE pretvorit će tekstualni datum u vrijednost.
Ovdje će Union vratiti
