VBA Izbriši vrstico

V Excelu za izbris katere koli vrstice imamo bližnjico uporabe CTRL + - ali lahko izberemo vrstico in z desnim klikom nanjo in jo izbrišemo. Toda v VBA smo to storili tako, da smo zanjo napisali kodo. Način brisanja vrstice v VBA najprej moramo določiti, katero vrstico izbrisati in šele nato jo lahko izbrišemo. V tem članku bomo spoznali različne ilustracije, kako izbrisati vrstico v VBA.

V VBA Delete vrstica se uporablja za brisanje nabora vrstic ali posamezne vrstice, odvisno od situacije. Podobno kot excel delovni list lahko tudi z makroi ali VBA zbrišemo vrstice v Excelovem delovnem listu. To pomaga, kadar imamo veliko podatkov pri nas in jih ne moremo storiti ročno.

Sintaksa za brisanje vrstice v Excelu VBA

Sintaksa za brisanje vrstice v excelu je spodaj.

Delovni listi.Rows (vrstica #)

Obstajajo tudi drugi načini za brisanje vrstic z uporabo VBA, na naslednji način.

Obseg ("Cell"). EntireRow.Delete

Kar bo storila zgornja izjava, bo izbrisala vrstico za dano vrstico. Na primer, če napišemo obseg ("A1"). EntireRow.Delete, potem se prva vrstica izbriše, saj celica A1 pripada prvi vrstici.

Za brisanje vrstice lahko uporabimo tudi vrstice (row_num) .delete .

Kako izbrisati vrstico v Excelu z uporabo VBA?

Spodaj je nekaj primerov, kako z uporabo VBA izbrisati vrstico v excelu.

To predlogo za brisanje vrstice Excela VBA lahko prenesete tukaj - VBA Predloga za brisanje vrstice Excela

Vrstica za brisanje VBA - primer # 1

Za brisanje vrstic uporabite prvi preprost način. Za demonstracijski namen vnesem naključno vrednost v celico A1 in B1. Oglejte si ga spodaj.

Želim videti, če bom uporabil kodo, napisano nad celotno vrstico, ali pa bo izbrisana ena celica.

Opomba: Če želite uporabljati Excel VBA, moramo imeti na kartici Datoteke v razdelku z možnostmi omogočen zavihek razvijalca.

Za brisanje vrstice v excelu z uporabo VBA sledite spodnjim korakom.

1. korak: Kliknite jeziček razvijalca na Visual Basic in odprite urejevalnik VBA.

2. korak: V kodnem segmentu izjavite podfunkcijo, da začnete pisati kodo.

Koda:

 Pod vzorec () Konec pod

3. korak: Zdaj napišite naslednjo kodo za brisanje vrstice.

Koda:

 Območje sub vzorca () ("A1". EntireRow.Delete End Sub

4. korak: Zaženite to kodo s pritiskom na tipko F5 ali Run in poglejte izhod.

Ko zaženemo kodo, vidimo, da se vrednosti iz celice A1 in B1 odstranijo, saj je bila celotna prva vrstica izbrisana.

Vrstica za brisanje VBA - primer # 2

Prej v prvem primeru sem izbrisal samo eno vrstico. Kaj pa, če moramo izbrisati več vrstic. Za predstavitvene namene imam naslednje podatke, kot so prikazani spodaj,

Želim izbrisati vseh prvih pet vrstic. Za brisanje vrstice v excelu z uporabo VBA sledite spodnjim korakom.

1. korak: Na zavihku razvijalca kliknite na Visual Basic, da odprete urejevalnik VBA.

2. korak: v kodi označite podfunkcijo, da začnete pisati kodo,

Koda:

 Sub Sample1 () Konec Sub

3. korak: Za brisanje vseh pet vrstic napišite naslednjo kodo, prikazano spodaj.

Koda:

 Območje Sub Sample1 () ("A1: B5"). EntireRow.Delete End Sub

4. korak: Zaženite to kodo s pritiskom na tipko F5 ali Run in poglejte izhod.

Ko zaženemo kodo, vidimo naslednji rezultat: Celotni podatki so bili izbrisani, kar pomeni, da je bilo prvih pet vrstic izbrisanih, kot smo jih imeli v prvih petih vrsticah.

Opomba: Podatke bom vstavil nazaj v vzorčni list Excela za predstavitev.

Vrstica za brisanje VBA - primer # 3

Zdaj imamo podatke o zaposlenih in njihova prodaja se opravi v treh mesecih Janu, Februar in Marec. Eden od zaposlenih je bil na dopustu in tri mesece ni mogel prodati, zato so celice zanj prazne. Naš cilj je najti to prazno vrstico in jo izbrisati iz podatkov.

Oglejte si spodnje podatke,

Za brisanje vrstice v excelu z uporabo VBA sledite spodnjim korakom.

1. korak: Na zavihku razvijalca kliknite na Visual Basic, da odprete vizualni osnovni urejevalnik.

2. korak: v oknu kode označite podfunkcijo, da začnete pisati kodo,

Koda:

 Sub Sample2 () Konec Sub

3. korak: Za brisanje vrstic z praznimi celicami napišite naslednjo kodo.

Koda:

 Območje Sub Sample2 () ("A1: D5"). SpecialCells (xlCellTypeBlanks) .EntireRow.Delete End Sub

SpecialCells je funkcija v VBA, ki nam vrne vse celice, ki ustrezajo našim pogojem, naše stanje pa je bilo prazno celico v tem razponu, zato smo uporabili funkcijo xlCellTypeBlanks.

4. korak: Zaženite to kodo s pritiskom na tipko F5 ali Run in poglejte izhod.

Ko zaženemo kodo, lahko vidimo, da je bila vrstica z praznimi celicami izbrisana.

Opomba: Podatke bom ponovno vstavil nazaj v vzorčni list Excela za predstavitev.

Vrstica za brisanje VBA - primer # 4

Obstaja še nekaj podobnih načinov za brisanje vrstic, na primer uporaba vrstic in funkcija brisanja. Na primer, imamo podatke v 4. vrstici in želim izbrisati vrstico 4. Lahko damo ukaz excel za brisanje četrte vrstice v podatkih. Oglejte si posnetek zaslona Spodaj imam naključne podatke v vrstici 4 v prvi celici.

Za brisanje vrstice v excelu z uporabo VBA sledite spodnjim korakom.

1. korak: Odprite urejevalnik VBA s klikom na Visual Basic na zavihku razvijalca,

2. korak: Označite podfunkcijo, da začnete pisati kodo.

Koda:

 Sub Sample3 () Konec Sub

3. korak: Za brisanje 4. vrstice napišite naslednjo kodo.

Koda:

 Pod vzorec3 () vrstice (4). Izbriši konec pod

4. korak: Zaženite to kodo s pritiskom na tipko F5 ali Run in poglejte izhod.

Podatki so bili izbrisani, saj je bila četrta vrstica sama izbrisana.

Vrstica za brisanje VBA - primer # 5

V zgornji kodi smo dali obseg ali vrstico, ki jo želite izbrisati v sami kodi. Zdaj vzemimo podatke od uporabnika in lahko izbriše vrstico iz danih podatkov. Na primer, imam podatke o zaposlenih in prodajnih storitvah, kot je spodaj, in želim, da uporabnik izbere obseg, od tega, koliko podatkov želi uporabnik izbrisati vrstice s praznimi celicami. Oglejte si spodnje podatke,

Za brisanje vrstice v excelu z uporabo VBA sledite spodnjim korakom.

1. korak: Odprite urejevalnik VB s klikom na Visual Basic na zavihku razvijalca,

2. korak: Izberite podfunkcijo, da začnete pisati kodo.

Koda:

 Sub Sample4 () Konec Sub

2. korak: Označite dve spremenljivki kot obseg, A in B.

Koda:

 Pod vzorec4 () Dim A kot obseg Dim B kot obseg konec Pod

Korak 3: Če želite uporabnik vnesti za izbiro obsega, ki ga želimo izbrisati, bomo uporabili funkcijo polja in ga shranili v zgoraj določeno spremenljivko.

Koda:

 Podvzorec4 () Dim A kot obseg Dim B As obseg nastavljen A = Application.InputBox ("Izberi podatke", "Sample Macro", Type: = 8) End Sub

4. korak: B = A nastavite tako, da se lahko vhod od uporabnika shrani v območju B.

Koda:

 Podvzorec4 () Dim A kot obseg Dim B As obseg Set A = Application.InputBox ("Izberi podatke", "Sample Macro", Type: = 8) Set B = A End Sub

5. korak: Zdaj bomo izbrisali podatke, ki imajo prazne celice, iz obsega, ki ga izbere uporabnik.

Koda:

 Podvzorka4 () Dim A kot obseg Dim B As obseg Set A = Application.InputBox ("Izberi podatke", "Sample Macro", tip: = 8) Set B = A A.SpecialCells (xlCellTypeBlanks) .EntireRow.Delete End Sub

6. korak: Zdaj zaženite kodo s priloženega gumba za zagon.

6. korak: Prikaže se polje za vnos.

7. korak: V tem primeru izberite območje med A1: D8. Pritisnite OK, če želite videti rezultat.

Podatki, ki so imeli prazne celice, so bili izbrisani.

Stvari, ki jih je treba zapomniti

Nekaj ​​stvari, ki si jih moramo zapomniti o Delete Row v Excelu VBA:

  • Vrstico lahko izbrišemo na podlagi ene celice.
  • Izbrišemo lahko več vrstic, tako da damo obseg celic.
  • Vrstice lahko izbrišemo tudi tako, da uporabnik vnesemo vnose.

Priporočeni članki

To je vodnik za brisanje vrstice VBA. Tu smo razpravljali o tem, kako izbrisati vrstico v Excelu VBA skupaj s praktičnimi primeri in naloženo predlogo Excela. Ogledate si lahko tudi druge naše predlagane članke -

  1. Kako uporabljati funkcijo Zamenjaj v VBA?
  2. Bližnjica za brisanje vrstice v Excelu
  3. Primer VBA | Excel triki
  4. Excel Bližnjica vrstice
  5. Kako sešteti več vrstic v Excelu?

Kategorija:

VBA