VBA kustuta rida
Excelis suvalise rea kustutamiseks on meil otseteed CTRL + kasutamiseks - või saame valida rea ja klõpsata sellel hiire parema nupuga ning kustutada. Kuid VBA-s oleme seda teinud, kirjutades sellele koodi. Rea kustutamise meetod VBA-s on see, et esmalt peame tuvastama kustutatava rea ja seejärel saame selle kustutada. Selles artiklis õpime erinevate illustratsioonide kohta, kuidas rida VBA-st kustutada.
VBA-s kasutatakse Kustuta rida, et kustutada ridade komplekt või üks rida vastavalt olukorrale. Sarnaselt exceli töölehega saame Exceli töölehe ridade kustutamiseks kasutada makrosid või VBA-sid. See aitab, kui palju andmeid on meiega ja me ei saa seda käsitsi teha.
Rida kustutamise süntaks Excel VBA-s
Exceli rea kustutamise süntaks on järgmine.
Töölehed.Ridad (rida #). Kustuta
RBA kustutamiseks VBA abil on ka teisi meetodeid, näiteks järgmised.
Vahemik (“Cell”). EntireRow.Delete
Mida ülaltoodud väide teeb, see kustutab antud rea rea. Näiteks kui kirjutame vahemikku („A1”) EntireRow.Delete, siis esimene rida kustutatakse, kuna lahter A1 kuulub esimesse ritta.
Samuti saame rea kustutamiseks kasutada ridu (rida_num) .delete .
Kuidas kustutada rida Excelis VBA abil?
Allpool on toodud mõned näited, kuidas Excelist rida VBA abil kustutada.
Selle VBA kustutamise rea Exceli malli saate alla laadida siit - VBA kustutamise rea Exceli mallVBA kustuta rida - näide nr 1
Kasutage ridade kustutamiseks esimest lihtsat meetodit. Demonstratsiooni eesmärgil sisestan lahtritesse A1 ja B1 juhusliku väärtuse. Vaadake seda allpool.
Mida ma tahan näha, on see, kui ma kasutan kogu rea kohal kirjutatud koodi, kustutatakse või kustutatakse üks lahter.
Märkus. Exceli VBA kasutamiseks peab meil olema suvandite jaotise vahekaardil Failid lubatud arendaja vahekaart.Exceli rea kustutamiseks VBA abil toimige järgmiselt.
1. samm: minge arendaja vahekaardile ja klõpsake Visual Basicul, et avada VBA redigeerija.
2. samm: kuulutage koodisegmendis koodi kirjutamiseks alamfunktsioon.
Kood:
Alamproov () Lõpp Alam
3. samm: rea kustutamiseks kirjutage järgmine kood.
Kood:
Alamproov () vahemik ("A1"). EntireRow.Delete End Sub
4. samm: käivitage see kood, vajutades nuppu F5 või nuppu Käivita ja vaadake väljundit.
Pärast koodi käivitamist näeme, et nii lahtri A1 kui ka B1 väärtused on eemaldatud, kuna kogu esimene rida on kustutatud.
VBA kustuta rida - näide nr 2
Esimeses näites olen varem kustutanud ainult ühe rea. Aga kuidas oleks siis, kui peame mitu rida kustutama. Tutvustamise eesmärgil on mul järgmised andmed, nagu allpool näidatud,
Tahan kustutada kõik viis esimest rida. Exceli rea kustutamiseks VBA abil toimige järgmiselt.
1. samm . VBA redigeerija avamiseks klõpsake arendaja vahekaardil Visual Basic.
2. samm: kuulutage koodis alamfunktsioon koodi kirjutamise alustamiseks,
Kood:
Alamproov1 () Lõpeta alamvalim
3. samm: kogu viie rea kustutamiseks kirjutage järgmine kood, mida näidatakse allpool.
Kood:
Alamproov1 () vahemik ("A1: B5"). EntireRow.Delete End Sub
4. samm: käivitage see kood, vajutades nuppu F5 või nuppu Käivita ja vaadake väljundit.
Kui oleme koodi käivitanud, näeme järgmist tulemust. Kogu teave on kustutatud, see tähendab, et esimesed viis rida on kustutatud, kuna meil oli andmeid esimese viie rea kohta.
Märkus. Lisan andmed demonstreerimiseks Exceli proovilehele tagasi.VBA kustuta rida - näide nr 3
Nüüd on meil andmeid töötajate kohta ja nende müük toimub kolme kuu jooksul - jaanuaris, veebruaris ja märtsis. Üks töötaja oli puhkusel ega saanud kolm kuud müüki teha, nii et kongid on tema jaoks tühjad. Meie eesmärk on leida see tühi rida ja kustutada see andmetest.
Vaadake allolevaid andmeid,
Exceli rea kustutamiseks VBA abil toimige järgmiselt.
1. samm: Visuaalse põhitoimetaja avamiseks klõpsake arendaja vahekaardil Visual Basic.
2. samm: koodi kirjutamise alustamiseks kuulutage koodiaknas alamfunktsioon,
Kood:
Alamproov2 () Lõpeta alamvalim
3. samm: tühjade lahtritega ridade kustutamiseks kirjutage järgmine kood.
Kood:
Alamvalim2 () vahemik ("A1: D5"). SpecialCellid (xlCellTypeBlanks) .EntireRow.Delete End Sub
SpecialCells on VBA funktsioon, mis tagastab meile kõik meie tingimustele vastavad lahtrid ja meie seisund oli selles vahemikus olevad tühjad lahtrid, nii et kasutasime funktsiooni xlCellTypeBlanks.
4. samm: käivitage see kood, vajutades nuppu F5 või nuppu Käivita ja vaadake väljundit.
Kui oleme koodi käivitanud, näeme, et tühjade lahtrite rida on kustutatud.
Märkus. Panen jälle andmed demonstreerimiseks Exceli proovilehele tagasi.VBA kustuta rida - näide nr 4
Ridade kustutamiseks on veel mõned sarnased meetodid, näiteks ridade kustutamise ja kustutamise funktsioon. Näiteks on meil andmed reas 4 ja ma tahan kustutada 4. rida. Me saame anda käsu excel, et kustutada andmetest 4. rida. Vaadake allolevat ekraanipilti. Mul on juhuslikud andmed 4. lahtris esimeses lahtris.
Exceli rea kustutamiseks VBA abil toimige järgmiselt.
1. samm: avage VBA redigeerija, klõpsates arendaja vahekaardil Visual Basicule,
2. samm: koodi kirjutamise alustamiseks kuulutage alamfunktsioon.
Kood:
Alamproov3 () lõpp alamvalim
3. samm: 4. rea kustutamiseks kirjutage järgmine kood.
Kood:
Alamproov3 () read (4) .Kustutage alammenüü lõpp
4. samm: käivitage see kood, vajutades nuppu F5 või nuppu Käivita ja vaadake väljundit.
Andmed on kustutatud, kuna 4. rida on ise kustutatud.
VBA kustuta rida - näide # 5
Ülaltoodud koodis oleme andnud vahemiku või rea kustutamiseks koodis endas. Nüüd võtame kasutajalt sisendi ja ta saab antud andmetest rea kustutada. Näiteks on mul andmeid töötajate ja müügi kohta nagu allpool ja soovin, et kasutaja valiks vahemiku, kui palju andmeid kasutaja soovib tühjade lahtritega ridu kustutada. Vaadake allolevaid andmeid,
Exceli rea kustutamiseks VBA abil toimige järgmiselt.
1. samm: avage VB-redaktor, klõpsates arendaja vahekaardil Visual Basicule,
2. samm: koodi kirjutamise alustamiseks kuulutage alamfunktsioon.
Kood:
Alamproov4 () lõpp alamvalim
2. samm: kuulutage kaks muutujat vahemikuks, A ja B.
Kood:
Alamproov4 () hämardub nii, nagu vahemik
3. samm: kasutajalt sisestuse valimiseks kustutatava vahemiku jaoks kasutame sisendkasti funktsiooni ja salvestame selle sisendi ülalmääratletud muutujasse.
Kood:
Alamnäide4 () Hämardatakse A-ni, vahemik Dim-B, kui vahemikukomplekt A = rakendus.InputBox ("Valige andmed", "Proovi makro", tüüp: = 8)
4. samm: määrake B = A, nii et kasutaja sisendit saaks hoida vahemikus B.
Kood:
Alamnäide4 () Hämardatakse A-ni, vahemik Dim-B, kui vahemikukomplekt A = rakendus.
5. samm. Nüüd kustutame kasutaja valitud vahemikust tühjad lahtrid.
Kood:
Alamvalim4 () Hämardub A Vahemikuna Hämardub B Vahemikukomplektina A = rakendus.InputBox ("Valige andmed", "Proovi makro", tüüp: = 8) Komplekt B = A A.SpecialCells (xlCellTypeBlanks) .EntireRow.Delete End Sub
6. samm: käivitage nüüd kood pakutud käivitusnupult.
6. samm: ilmub sisendkast.
7. samm. Valige selles näites vahemik A1: D8. Tulemuse nägemiseks vajutage nuppu OK.
Tühjade lahtritega andmed on kustutatud.
Asjad, mida meeles pidada
Kustuta rivi Excel VBA-s peab meeles pidama mõnda asja:
- Saame rea kustutada ühe lahtri põhjal.
- Saame kustutada mitu rida, andes lahtrite vahemiku.
- Samuti saame ridu kustutada, võttes kasutajalt sisendeid.
Soovitatavad artiklid
See on olnud VBA kustutamisrea juhend. Siin arutasime, kuidas kustutada rida Excel VBA-s koos praktiliste näidete ja allalaaditava excelimalliga. Võite vaadata ka meie teisi soovitatud artikleid -
- Kuidas kasutada asendamise funktsiooni VBA-s?
- Exceli kustutamise rea otsetee
- VBA juhtum | Exceli nipid
- Exceli rearea otsetee
- Kuidas Excelis mitu rida kokku võtta?