Deze handleiding demonstreert 8 voorbeelden van het gebruik van VBA om de Gebruikt Bereik in een kolom in excel. Over het algemeen is de UsedRange eigenschap in excel vertegenwoordigt het deel van een werkblad waar gegevens op staan. Om de voorbeelden duidelijk te illustreren zullen we de UsedRange eigenschap in een bepaalde dataset voor alle voorbeelden.

Download Praktijk werkboek

We kunnen het oefenwerkboek hier downloaden.

8 Eenvoudige voorbeelden van VBA om UsedRange in een kolom te selecteren

In de volgende afbeelding zien we de dataset die we voor alle voorbeelden zullen gebruiken. De dataset bevat de namen van Verkopers hun Locatie , Regio, en ' Totaalbedrag In deze dataset wordt het gebruikte bereik geacht de rubriek te omvatten. Het gebruikte bereik in de volgende dataset is dus ( B2:E15 ).

1. Selecteer UsedRange in kolom met VBA in Excel

Eerst en vooral zullen we alle kolommen uit onze dataset selecteren. Hiervoor gebruiken we de VBA selecteer UsedRange eigenschap in kolommen. Laten we de stappen bekijken om deze methode uit te voeren.

STAPPEN:

• Om te beginnen, klik met de rechtermuisknop op op het actieve blad met de naam ' Selecteer kolommen '.
• Selecteer bovendien de optie ' Code bekijken '.

• Dan opent bovenstaande actie een lege VBA codevenster voor dat werkblad. We kunnen dit codevenster ook krijgen door te drukken op Alt + F11 .
• Typ vervolgens de volgende code in dat codevenster:

 Sub Select_Columns() Sheets("Select_Columns").Select ActiveSheet.UsedRange.Select End Sub 

• Klik daarna op de Ren of druk op de F5 om de code uit te voeren.

• Uiteindelijk krijgen we het resultaat zoals in de volgende afbeelding. We zien dat het gebruikte bereik in kolommen uit onze dataset nu geselecteerd is.

2. Gebruik VBA om het hele UsedRange in de kolom te kopiëren.

In het tweede voorbeeld gebruiken we VBA om het hele gebruikte bereik in de kolommen uit onze dataset te kopiëren. Over het algemeen gebruiken we deze methode om een specifiek gebied uit onze dataset te kopiëren. We moeten de onderstaande stappen volgen om deze methode uit te voeren.

STAPPEN:

• Ga eerst naar het actieve werkblad met de naam ' Kopie '.
• Volgende, klik met de rechtermuisknop op op dat tabblad en selecteer de optie ' Code bekijken '.

• Het zal een lege VBA codevenster voor het huidige werkblad. Een andere manier om dit venster te krijgen is door te drukken op Alt + F11 van het toetsenbord.
• Voeg dan de onderstaande code in dat codevenster in:

 Sub Copy_UsedRange() ActiveSheet.UsedRange.Copy End Sub 

• Om de code uit te voeren klikt u nu op de Ren of druk op de F5 sleutel.

• Uiteindelijk zien we het resultaat als volgt. Ook zien we een rand rond het gebruikte bereik. Dit geeft aan dat de code gegevens binnen deze rand heeft gekopieerd.

Lees meer: Excel VBA: Dynamisch bereik kopiëren naar een andere werkmap

3. Aantal kolommen in UsedRange tellen met VBA

In het derde voorbeeld tellen we het aantal kolommen in onze dataset met behulp van excel VBA selecteer Gebruikt Bereik Dit voorbeeld geeft het totale aantal kolommen binnen het gebruikte bereik in onze dataset weer in een berichtvenster. Volg de onderstaande stappen om deze methode uit te voeren.

STAPPEN:

• Selecteer eerst het actieve blad met de naam ' Aantal kolommen '.
• Ten tweede, klik met de rechtermuisknop op op de actieve bladnaam en klik op de optie ' Code bekijken '.

