Tavaliselt on Exceli töölehel veergude kustutamiseks kaks erinevat meetodit, millest üks on klaviatuuri otsetee ja teine, kasutades paremklõpsamise ja sisestamise meetodit, kuid VBA-s peame kõigi veergude koos kustutamiseks kasutama käsku Kustuta ja tervet veerulauset. see on see, et kui peame ühe veeru kustutama, anname ühe veeru viite, kuid mitme veeru puhul mitu veeruviidet.
Exceli VBA veeru kustutamine
Teeme Excelis paljusid toiminguid nagu lõikamine, kopeerimine, kleepimine, lisamine, kustutamine, sisestamine ja paljud sellised asjad, mida me regulaarselt teeme. Kõiki neid toiminguid saame kasutada VBA kodeerimise abil. Üks oluline mõiste, mida peame õppima, on VBA-s on veeru kustutamine. Selles artiklis me näitame teile, kuidas seda VBA veeru valikut kasutada.
Mida teeb veeru kustutamine Exceli VBA-s?
Nagu nimigi ütleb, kustutab see määratud veeru. Selle ülesande täitmiseks peame kõigepealt tuvastama, millise veeru peame kustutama. Kustutatavate veergude valik on stsenaariumiti erinev, seega käsitleme selles artiklis mõnda olulist ja sageli silmitsi seisvat stsenaariumi.
Veergude kustutamine on lihtne. Esiteks peame veeru valimiseks kasutama omadust COLUMNS, nii et allpool on VBA veeru Kustuta meetodi süntaks.
Veerud (veeruviide). Kustuta
Nii saame koodi üles ehitada järgmiselt:
Veerud (2). Kustuta või veerud (“B”). Kustuta
See kustutab veeru number 2, st veeru B.
Kui soovime kustutada mitu veergu, ei saa me veerge sisestada. Peame veergudele viitama veerupäiste, st tähestike järgi.
Veerud (“A: D”). Kustuta
See kustutab veeru A-st D-ni, st 4 esimest veergu.
Nii võime konkreetsete veergude kustutamiseks kasutada VBA-s meetodit „Kustuta veerg“. Allpool toodud jaotises näeme rohkem näiteid selle paremaks mõistmiseks. Loe edasi.
Exceli VBA veeru kustutamise meetodi näited
Allpool on toodud näited veergude kustutamiseks VBA abil.
Näide 1 - Kustutamismeetodi kasutamine
Oletame, et teil on andmeleht, umbes nagu allpool.
Kui tahame veerukuu „Mar“ kustutada, valige kõigepealt atribuut veerud.
Kood:
Alam Kustuta_näide1 () veerud (Lõpeta alam
Mainige veeru numbrit või tähestikku. Sel juhul on see kas 3 või C.
Kood:
Alam Kustuta_näide1 () veerud (3). Lõpeta alam
Kasutage meetodit Kustuta.
Märkus . Kustutusmeetodi valimiseks ei saa IntelliSense'i loendit. Sisestage lihtsalt „Kustuta”Kood:
Alam Kustuta_näide1 () veerud (3). Kustuta lõpp-alam
Või võite sisestada veeru aadressi niimoodi.
Kood:
Alam Kustuta_näide1 () veerud ("C"). Kustuta alam alam
Käivitage see kood, kasutades klahvi F5, või võite käivitada käsitsi ja näha tulemust.
Mõlemad koodid teevad sama veeru, kustutades mainitud veeru.
Kui soovime kustutada mitu veergu, peame need tähestikus mainima. Me ei saa siin veerunumbreid kasutada.
Kui tahame veerud 2 kuni 4 kustutada, võime koodi edastada nagu allpool.
Kood:
Alam Kustuta_näide1 () veerud ("C: D"). Kustuta alam alam
Käivitage see kood käsitsi käitamisvaliku kaudu või vajutage klahvi F5. See kustutab veerud „veebr“, „märts“ ja „apr.“
Näide # 2 - kustutage veerud töölehe nimega
Ülaltoodud on ülevaade veergude kustutamisest VBA-koodi abil. See pole aga veergude kustutamise hea tava. Töölehe nimele viitamata on veeru pimesi kustutamine ohtlik.
Kui te pole töölehe nime maininud, kustutab see leht, mis on aktiivne, selle lehe veerud.
Esiteks peame valima töölehe selle nime järgi.
Kood:
Alam Kustuta_näide2 () töölehed ("Müügileht"). Valige Lõpeta alam
Pärast lehe valimist peame valima veerud. Veerusid saame valida ka objekti VBA RANGE abil.
Kood:
Alam Kustuta_näide2 () töölehed ("Müügileht"). Valige vahemik ("B: D"). Kustuta lõpp
See kustutab töölehe “Müügileht” veerud B – D. Selle koodi jaoks pole oluline, milline on aktiivne. Sellegipoolest kustutab see ainult selle lehe mainitud veerud.
Samuti saame VBA koodi konstrueerida ühele reale ise.
Kood:
Alam Kustuta_näide2 () töölehed ("Müügileht"). Vahemik ("B: D"). Kustuta lõpp-alam
See kustutab ka veerud B kuni D ilma töölehte “Müügileht” valimata.
Näide # 3 - tühjade veergude kustutamine
Oletame, et teil on andmeid, millel on alternatiivseid tühje veerge nagu allpool.
Niisiis, kustutage kõik alternatiivsed veerud, mida saame kasutada allpool toodud koodi.
Kood:
Alam Kustuta_näide3 () Dim k täisarvuna väärtuseks k = 1 kuni 4 veergu (k + 1). Kustuta järgmine k End Sub
Käivitage see kood klahviga F5 või käsitsi. Seejärel kustutab see kõik alternatiivsed tühjad veerud ja meie andmed näevad välja sellised.
Näide # 4 - tühjendage tühjad lahtrid
Nüüd vaadake seda näidet. On teatud olukordi, kus peame kogu veeru kustutama, kui andmevahemikus leitakse mõni tühi lahter. Mõelge näiteks allpool toodud andmetele.
Kõik kollase värvusega lahtrid on tühjad. Nii et siin on minu nõue kustutada kõik tühjad lahtrite veerud. Seda teeb järgmine kood.
Kood:
Alam Delete_Example4 () Range ("A1: F9"). Valige Selection.SpecialCells (xlCellTypeBlanks). Valige Selection.EntireColumn.Delete End Sub
Las ma selgitan teile seda koodi rea kaupa.
Meie andmed on vahemikus A1 kuni F9, nii et kõigepealt pean selle vahemiku valima ja allpool olev kood seda teeb.
Vahemik ("A1: F9"). Valige
Selles valitud lahtrivahemikus pean valima tühjad lahtrid. Tühja lahtri valimiseks peame eraldama lahtrite atribuudi ja selles omaduses oleme tühjaks kasutanud lahtritüüpi.
Selection.SpecialCells (xlCellTypeBlanks). Valige
Järgmisena valib see kõik tühjad lahtrid ja valikus kustutame kogu valiku veeru.
Selection.EntireColumn.delete
Nii et meie lõpptulemus näeb välja selline.
Kust tühi lahter on leitud, kustutas ta need tühjad lahtrid kogu veeru.
Selle Exceli VBA veeru kustutamise saate alla laadida siit - VBA veeru malli kustutamine
