Red za brisanje VBA

U Excelu za brisanje bilo kojeg retka imamo prečac korištenja CTRL + - ili možemo odabrati redak i desnim klikom na njega i izbrisati ga. Ali u VBA smo to napravili tako što smo napisali kod. Način brisanja retka u VBA prvo moramo identificirati koji redak izbrisati, a zatim ga možemo izbrisati. U ovom ćemo članku naučiti o različitim ilustracijama o tome kako izbrisati red u VBA.

U VBA, Delete row koristi se za brisanje niza redaka ili pojedinačnih redaka, ovisno o situaciji. Slično kao u excelu radnog lista, možemo koristiti makronaredbe ili VBA za brisanje redaka u excel radnom listu. To pomaže kada puno podataka ima kod nas, a mi to ne možemo učiniti ručno.

Sintaksa za brisanje retka u Excelu VBA

Sintaksa za brisanje retka u excelu je kao što slijedi.

Worksheets.Rows (Red #). Delete

Postoje i druge metode za brisanje redaka pomoću VBA, kako slijedi.

Raspon ( „Cell”). EntireRow.Delete

Ono što će gore spomenuti izraz učiniti jest da će izbrisati redak za zadani redak. Na primjer, ako napišemo raspon ("A1"). EntireRow.Delete, tada će se prvi redak izbrisati jer ćelija A1 pripada prvom redu.

Također, možemo koristiti retke (row_num) .delete za brisanje retka.

Kako izbrisati redak u Excelu pomoću VBA?

Slijedi nekoliko primjera kako izbrisati red u excelu pomoću VBA.

Možete preuzeti ovaj VBA Obriši predložak redaka Excela ovdje - VBA Izbriši predložak retka Excela

Red za brisanje VBA - Primjer # 1

Upotrijebite prvu jednostavnu metodu za brisanje redaka. U demonstrativne svrhe upitat ću slučajnu vrijednost u ćeliju A1 i B1. Pogledajte u nastavku.

Ono što želim vidjeti je ako se kôd napisan iznad cijelog retka izbriše ili će se izbrisati jedna ćelija.

Napomena: Za upotrebu Excel VBA moramo imati omogućen karticu za razvojne programere na kartici Files u odjeljku s opcijama.

Slijedite dolje navedene korake za brisanje retka u excelu pomoću VBA.

Korak 1: Idite na karticu na kartici programera na Visual Basic da biste otvorili VBA uređivač.

Korak 2: U segmentu koda prijavite potfunkciju za početak pisanja koda.

Kodirati:

 Pod uzorak () Kraj Sub

Korak 3: Sada upišite sljedeći kôd za brisanje retka.

Kodirati:

 Raspon sub uzorka () ("A1"). Cijeli obris.Delete kraj Sub

Korak 4: Pokrenite ovaj kod pritiskom na tipku F5 ili Run i pogledajte izlaz.

Jednom kada pokrenemo kôd, možemo vidjeti kako se vrijednosti iz obje ćelije A1 i B1 uklanjaju jer je izbrisan cijeli prvi red.

Red za brisanje VBA - primjer # 2

Ranije u prvom primjeru izbrisao sam samo jedan redak. Ali što ćemo ako moramo izbrisati više redova. U svrhu demonstracije imam sljedeće podatke kao što je prikazano u nastavku,

Želim izbrisati svih prvih pet redaka. Slijedite dolje navedene korake za brisanje retka u excelu pomoću VBA.

Korak 1: Na kartici programera kliknite na Visual Basic da biste otvorili VBA uređivač.

Korak 2: U kodu najavite potfunkciju za početak pisanja koda,

Kodirati:

 Sub Sample1 () Kraj Sub

Korak 3: Zapišite sljedeći kôd prikazan u nastavku da biste izbrisali svih pet redaka.

Kodirati:

 Raspon pod uzorka1 () ("A1: B5"). CijeliRow.Delete Kraj Pod

Korak 4: Pokrenite ovaj kod pritiskom na tipku F5 ili Run i pogledajte izlaz.

Nakon što pokrenemo kôd vidimo sljedeći rezultat: Čitavi podaci su izbrisani, znači da je prvih pet redaka izbrisano, kao što smo imali i podatke u prvih pet redaka.

Napomena: Podatke vratim u obrazac excel uzorka za demonstraciju.

Red za brisanje VBA - Primjer # 3

Sada imamo podatke o zaposlenima i njihova prodaja izvršena je za tri mjeseca siječanj, februar i ožujak. Jedan od zaposlenika bio je na dopustu i tri mjeseca nije mogao prodati, pa su ćelije bile prazne za njega. Naš je cilj pronaći taj prazni red i izbrisati ga iz podataka.

Pogledajte podatke u nastavku,

Slijedite dolje navedene korake za brisanje retka u excelu pomoću VBA.

Korak 1: Na kartici programera kliknite na Visual Basic da biste otvorili vizualni osnovni uređivač.

Korak 2: Proglasite potfunkciju u prozoru koda da biste započeli s pisanjem koda,

Kodirati:

 Sub Sample2 () Kraj Sub

3. korak: Za brisanje redaka koji sadrže prazne ćelije napišite sljedeći kôd.

Kodirati:

 Raspon pod uzorka2 () ("A1: D5"). Posebne ćelije (xlCellTypeBlanks) .EntireRow.Delete End Sub

SpecialCells je funkcija u VBA koja nam vraća sve ćelije koje odgovaraju našim uvjetima, a naše stanje su bile prazne ćelije u tom rasponu, tako da smo koristili funkciju xlCellTypeBlanks.

Korak 4: Pokrenite ovaj kod pritiskom na tipku F5 ili Run i pogledajte izlaz.

Kad pokrenemo kôd, možemo vidjeti da je redak koji je imao prazne ćelije izbrisan.

Napomena: Ponovno ću vratiti podatke u ogledni primjerak za demonstraciju.

Red za brisanje VBA - Primjer # 4

Postoje i neki drugi slični načini za brisanje redaka, poput korištenja redaka i funkcije brisanja. Na primjer, imamo podatke u 4. redu i želim izbrisati redak 4. Možemo dati naredbu excelu za brisanje četvrtog retka u podacima. Pogledajte snimku zaslona ispod. U prvoj ćeliji imam slučajne podatke u retku 4.

Slijedite dolje navedene korake za brisanje retka u excelu pomoću VBA.

1. korak: otvorite VBA uređivač klikom na Visual Basic na kartici programera,

Korak 2: Proglasite potfunkciju za početak pisanja koda.

Kodirati:

 Sub Sample3 () Kraj Sub

3. korak: Za brisanje četvrtog retka napišite sljedeći kôd.

Kodirati:

 Poduzorak3 () Redovi (4) .Izbriši kraj Sub

Korak 4: Pokrenite ovaj kod pritiskom na tipku F5 ili Run i pogledajte izlaz.

Podaci su izbrisani jer su i četvrti redovi sami izbrisani.

Red za brisanje VBA - Primjer # 5

U gornjem kôdu dali smo raspon ili reda koji treba izbrisati u samom kodu. Sada uzmimo unos od korisnika i on može izbrisati redak iz danih podataka. Na primjer, imam podatke o zaposlenima i prodaji kao što je niže i želim da korisnik odabere raspon iz koliko podataka želi korisnik izbrisati redove s praznim ćelijama. Pogledajte dolje navedene podatke,

Slijedite dolje navedene korake za brisanje retka u excelu pomoću VBA.

1. korak: otvorite VB uređivač klikom na Visual Basic na kartici programera,

Korak 2: Proglasite potfunkciju za početak pisanja koda.

Kodirati:

 Sub Sample4 () Kraj Sub

Korak 2: Deklarirajte dvije varijable kao raspon, A i B.

Kodirati:

 Sub Sample4 () Dim A Kao raspon Dim B Kao raspon Kraj Sub

Korak 3: Da bismo uzeli unos od korisnika za odabir raspona koji ćemo izbrisati, upotrijebit ćemo funkciju polja za unos i taj ćemo ulaz spremiti u gore definiranu varijablu.

Kodirati:

 Sub Sample4 () Dim A kao raspon Dim B As raspon je postavljen A = Application.InputBox ("Select Data", "Sample Macro", Type: = 8) End Sub

Korak 4: Postavite B = A tako da ulaz od korisnika može biti pohranjen u rasponu B.

Kodirati:

 Pod uzorka4 () Dim A kao raspon Dim B kao raspon raspona A = aplikacija.InputBox ("Odaberite podatke", "uzorak makro", vrsta: = 8) skup B = kraj potknjiga

Korak 5: Sada ćemo izbrisati podatke koji imaju prazne ćelije iz raspona koji je odabrao korisnik.

Kodirati:

 Sub Sample4 () Dim A kao raspon Dim B As raspon je postavljen A = Application.InputBox ("Odaberite podatke", "Sample Macro", tip: = 8) B = A A.SpecialCells (xlCellTypeBlanks) .EntireRow.Delete End Sub

Korak 6: Sada pokrenite kod s gumba za pokretanje.

Korak 6: Pojavit će se okvir za unos.

Korak 7: U ovom primjeru odaberite raspon od A1: D8. Pritisnite OK za prikaz rezultata.

Podaci koji su imali prazne ćelije izbrisani su.

Stvari koje treba zapamtiti

Nekoliko je stvari koje moramo zapamtiti o Delete Row u Excelu VBA:

  • Redak možemo izbrisati na temelju jedne ćelije.
  • Možemo izbrisati više redova davanjem raspona ćelija.
  • Također možemo izbrisati redove uzimanjem unosa od korisnika.

Preporučeni članci

Ovo je vodič za brisanje redaka VBA. Ovdje smo raspravljali o tome kako izbrisati red u Excelu VBA zajedno s praktičnim primjerima i download-ovim Excel predloška. Možete i pregledati naše druge predložene članke -

  1. Kako koristiti funkciju Zamjena u VBA?
  2. Prečac za brisanje redaka u Excelu
  3. Slučaj VBA | Excel trikovi
  4. Prečac za umetanje redaka u Excelu
  5. Kako zbrojiti više redaka u Excelu?

Kategorija:

VBA