• Het bovenstaande commando opent een lege VBA codevenster voor het actieve werkblad. We kunnen het codevenster ook krijgen door te drukken op Alt + F11 van het toetsenbord.
• Voer ten derde de volgende code in dat lege codevenster in:

 Sub Count_Columns() MsgBox ActiveSheet.UsedRange.Columns.Count End Sub 

• Klik vervolgens op de Ren of druk op de F5 om de code uit te voeren.

• Tenslotte krijgen we het resultaat in een berichtvenster. Het aantal kolommen in het gebruikte bereik is 4 .

Lees meer: Hoe VBA gebruiken om rijen te tellen in een bereik met gegevens in Excel (5 macro's)

4. Excel VBA om aantal laatste kolommen in gebruikt bereik te tellen

In de vorige methode haalden we het nummer van de laatste kolom in het gebruikte bereik. In dit voorbeeld bepalen we echter het nummer van de laatste kolom in het gebruikte bereik over het hele werkblad met behulp van de VBA selecteer UsedRange eigendom. Laten we eens kijken welke stappen we moeten volgen om deze actie uit te voeren.

STAPPEN:

• Om te beginnen, klik met de rechtermuisknop op op het actieve blad met de naam ' Laatste kolom '.
• Selecteer vervolgens de optie ' Code bekijken '.

• Het bovenstaande commando opent dus een lege VBA Een alternatieve manier om dat codevenster te openen is door op Alt + F11 .
• Voeg daarna de volgende code in dat codevenster in:

 Sub Column_Last() Dim Column_Last As Integer Column_Last = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Column MsgBox Column_Last End Sub 

• Klik nu op de Ren of druk op de F5 om de code uit te voeren.

• Uiteindelijk krijgen we ons resultaat in een berichtvenster. De laatste kolom in het gebruikte bereik is de 5e kolom van het werkblad.

Vergelijkbare lezingen

• VBA gebruiken voor elke rij in een bereik in Excel
• VBA gebruiken om bereik te selecteren in actieve cel in Excel (3 methoden)
• Excel Macro: Meerdere kolommen sorteren met dynamisch bereik (4 methoden)

5. Selecteer de laatste cel van de laatste kolom uit UsedRange met VBA

In het vijfde voorbeeld gebruiken we de VBA selecteer Gebruikt Bereik eigenschap om de laatste cel van de laatste kolom in een excelblad te selecteren. Om dit voorbeeld te illustreren, gaan we verder met onze vorige dataset. Bekijk nu de stappen om deze methode uit te voeren.

STAPPEN:

• Selecteer eerst het actieve blad met de naam ' Last_Cell '.
• Volgende, klik met de rechtermuisknop op op die bladnaam. Selecteer de optie ' Code bekijken '.

• Dan krijgen we een blanco VBA codevenster. Ook kunnen we op Alt + F11 om dat codevenster te openen.
• Daarna typt u de volgende code in dat codevenster:

 Sub Last_Cell_UsedRange() Dim wcol As Long Dim wrow As Long wrow = ActiveSheet.UsedRange.Rows.Count wcol = ActiveSheet.UsedRange.Columns.Count ActiveSheet.UsedRange.Select Selection.Cells(wrow, wcol).Select End Sub 

• Om de code uit te voeren klikt u nu op de Ren of druk op de F5 .

• Tenslotte zien we het resultaat in de volgende afbeelding. De geselecteerde laatste cel van de laatste kolom is cel E15 .

6. Zoek celbereik van geselecteerd UsedRange met Excel VBA

In dit voorbeeld zullen we VBA om het celbereik van het geselecteerde gebruikte bereik in een Excel-werkblad te vinden. We zullen de VBA De code geeft het celbereik en het adres van de kolom in het gebruikte bereik. Volg de onderstaande stappen om deze actie uit te voeren.

STAPPEN:

• In het begin, klik met de rechtermuisknop op op het actieve blad met de naam ' Zoek celbereik '.
• Selecteer ten tweede de optie ' Code bekijken '.

• Het zal een lege VBA Een andere methode om dit codevenster te openen is door op Alt + F11 .
• Voer ten derde de volgende code in dat codevenster in:

 Sub Find_UsedRange() MsgBox ActiveSheet.UsedRange.Address End Sub 

• Om de code uit te voeren klikt u vervolgens op de Ren of druk op de F5 sleutel.

• Uiteindelijk toont een berichtvenster als de volgende afbeelding het resultaat.

Vergelijkbare lezingen

• VBA om door rijen en kolommen in een bereik in Excel te lussen (5 voorbeelden)
• Hoe bereik converteren naar array in Excel VBA (3 manieren)

7. VBA UsedRange-eigenschap invoegen om lege cellen te tellen

In dit voorbeeld gebruiken we de VBA selecteer UsedRange eigenschap om lege cellen in een excelblad te tellen. Soms hebben we lege cellen in het gebruikte bereik van onze dataset. We kunnen gemakkelijk het aantal van die lege cellen tellen met behulp van de UsedRange eigendom. Laten we de stappen bekijken om dit voorbeeld uit te voeren.

STAPPEN:

• Eerst, klik met de rechtermuisknop op op het actieve blad met de naam ' Lege cellen '.
• Selecteer vervolgens de optie ' Code bekijken '.

• Bovenstaande actie opent een lege VBA Een alternatieve manier om dat codevenster te openen is door te drukken op Alt + F11 .
• Voeg dan de volgende code in dat codevenster in:

 Sub Count_Empty_Cells() Dim wCell As Range Dim wRange As Range Dim d As Long Dim j As Long Set wRange = ActiveSheet.UsedRange For Each wCell In ActiveSheet.UsedRange d = d + 1 If IsEmpty(wCell) = True Then j = j + 1 End If Next wCell MsgBox "Total number of used cell(s)in 4 used columns is " & d & _ " and out of those " & _ j & " cell(s) are empty." End Sub 

• Klik daarna op Ren of druk op de F5 om de code uit te voeren.

• Tenslotte krijgen we het resultaat in het berichtvak. Het berichtvak toont het aantal totale cellen en lege cellen in ons gebruikte bereik.

8. VBA UsedRange om de eerste lege cel in een kolom in Excel te vinden

In het laatste voorbeeld gebruiken we de excel VBA om de Gebruikt bereik eigenschap in de kolom om de eerste lege cel in ons Excel werkblad te vinden. Deze methode zal de eerste lege cel van een bepaalde kolom vinden. De lege cel zal altijd buiten het gebruikte bereik van de dataset zijn. Dus, als een cel leeg of leeg is in het gebruikte bereik zal het niet worden beschouwd in deze methode. Volg nu de onderstaande stappen om deze methode uit te voeren.

STAPPEN:

• Om te beginnen, klik met de rechtermuisknop op op het actieve blad met de naam ' First_Empty '.
• Selecteer bovendien de optie ' Code bekijken '.

• Het zal een lege VBA codevenster. We kunnen ook op Alt + F11 om dat codevenster te openen.
• Typ bovendien de volgende code in de lege ruimte VBA codevenster:

 Public Sub First_Empty_Cell() ActiveSheet.Range("E" & ActiveSheet.Rows.Count) _ .End(xlUp).Offset(1, 0).Value = "FirstEmptyCell" End Sub 

• Om de code uit te voeren klikt u vervolgens op de Ren of druk op de F5 sleutel.

• Tenslotte zal de bovenstaande code de waarde ' FirstEmptyCell ' in cel E16 Het is de eerste lege cel van kolom E na het gebruikte bereik van de dataset.

Lees meer: Excel VBA om door Bereik te lussen tot lege cel (4 voorbeelden)

Conclusie

In een notendop toont deze handleiding 8 voorbeelden om de VBA selecteer UsedRange eigenschap in een excelblad. Om uw vaardigheden op de proef te stellen, kunt u het voor dit artikel gebruikte oefenwerkblad downloaden. Voel u vrij om commentaar te geven in het vak hieronder als u vragen hebt. Ons team zal proberen zo snel mogelijk op uw bericht te reageren. Houd een oogje in het zeil voor meer innovatieve Microsoft Excel oplossingen in de toekomst.