Normalt har vi i Excel-regneark to forskjellige metoder for å slette kolonner, den ene er hurtigtasten, og en annen ved å bruke høyreklikk og sett inn metoden, men i VBA må vi bruke delete-kommandoen og hele kolonnesetningen for å slette en kolonne sammen, kunsten å Dette er at hvis vi trenger å slette en enkelt kolonne, gir vi en enkelt kolonnehenvisning, men for flere kolonner gir vi flere kolonnereferanser.
Excel VBA Slett kolonne
Vi utfører mange handlinger i excel som klippe, kopiere, lime inn, legge til, slette, sette inn og mange slike ting vi gjør med jevne mellomrom. Vi kan bruke alle disse handlingene ved hjelp av VBA-koding. Et av de viktige konseptene vi trenger å lære er i VBA er "slettingskolonnen." I denne artikkelen vil vi vise deg hvordan du bruker dette alternativet Slett kolonne i VBA.
Hva gjør Delete Column i Excel VBA?
Som navnet sier, vil den slette den angitte kolonnen. For å utføre denne oppgaven, må vi først identifisere hvilken kolonne vi trenger å slette. Valget av kolonner som skal slettes er forskjellig fra ett scenario til et annet, så vi vil dekke noen av de viktige og ofte møtte scenariene i denne artikkelen.
Det er enkelt å slette kolonnene. Først må vi bruke COLUMNS-egenskapen til å velge kolonnen, så nedenfor er syntaksen for Column Delete-metoden i VBA.
Kolonner (kolonnehenvisning). Slett
Så vi kan konstruere koden slik:
Kolonner (2). Slett eller Kolonner (“B”). Slett
Dette vil slette kolonne nummer 2, dvs. kolonne B.
Hvis vi vil slette flere kolonner, kan vi ikke legge inn kolonner. Vi må referere til kolonnene etter kolonneoverskrifter, alfabet.
Kolonner (“A: D”). Slett
Dette vil slette kolonnen fra A til D, dvs. de første 4 kolonnene.
Slik kan vi bruke "Slett kolonne" -metoden i VBA for å slette de spesielle kolonnene. I delen nedenfor vil vi se flere eksempler for å forstå det bedre. Les videre.
Eksempler på Excel VBA Slett kolonnemetode
Nedenfor er eksemplene for å slette kolonner ved hjelp av VBA.
Eksempel 1 - Bruke Slettemetode
Anta at du har databladet, noe sånt som nedenfor.
Hvis vi ønsker å slette kolonnemåneden Mar, velg først kolonneegenskapen.
Kode:
Sub Delete_Example1 () Kolonner (End Sub
Nevn kolonnenummer eller alfabet. I dette tilfellet er det enten 3 eller C.
Kode:
Sub Delete_Example1 () Kolonner (3). Slutt Sub
Bruk Slett-metoden.
Merk: Du får ikke IntelliSense-listen til å velge Slett-metoden. Bare skriv "Slett"Kode:
Sub Delete_Example1 () Kolonner (3). Slett End Sub
Eller du kan skrive inn kolonneadressen slik.
Kode:
Sub Delete_Example1 () Kolonner ("C"). Slett End Sub
Kjør denne koden ved hjelp av F5-tasten, eller du kan kjøre manuelt og se resultatet.
Begge kodene vil gjøre den samme jobben med å slette den nevnte kolonnen.
Hvis vi vil slette flere kolonner, må vi nevne dem i alfabetet. Vi kan ikke bruke kolonnetall her.
Hvis vi vil slette kolonnene 2 til 4, kan vi sende koden som nedenfor.
Kode:
Sub Delete_Example1 () Kolonner ("C: D"). Slett End Sub
Kjør denne koden manuelt gjennom kjøringsalternativet, eller trykk på F5-tasten. Dette vil slette kolonnene "Feb", "Mar" og "Apr."
Eksempel 2 - Slett kolonner med navnet på regnearket
Ovennevnte er en oversikt over hvordan du sletter kolonner ved hjelp av VBA-kode. Dette er imidlertid ikke god praksis for å slette kolonner. Uten å henvise til regnearknavnet, er det farlig å blindt slette kolonnen.
Hvis du ikke har nevnt navnet på regnearket, vil det arket som er aktivt, slette kolonnene i det arket.
Først må vi velge regnearket etter navnet.
Kode:
Sub Delete_Example2 () Regneark ("Salgsark"). Velg End Sub
Etter å ha valgt arket, må vi velge kolonnene. Vi kan også velge kolonnene ved å bruke VBA RANGE-objektet også.
Kode:
Sub Delete_Example2 () Regneark ("Salgsark"). Velg Range ("B: D"). Slett End Sub
Dette vil slette kolonnene B til D i regnearket "Salgsark". For denne koden spiller det ingen rolle hvilken som er aktiv. Likevel vil den bare slette de nevnte kolonnene i det arket.
Vi kan også konstruere VBA-koden i selve enkeltlinjen.
Kode:
Sub Delete_Example2 () Regneark ("Salgsark"). Område ("B: D"). Slett End Sub
Dette sletter også kolonnene "B til D" uten å velge regnearket "Salgsark".
Eksempel # 3 - Slett tomme kolonner
Anta at du har data som har alternative blanke kolonner som nedenfor.
Så slett alle alternative kolonner vi kan bruke koden nedenfor.
Kode:
Sub Delete_Example3 () Dim k as Integer For k = 1 til 4 kolonner (k + 1). Slett Neste k End Sub
Kjør denne koden ved hjelp av F5-tasten eller manuelt. Deretter vil den slette alle de alternative tomme kolonnene, og dataene våre vil se slik ut.
Eksempel nr. 4 - Slett kolonner for tomme celler
Se på dette eksemplet. Det er visse situasjoner der vi trenger å slette hele kolonnen hvis noen av de tomme cellene finnes i dataområdet. Vurder dataene nedenfor for et eksempel.
Alle de gulfargede cellene er blanke. Så her er kravet mitt å slette alle kolonnene med tomme celler. Koden nedenfor vil gjøre det.
Kode:
Sub Delete_Example4 () Range ("A1: F9"). Velg Selection.SpecialCells (xlCellTypeBlanks). Velg Selection.EntireColumn. Slett End Sub Sub
La meg forklare denne koden linje for linje for deg.
Dataene våre er der fra A1 til F9, så først må jeg velge det området, og koden nedenfor vil det.
Område ("A1: F9"). Velg
I dette utvalgte celleområdet må jeg velge cellene som er tomme. Så for å velge en tom celle, trenger vi spesielle celleregenskaper, og i den egenskapen har vi brukt celletype som tom.
Selection.SpecialCells (xlCellTypeBlanks) .Velg
Deretter vil den velge alle de tomme cellene, og i utvalget sletter vi hele kolonnen i utvalget.
Selection.EntireColumn.Delete
Så sluttresultatet vårt vil se slik ut.
Uansett hvor den har funnet den tomme cellen, har den slettet de tomme cellene hele kolonnen.
Du kan laste ned denne Excel VBA Delete Column her - VBA Delete Column Template
