Vba: hoe de laatst gebruikte kolom te vinden

U kunt de volgende basissyntaxis in VBA gebruiken om de laatst gebruikte kolom in een Excel-werkblad te vinden:

 Sub FindLastColumn()
Range(" A14 ") = Cells.Find("*",Range(" A1 "),xlFormulas,xlPart,xlByColumns,xlPrevious,False).Column
End Sub

In dit specifieke voorbeeld wordt gezocht naar de laatst gebruikte kolom in het huidige blad en wordt het resultaat geretourneerd in cel A14 .

Als u in plaats daarvan de laatste kolom van een berichtvenster wilt weergeven, kunt u de volgende syntaxis gebruiken:

 Sub FindLastColumn()
Dim LastCol As Long
    
LastCol=Cells.Find("*",Range(" A1 "),xlFormulas,xlPart,xlByColumns,xlPrevious,False).Column

MsgBox " Last Column: " & LastCol
End Sub

De volgende voorbeelden laten zien hoe u elk van deze methoden in de praktijk kunt gebruiken.

Gerelateerd: VBA: de laatst gebruikte regel vinden

Voorbeeld 1: Zoek de laatste kolom met VBA en geef de resultaten in de cel weer

Stel dat we de volgende gegevensset in Excel hebben die informatie bevat over verschillende basketbalspelers:

We kunnen de volgende macro maken om de laatste kolom te vinden die in dit Excel-werkblad is gebruikt en het resultaat in cel A14 weergeven:

 Sub FindLastColumn()
Range(" A14 ") = Cells.Find("*",Range(" A1 "),xlFormulas,xlPart,xlByColumns,xlPrevious,False).Column
End Sub

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

Merk op dat cel A14 de waarde 2 bevat.

Dit vertelt ons dat de laatste kolom die in dit specifieke blad wordt gebruikt, kolom 2 is.

Het is ook vermeldenswaard dat als u lege kolommen vóór een gebruikte kolom heeft, deze macro altijd de laatst gebruikte kolom zal vinden.

Stel dat we de macro bijvoorbeeld uitvoeren op de volgende gegevensset:

Cel A14 bevat de waarde 5 omdat dit de laatste kolom is die waarden bevat.

Voorbeeld 2: Zoek de laatste kolom met VBA en geef de resultaten weer in het berichtenvenster

Stel dat we in plaats daarvan de laatst gebruikte kolom in een blad willen vinden en het kolomnummer in een berichtvenster willen weergeven.

We kunnen hiervoor de volgende macro maken:

 Sub FindLastColumn()
Dim LastCol As Long
    
LastCol=Cells.Find("*",Range(" A1 "),xlFormulas,xlPart,xlByColumns,xlPrevious,False).Column

MsgBox " Last Column: " & LastCol
End Sub

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

Het berichtvenster vertelt ons dat de laatste kolom die in het blad wordt gebruikt, kolom 2 is.

Opmerking : u kunt hier de volledige documentatie voor de VBA Find- methode vinden.

Aanvullende bronnen

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

VBA: Hoe de gemiddelde waarde van het bereik te berekenen
VBA: het aantal rijen binnen bereik tellen
VBA: dubbele waarden binnen bereik verwijderen