Sadržaj
Ako tražite neke od najjednostavnijih načina za brisanje reda pomoću VBA , onda ste na pravom mjestu.
Uronimo u glavni članak.
Preuzmite radnu svesku
VBA Delete Row.xlsm
14 načina za brisanje reda koristeći VBA
Evo, imam tri podatka tabele za prikaz načina brisanja redova pomoću VBA . Prva tabela sadrži neke Proizvode kompanije i njihove Veličine , Cijene .
Druga jedan ima neke šifre proizvoda i njihove odgovarajuće veličine proizvoda i cijene
A posljednji sadrži neki Nazivi projekata i njihovi odgovarajući Datumi početka i Troškovi .
Za kreiranje članka, ja ste koristili verziju Microsoft Excel 365 , možete koristiti bilo koju drugu verziju kako vam odgovara.
Metoda 1: Izbrišite jedan red koristeći VBA
Recimo, vi želite izbrisati red koji sadrži Proizvod Choe 1, i da izbrišete ovaj pojedinačni red možete slijediti ovu metodu.
Korak-01 :
➤Idite na Programer Tab>> Visual Basic Opcija
Onda će se otvoriti Visual Basic Editor .
➤Idite na Insert Tab>> Module Opcija
Nakon toga, biće kreiran Modul .
Korak-02 :
➤Napiši fol niski kod
1785
Ovdje, “Single” jeujedinjenje više raspona koji odgovaraju ćelijama koje imaju datum 11/12/2021 , i konačno, rasponi će biti obrisani.
➤Pritisnite F5
Rezultat :
Nakon toga, obrisati ćete redove koji imaju određeni datum 12.11.2021 .
Povezani sadržaj: Excel VBA za brisanje redova sa specifičnim podacima (9 primjera)
Vježba Odjeljak
Za samostalno vježbanje obezbijedili smo odjeljak Vježbanje kao dolje na listu pod nazivom Vježbanje . Molim vas, učinite to sami.
Zaključak
U ovom članku pokušao sam pokriti najlakše načine za efikasno korištenje VBA za brisanje redova. Nadam se da će vam biti od koristi. Ako imate bilo kakvih prijedloga ili pitanja, slobodno ih podijelite u odjeljku za komentare.
naziv radnog lista, a Rows(7)će odabrati broj reda..EntireRow.Delete će izbrisati cijeli red 7.
➤Pritisnite F5
Rezultat :
Na ovaj način ćete izbrisati red koji sadrži Naziv proizvoda Choe 1 .
Pročitajte više: Kako izbrisati redove u Excelu: 7 Metode
Metoda-2: Izbrišite više redova koristeći VBA
Ako želite izbrisati više redova kao što su redovi koji sadrže Nazive proizvoda Choe1 , Shoe2, i Shoe3 , onda možete pratiti ovaj VBA kod.
Korak-01 :
➤Slijedite Korak-01 od Metoda-1
6223
Ovdje, brojevi redova 13, 10 , i 7 će biti obrisani i u pisanju serijski brojevi redova koje morate napisati od zadnjeg broja do prvog reda kao ovaj kod.
U suprotnom, nakon brisanja prvog reda kao što je red 7 preostale redovi ispod ovog reda će se pomeriti za jedan red gore i tako će red 10 biti red 9, a red 13 će biti red 12. Za ovo re tako, nećete moći izbrisati ispravne redove.
➤Pritisnite F5
Rezultat :
Zatim ćete izbrisati redove koji sadrže Proizvod imena Cipela 1 , Cipela2, i Cipela3 .
Pročitajte više: Kako izbrisati više redova u Excelu (3 metode)
Metod-3 : Brisanje reda odabirom
Ovdje ću pokazati način za brisanje redau odnosu na aktivnu ćeliju tog reda.
Korak-01 :
➤Slijedite Korak-01 od Metoda-1
7175
Izbrisat će red koji ima aktivnu ćeliju.
➤Sačuvaj kod.
Korak-02 :
➤Odaberite bilo koju ćeliju retka koju želite da izbrišete (Ovdje sam odabrao ćeliju B7 )
➤Idite na Programer Tab>> Makroi Opcija
Nakon toga, Makro Čarobnjak će se otvoriti.
➤Odaberite ime makroa dltrow3 i pritisnite Run
Rezultat :
Nakon toga ćete izbrisati red koji sadrži Proizvod naziv Cipela 1 .
Metod-4: Brisanje svih redova u selekciji
Za brisanje svih redova selekcije možete slijediti ovaj metod.
Korak-01 :
➤Slijedite Korak-01 od Metode-1
2639
It će izbrisati sve redove odabira.
➤Sačuvajte kod.
Korak-02 :
➤Izaberite opseg redova koje želite da izbrišete (Ovdje sam odabrao raspon B7:D9 )
➤Idi na Programer Tab>> Makroi Opcija
Nakon toga, otvorit će se Makro Čarobnjak.
➤Odaberite Naziv makroa dltrow4 i pritisnite Run
Rezultat :
Tada ćete obrisati redove koji sadrže Nazivi proizvoda cipela 1 , jakna1, i Jacket2 .
Pročitajte više: Kako izbrisati odabrane redove u Excelu (8 pristupa)
Metod-5: Brisanje reda ako je bilo koja ćelija prazna
Ovdje imam praznu ćeliju koja je B9 (uklonio sam vrijednost iz ove ćelije za ovo metoda), i koristeći VBA kod izbrisat ću red koji ima B9 ćeliju.
Korak-01 :
➤Slijedite Korak-01 od Metoda-1
8794
Izbrisat će sve redove u rasponu “B5:D13” ima bilo koju praznu ćeliju.
➤Pritisnite F5
Rezultat :
Tada ćete moći izbrisati red koji sadrži praznu ćeliju.
Pročitajte više: Kako ukloniti prazne redove u Excelu (11 metoda)
Metoda-6: Brisanje reda ako je cijeli red prazan
Ovdje imam praznu ćeliju koja je B9 (uklonio sam vrijednosti za ovu metodu), i prazan red koji je red 12 (uklonio sam vrijednosti za ovu metodu), i korištenje VBA koda i funkcija COUNTA Izbrisat ću red koji je prazan.
Korak-01 :
➤Slijedite Korak-01 od Metoda-1
4632
“B5:D13” je raspon podataka i FOR petlja će raditi za svaku ćeliju u ovaj raspon.
CountA(cell.EntireRow) će vratiti broj ćelija koje nisu prazne i kada postane 0 tada će red biti obrisan.
➤Pritisnite F5
Rezultat :
Nakon toga, moći ćete izbrisati prazan red, ali neće izbrisati nijedan red koji nema sve ćelije ovog reda su prazne.
Pročitajte više: Kako koristiti VBA za brisanje praznih redova u Excelu
Metod-7: Brisanje svakog n-og 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 Metoda-1
8569
“B5 :D13” je raspon podataka i rc će vratiti ukupan broj reda ovog raspona koji je 9 .
Ovdje, FOR petlja će početi od posljednjeg reda koji je rc ili 9 u ovom slučaju i završava se prvim redom.
Korak -3 će pomoći da obrišete svaki 3rd red u ovom rasponu.
➤Pritisnite F5
Rezultat :
Zatim ćete izbrisati redove koji sadrže Nazive Cipela 1 , Cipela2, i Shoe3 .
Pročitajte više: Kako izbrisati svaki nth R u Excelu (6 najlakših načina)
Slična očitanja:
- Kako izbrisati odabrane redove pomoću Excel VBA (korak- Smjernice po korak)
- Izbrišite neiskorištene redove u Excelu (8 jednostavnih načina)
- Kako izbrisati skrivene redove u Excelu (3 metode)
- Brisanje beskonačnih redova u Excelu (5 jednostavnih načina)
- Kako izbrisati redove u Excelu koji traju zauvijek (4 lakaNačini)
Metoda-8: Brisanje reda na osnovu vrijednosti ćelije
U ovoj metodi, ja ću izbrisati red koji ima određenu vrijednost Shirt 2 .
Korak-01 :
➤Slijedite Korak-01 od Metoda- 1
4930
“B5:D13” je raspon podataka i petlja FOR će raditi za svaku ćeliju u ovom rasponu.
Ako bilo koja ćelija u retku sadrži vrijednost “Shirt 2” onda će red biti obrisan.
➤Pritisnite F5
Rezultat :
Na ovaj način ćete izbrisati red koji sadrži Proizvod naziv Košulja 2 .
Pročitajte više: VBA makro za brisanje reda ako ćelija sadrži vrijednost u Excelu (2 metode)
Metod-9: Brisanje duplikata
Ovdje, imam dva reda sa šifrom proizvoda 97375 i tako želim izbrisati jedan od ovih redova koji su označeni crveni okvir ispod.
Korak-01 :
➤Slijedite Korak-01 od Metoda-1
4699
Ovdje, “B5:D13” je raspon podataka i Kolone:=1 ja ans će tražiti duple vrijednosti samo u jednoj koloni koja je početna kolona Kolona B ali ako želite pretraživati iu drugim kolonama možete koristiti ovaj broj prema vašim potrebama.
➤Pritisnite F5
Rezultat :
Nakon toga, moći ćete izbrisati red koji je slično drugom redu.
Pročitajte više: Kako izbrisati duple redove uExcel sa VBA (8 efikasnih načina)
Metod-10: Brisanje redova u tabeli
Pretpostavimo da imate sljedeću tablicu čiji je naziv Tabela1 i sada želite izbrisati Red broj 6 ove tabele. Da biste to učinili, možete slijediti ovu metodu.
Korak-01 :
➤Slijedite Korak-01 od Metode-1
4424
Ovdje, “Tabela” je naziv lista, “Tabela1” je naziv tabele i 6 je broj reda ove tabele koju želite da izbrišete.
➤Pritisnite F5
Rezultat :
Na ovaj način ćete obrisati željeni red ove tabele.
Pročitajte više: Kako ukloniti duple redove na osnovu jedne kolone koristeći Excel VBA
Metod-11: Brisanje vidljivih redova nakon filtriranja
Ovdje imam tablicu podataka koja je filtrirana prema kolona Cijena za vrijednosti veće od $1.500,00 i želim obrisati sve vidljive redove nakon filtriranja.
Korak-01 :
➤Slijedite Korak-01 od Metode-1
2184
Ovdje, “B5: D13” je raspon podataka.
➤Pritisnite F5
Sada će svi vidljivi redovi nakon filtriranja biti obrisan. Sada možete vratiti skrivene redove odabirom znaka Filter u koloni Cijena .
➤Kliknite na Odaberi sve opciju
➤Pritisnite OK
Rezultat :
Konačno, vratit ćete skrivene redovetablicu podataka.
Pročitajte više: Kako filtrirati i brisati redove pomoću VBA u Excelu (2 metode)
Metod-12: Brisanje retka na osnovu zadnje aktivne ćelije
Ovdje, moja posljednja aktivna ćelija je ćelija B13 i želim ovo izbrisati sa posljednjom aktivnom ćelijom od sljedećeg tabela podataka.
Korak-01 :
➤Slijedite Korak-01 od Metode -1
4261
Ovdje, 2 znači Kolona B na kojoj imam svoju aktivnu ćeliju, možete promijeniti broj prema vašim potrebama.
➤Pritisnite F5
Rezultat :
Na ovaj način ćete izbrisati svoje zadnji aktivni red.
Pročitajte više: Excel VBA kod za brisanje redova na osnovu višestruke vrijednosti ćelije (3 kriterija)
Metoda-13: Brisanje redova koji imaju nizove
Pretpostavimo da želite da izbrišete redove koji imaju bilo koji niz, a da to učinite možete slijediti ovu metodu.
Korak-01 :
➤Slijedite Korak-01 od Metoda-1
4154
Ovdje, “string” je naziv lista, broj prvog reda ovog raspona podataka je 5 , a broj početne kolone je 2
Naredba With vam omogućava da specificirate objekt ili korisnički definirani tip jednom za čitav niz naredbi.
Pri grešci Nastavi sljedeći izraz specificira da, kada se pojavi greška u vremenu izvođenja, kontrola ide na naredbu nakon naredbe gdje dolazi do greške.
Posljednji red i LastColumn vraćaju zadnji red i stupac raspona podataka.
SpecialCells(xlCellTypeConstants, xlTextValues) će odabrati redove koji imaju bilo koju tekstualnu vrijednost u raspon.
➤Pritisnite F5
Rezultat :
Nakon toga ćete izbrišite redove koji imaju bilo koji tekstualni niz.
Pročitajte više: Excel prečica za brisanje redova (sa bonus tehnikama)
Metod-14: Brisanje reda na osnovu datuma
Ovdje ću izbrisati redove koji imaju poseban datum 12.11.2021. (mm/dd/gggg) u ovom metodu koristeći DATEVALUE funkciju .
Korak-01 :
➤Slijedite Korak- 01 od Metoda-1
1289
Ovdje, “Datum” je naziv lista, broj prvog reda ovog raspona podataka je 5 , a kolona kriterija (koja kolona ima datume) broj je 3 .
Naredba With vam omogućava da jednom specificirate objekt ili korisnički definirani tip za čitav niz naredbi.
U slučaju greške Nastavi sljedeći izraz specificira da, kada se pojavi greška u vremenu izvođenja, kontrola ide na naredbu koja slijedi nakon naredbe u kojoj se greška javlja.
LastRow vraća posljednji red raspona podataka i ovdje, FOR petlja će početi od posljednjeg reda koji je Posljednji red ili 6 u ovom slučaju, a završava se prvim redom.
DATEVALUE konvertuje tekstualni datum u vrijednost.
Ovdje, Union će vratiti
