Normalt i Excel-regneark har vi to forskellige metoder til at slette kolonner, den ene er tastaturgenvejen, og en anden ved hjælp af højreklik og indsæt-metoden, men i VBA skal vi bruge sletkommando og hele kolonnesætningen for at slette enhver kolonne sammen, tricket til dette er, at hvis vi har brug for at slette en enkelt kolonne, giver vi en enkelt kolonnehenvisning, men for de flere kolonner giver vi flere kolonnereferencer.
Excel VBA Slet kolonne
Vi udfører mange handlinger i excel som klip, kopier, indsæt, tilføj, slet, indsæt og mange sådanne ting vi gør regelmæssigt. Vi kan bruge alle disse handlinger ved hjælp af VBA-kodning. Et af de vigtige begreber, vi skal lære, er i VBA er "sletningskolonnen". I denne artikel vil vi vise dig, hvordan du bruger denne Slet kolonne-mulighed i VBA.
Hvad gør Slet kolonne i Excel VBA?
Som navnet siger, sletter den den angivne kolonne. For at udføre denne opgave skal vi først identificere, hvilken kolonne vi skal slette. Valget af kolonner, der skal slettes, er forskelligt fra et scenario til et andet, så vi vil dække nogle af de vigtige og ofte stillede scenarier i denne artikel.
Det er let at slette kolonnerne. Først skal vi bruge egenskaben COLUMNS til at vælge kolonnen, så nedenfor er syntaksen for Column Delete-metoden i VBA.
Kolonner (kolonnehenvisning). Slet
Så vi kan konstruere koden sådan:
Kolonner (2). Slet eller Kolonner (“B”). Slet
Dette sletter kolonne nummer 2, dvs. kolonne B.
Hvis vi vil slette flere kolonner, kan vi ikke indtaste kolonner. Vi er nødt til at henvise til kolonnerne efter kolonneoverskrifter, dvs. alfabeter.
Kolonner (“A: D”). Slet
Dette sletter kolonnen fra A til D, dvs. de første 4 kolonner.
På denne måde kan vi bruge metoden "Slet kolonne" i VBA til at slette de bestemte kolonner. I nedenstående afsnit vil vi se flere eksempler for at forstå det bedre. Læs videre.
Eksempler på Excel VBA Slet kolonnemetode
Nedenfor er eksemplerne for at slette kolonner ved hjælp af VBA.
Eksempel # 1 - Brug af Slet metode
Antag, at du har databladet, noget som nedenstående.
Hvis vi vil slette kolonnemåneden "Mar", skal du først vælge kolonneegenskaben.
Kode:
Sub Delete_Example1 () Kolonner (End Sub
Nævn kolonnenummer eller alfabet. I dette tilfælde er det enten 3 eller C.
Kode:
Under Slet_eksempel1 () Kolonner (3). Afslut sub
Brug metoden Slet.
Bemærk: Du får ikke IntelliSense-listen til at vælge Slet-metoden. Bare skriv "Slet"Kode:
Sub Delete_Example1 () Kolonner (3). Slet End Sub
Eller du kan indtaste kolonne-adressen som denne.
Kode:
Sub Delete_Example1 () Kolonner ("C"). Slet End Sub
Kør denne kode ved hjælp af F5-tasten, eller du kan køre manuelt og se resultatet.
Begge koder udfører det samme job med at slette den nævnte kolonne.
Hvis vi vil slette flere kolonner, skal vi nævne dem i alfabetet. Vi kan ikke bruge kolonnetal her.
Hvis vi vil slette kolonnerne 2 til 4, kan vi videregive koden som nedenfor.
Kode:
Sub Delete_Example1 () Kolonner ("C: D"). Slet End Sub
Kør denne kode manuelt gennem kørselsindstillingen, eller tryk på F5-tasten. Dette sletter kolonnerne "Feb", "Mar" og "Apr."
Eksempel # 2 - Slet kolonner med regnearknavn
Ovenstående er en oversigt over, hvordan du sletter kolonner ved hjælp af VBA-kode. Det er dog ikke den gode praksis at slette kolonner. Uden at henvise til regnearkets navn er det farligt at blindt slette kolonnen.
Hvis du ikke har nævnt regnearknavnet, vil det ark, der er aktivt, slette kolonnerne i det ark, uanset hvilket ark der er aktivt.
Først skal vi vælge regnearket efter dets navn.
Kode:
Sub Delete_Example2 () regneark ("Salgsark"). Vælg End Sub
Når du har valgt arket, skal vi vælge kolonnerne. Vi kan også vælge kolonnerne ved også at bruge VBA RANGE-objektet.
Kode:
Sub Delete_Example2 () regneark ("Salgsark"). Vælg rækkevidde ("B: D"). Slet End Sub
Dette sletter kolonnerne B til D i regnearket "Salgsark". For denne kode betyder det ikke noget, der er aktivt. Stadig sletter det kun de nævnte kolonner på det ark.
Vi kan også konstruere VBA-koden i selve den enkelte linje.
Kode:
Sub Delete_Example2 () Arbejdsark ("Salgsark"). Område ("B: D"). Slet End Sub
Dette sletter også kolonnerne "B til D" uden at vælge regnearket "Salgsark".
Eksempel # 3 - Slet tomme kolonner
Antag, at du har data, der har alternative tomme kolonner som nedenfor.
Så slet alle alternative kolonner, vi kan bruge nedenstående kode.
Kode:
Sub Delete_Example3 () Dim k som heltal For k = 1 til 4 kolonner (k + 1). Slet Next k End Sub
Kør denne kode ved hjælp af F5-tasten eller manuelt. Derefter vil den slette alle de alternative tomme kolonner, og vores data vil se sådan ud.
Eksempel # 4 - Slet tomme cellekolonner
Se nu på dette eksempel. Der er visse situationer, hvor vi har brug for at slette hele kolonnen, hvis nogen af de tomme celler findes i dataområdet. Overvej nedenstående data for et eksempel.
Alle de gulfarvede celler er tomme. Så her er mit krav at slette alle de tomme celler kolonner. Nedenstående kode gør det.
Kode:
Sub Delete_Example4 () Range ("A1: F9"). Vælg Selection.SpecialCells (xlCellTypeBlanks). Vælg Selection.EntireColumn. Slet End Sub
Lad mig forklare denne kode linje for linje for dig.
Vores data er der fra A1 til F9, så først skal jeg vælge det interval, og nedenstående kode vil det.
Område ("A1: F9"). Vælg
I dette valgte celleområde skal jeg vælge de celler, der er tomme. Så for at vælge en tom celle er vi nødt til specielle celleregenskaber, og i den egenskab har vi brugt celletype som blank.
Selection.SpecialCells (xlCellTypeBlanks) .Vælg
Derefter markerer det alle de tomme celler, og i markeringen sletter vi hele kolonnen i markeringen.
Selection.EntireColumn.Delete
Så vores slutresultat vil se sådan ud.
Uanset hvor den har fundet den tomme celle, har den slettet de tomme celler hele kolonnen.
Du kan downloade denne Excel VBA Slet kolonne her - VBA Slet kolonneskabelon
