Vba: het aantal gebruikte kolommen tellen

U kunt de volgende basissyntaxis gebruiken om het aantal kolommen te tellen dat in een Excel-werkblad wordt gebruikt met VBA:

 SubCountColumns ()
    Range(" A10 ") = Sheet1.Cells(1, Columns.Count).End(xlToLeft).Column
End Sub

In dit specifieke voorbeeld wordt het aantal kolommen geteld dat wordt gebruikt in het blad Blad1 en wordt het resultaat weergegeven in cel A10 .

Als u in plaats daarvan het aantal kolommen in een berichtvenster wilt weergeven, kunt u de volgende syntaxis gebruiken:

 SubCountColumns ()
    Dim LastCol As Long
    LastCol = Sheet1.Cells(1, Columns.Count).End(xlToLeft).Column
    MsgBox " Column Count: " & LastCol
End Sub

De volgende voorbeelden laten zien hoe u elk van deze methoden in de praktijk kunt gebruiken met de volgende dataset in Excel die informatie bevat over verschillende basketbalspelers:

Voorbeeld 1: Tel de kolommen die in VBA worden gebruikt en geef de resultaten in de cel weer

Stel dat we het aantal gebruikte kolommen willen tellen en de resultaten in een specifieke cel willen weergeven.

We kunnen hiervoor de volgende macro maken:

 SubCountColumns ()
    Range(" A10 ") = Sheet1.Cells(1, Columns.Count).End(xlToLeft).Column
End Sub

Wanneer we deze macro uitvoeren, ontvangen we de volgende uitvoer:

Merk op dat cel A10 de waarde 4 bevat.

Dit vertelt ons dat er 4 kolommen worden gebruikt.

Voorbeeld 2: Tel gebruikte kolommen in VBA en geef de resultaten weer in het berichtenvenster

Stel dat we in plaats daarvan het aantal gebruikte kolommen willen tellen en de resultaten in een berichtvenster willen weergeven.

We kunnen hiervoor de volgende macro maken:

 SubCountColumns ()
    Dim LastCol As Long
    LastCol = Sheet1.Cells(1, Columns.Count).End(xlToLeft).Column
    MsgBox " Column Count: " & LastCol
End Sub

Wanneer we deze macro uitvoeren, ontvangen we de volgende uitvoer:

Het berichtvenster vertelt ons dat er 4 kolommen worden gebruikt.

Opmerking : als er lege kolommen zijn, gevolgd door kolommen die gegevens bevatten, telt VBA de lege kolommen als „gebruikt“ in de berekening.

Aanvullende bronnen

In de volgende tutorials wordt uitgelegd hoe u andere veelvoorkomende taken in VBA kunt uitvoeren:

VBA: het aantal vellen in een werkmap tellen
VBA: het aantal rijen binnen bereik tellen
VBA: cellen tellen met specifieke tekst