Excel VBA: Tælle kolonner med data (2 eksempler)

Hugh West

16-10-2023 Makroer & Excel VBA
  • Del Dette
Hugh West

Når du har et lille datatabel med nogle få kolonner, kan du nemt tælle dem alle. Men for et stort datatabel er det ret svært at tælle alle kolonnerne uden fejl. Desuden kan nogle kolonner indeholde data, mens nogle kolonner kan være helt tomme. Det er derfor ret svært at tælle alle kolonnerne med data i et stort datatabel. I denne artikel lærer du 2 måder at tælle påkolonner med data ved hjælp af VBA i Excel med lethed.

Download arbejdsbog til øvelser

Du kan downloade Excel-filen fra følgende link og øve dig med den.

Tælle kolonner med data.xlsm

2 måder at tælle kolonner med data på ved hjælp af VBA i Excel

1. Tæl alle kolonnerne i et regneark med data ved hjælp af en simpel VBA-kode

Vi kan se de 3 kolonner i følgende datatabel. Nu vil vi bruge en VBA-kode til at bestemme antallet af anvendte kolonner i et enkelt Excel-regneark.

❶ Tryk først og fremmest på ALT + F11 for at åbne VBA-editoren.

❷ Derefter opretter du et nyt modul fra Indsæt> Modul.

❸ Derefter kopieres følgende VBA-script. 

 Public Sub CountUsedColumns() With Sheet1.UsedRange MsgBox "The number of columns with Data is: " & .Columns.Count End With End Sub

❹ Gå derefter tilbage til VBA-editoren, og tryk på CTRL + V for at indsætte det.

❺ Gem nu VBA-koden ved at trykke på CTRL + S knap.

❻ For at køre VBA-koden skal du gå til Udvikler og klik på Makroer Eller du kan også blot trykke på F5 nøgle.

Makro dialogboksen vises.

❼ Alt du skal gøre er at klikke på Kør knap.

Nu vil du se, at der er kommet en dialogboks, som siger, at antallet af kolonner med data er 3.

Læs mere: Sådan tæller du antallet af kolonner i Excel (3 nemme metoder)

2. Tæl alle kolonnerne i et givet område med data ved hjælp af en Excel VBA-kode

Med følgende VBA-kode kan du tælle alle kolonner med data i et givet område.

Sådan bruger du koden,

❶ Først og fremmest skal du åbne VBA-editoren ved at trykke på ALT + F11.

❷ Gå derefter til Indsæt> Modul for at oprette et nyt modul.

❸ Derefter kopieres følgende VBA-script. 

 Sub CountColumnsInARange() Dim xRng As Worksheet Set xRng = Worksheets("Sheet1") MsgBox "Samlet kolonne: " & xRng.Range("B5:D5").Columns.Count End Sub

❹ Gå tilbage til VBA-editoren, og tryk på CTRL + V for at indsætte det.

❺ Gem nu koden ved at trykke på CTRL + S.

❻ Gå til den Udvikler fanebladet og og tryk på Makroer for at åbne den Makro vindue.

Du kan også bare trykke på F5 for at benytte den Makro dialogboksen.

❼ Vælg funktionsnavnet i dialogboksen CountColumnsInARange og ramte den Kør knap.

Til sidst vises en lille dialogboks, der fortæller, at det samlede antal kolonner er 3.

Læs mere: Sådan tæller du kolonner til VLOOKUP i Excel (2 metoder)

Flere VBA-koder til at tælle kolonner i Excel

1. Brug VBA Range.End-metoden til at returnere det sidst anvendte kolonnenummer

Sådan får du det sidst anvendte kolonnenummer i et Excel-regneark,

❶ Først og fremmest skal du åbne VBA-editoren ved at trykke på ALT + F11.

❷ Gå derefter til Indsæt> Modul for at oprette et nyt modul.

❸ Kopier følgende VBA kode: 

 Option Explicit Sub LastColumn() Dim xRng As Integer xRng = Range("B4").End(xlToRight).Column MsgBox xRng End Sub

❹ Indsæt og gem koden i VBA-editoren.

❺ Tryk på F5 for at køre ovenstående kode.

Du får det sidste kolonnenummer i en pop-up dialogboks som på billedet nedenfor:

Læs mere: Sådan tæller du kolonner, indtil værdien er nået i Excel

2. Brug Range.Find-metoden til at returnere det sidst anvendte kolonnetal i Excel

Hvis du leder efter VBA-koder til at returnere det sidst anvendte kolonnenummer, skal du følge nedenstående trin:

❶ Tryk først og fremmest på ALT + F11 for at åbne VBA-editoren.

❷ Derefter opretter du et nyt modul fra Indsæt> Modul.

❸ Kopier følgende VBA-kode: 

 Sub LastUsedColumnNo() Dim xRng As Long xRng = Cells.Find(What:="*", _ After:=Range("B4"), _ LookAt:=xlPart, _ LookIn:=xlFormulas, _ SearchOrder:=xlByColumns, _ SearchDirection:=xlPrevious, _ MatchCase:=False).Column MsgBox "Last Used Column Numeber: " & xRng End Sub

❹ Gå derefter tilbage til VBA-editoren, og tryk på CTRL + V for at indsætte det.

❺ Gem nu VBA-koden ved at trykke på CTRL + S knap.

Tryk nu på F5 for at køre ovenstående kode.

Du får det sidst anvendte kolonnenummer i en pop-up dialogboks som på billedet nedenfor:

Ting at huske

  • Tryk på ALT + F11 for at åbne VBA-editoren.
  • Du kan trykke på ALT + F8 at benytte sig af den Makroer dialogboksen.
  • For at køre VBA-koden skal du trykke på F5.

Konklusion

For at opsummere, har vi diskuteret 2 måder at tælle kolonner med data ved hjælp af VBA i Excel. Du anbefales at downloade arbejdsbogen, der er vedhæftet sammen med denne artikel, og øve alle metoderne med det. Og tøv ikke med at stille spørgsmål i kommentarfeltet nedenfor. Vi vil forsøge at besvare alle relevante forespørgsler hurtigst muligt. Og besøg venligst vores hjemmeside ExcelWIKI for at udforske mere.

Forrige indlæg Udfyld ned til næste værdi i Excel (5 nemme metoder)
Næste indlæg Sådan grupperes rækker efter celleværdi i Excel (3 enkle måder)

Hugh West er en meget erfaren Excel-træner og analytiker med over 10 års erfaring i branchen. Han har en bachelorgrad i regnskab og finans og en kandidatgrad i Business Administration. Hugh har en passion for undervisning og har udviklet en unik undervisningstilgang, der er nem at følge og forstå. Hans ekspertviden om Excel har hjulpet tusindvis af studerende og fagfolk verden over med at forbedre deres færdigheder og udmærke sig i deres karriere. Gennem sin blog deler Hugh sin viden med verden og tilbyder gratis Excel-tutorials og onlinetræning for at hjælpe enkeltpersoner og virksomheder med at nå deres fulde potentiale.