Denne vejledning vil demonstrere 8 eksempler på anvendelse af VBA for at vælge den Anvendt sortiment i en kolonne i excel. Generelt er det UsedRange egenskaben i Excel repræsenterer den del af et regneark, der indeholder data. For at illustrere eksemplerne tydeligt vil vi anvende UsedRange egenskab i et bestemt datasæt for alle eksempler.

Download arbejdsbog til øvelser

Vi kan downloade arbejdsbogen til øvelser her.

8 nemme eksempler på VBA til at vælge UsedRange i kolonne

I det følgende billede kan vi se det datasæt, som vi vil bruge til alle eksemplerne. Datasættet indeholder navnene på Salgsfolk , deres Placering , Region, og ' Beløb i alt I dette datasæt vil det anvendte område blive betragtet som værende inklusive overskriften. Det anvendte område i følgende datasæt er således ( B2:E15 ).

1. Vælg UsedRange i kolonne med VBA i Excel

Først og fremmest skal vi vælge alle kolonnerne fra vores datasæt. For at gøre dette skal vi bruge VBA Vælg UsedRange egenskaben i kolonner. Lad os se, hvordan denne metode udføres.

TRIN:

• Til at begynde med, højreklik på på det aktive ark ved navn ' Vælg_kolonner '.
• Vælg desuden indstillingen ' Se kode '.

• Derefter åbner ovenstående handling en tom VBA kodevinduet for det pågældende regneark. Vi kan også få dette kodevindue ved at trykke på Alt + F11 .
• Skriv derefter følgende kode i kodevinduet:

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

• Klik derefter på Kør eller tryk på F5 for at køre koden.

• Til sidst får vi resultatet som i følgende billede. Vi kan se, at det anvendte område i kolonnerne fra vores datasæt nu er valgt.

2. Brug VBA til at kopiere hele UsedRange i kolonnen

I det andet eksempel bruger vi VBA for at kopiere hele det anvendte område i kolonnerne fra vores datasæt. Generelt bruger vi denne metode til at kopiere et specifikt område fra vores datasæt. Vi skal følge nedenstående trin for at udføre denne metode.

TRIN:

• Gå først til det aktive regneark med navnet ' Kopier '.
• Næste, højreklik på på denne fane og vælg indstillingen ' Se kode '.

• Det åbner en tom VBA kodevinduet for det aktuelle regneark. En anden måde at få dette vindue frem på er ved at trykke på Alt + F11 fra tastaturet.
• Indsæt derefter nedenstående kode i dette kodevindue:

 Sub Copy_UsedRange() ActiveSheet.UsedRange.Copy End Sub 

• For at køre koden skal du nu klikke på Kør eller tryk på F5 nøgle.

• Til sidst kan vi se resultatet som nedenfor. Vi kan også se en grænse omkring det anvendte område. Det indikerer, at koden har kopieret data inden for denne grænse.

Læs mere: Excel VBA: Kopier dynamisk område til en anden projektmappe

3. Tæl antallet af kolonner i UsedRange ved hjælp af VBA

I det tredje eksempel tæller vi antallet af kolonner i vores datasæt ved hjælp af excel VBA Vælg Anvendt sortiment metoden i kolonnen. Dette eksempel returnerer det samlede antal kolonner inden for det anvendte område i vores datasæt i en meddelelsesboks. Følg nedenstående trin for at udføre denne metode.

TRIN:

• Først skal du vælge det aktive ark ved navn ' Count_Columns '.
• For det andet, højreklik på på det aktive arks navn og klik på indstillingen ' Se kode '.

• Ovenstående kommando åbner en tom VBA kodevinduet for det aktive regneark. Vi kan også få kodevinduet frem ved at trykke på Alt + F11 fra tastaturet.
• For det tredje skal du indtaste følgende kode i det tomme kodevindue:

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

• Klik derefter på Kør eller tryk på F5 for at køre koden.

• Til sidst får vi resultatet i en beskedboks. Antallet af kolonner i det anvendte område er 4 .

Læs mere: Sådan bruger du VBA til at tælle rækker i et område med data i Excel (5 makroer)

4. Excel VBA til at tælle antallet af sidste kolonne i det anvendte område

I den foregående metode udvandt vi nummeret på den sidste kolonne i det anvendte område. I dette eksempel vil vi imidlertid bestemme nummeret på den sidste kolonne i det anvendte område på hele regnearket ved hjælp af VBA Vælg UsedRange Lad os se de trin, vi skal følge for at udføre denne handling.

TRIN:

• Til at begynde med, højreklik på på det aktive ark ved navn ' Sidste kolonne '.
• Vælg derefter indstillingen ' Se kode '.

• Så ovenstående kommando åbner en tom VBA kodevinduet for det pågældende regneark. En alternativ måde at åbne kodevinduet på er ved at trykke på Alt + F11 .
• Derefter indsættes følgende kode i kodevinduet:

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

• Klik nu på Kør eller tryk på F5 for at køre koden.

• Til sidst får vi vores resultat i en beskedboks. Den sidste kolonne i det anvendte område er 5. kolonnen i regnearket.

Lignende læsninger

• Sådan bruges VBA til hver række i et område i Excel
• Brug VBA til at vælge område fra aktiv celle i Excel (3 metoder)
• Excel-makro: Sortere flere kolonner med dynamisk område (4 metoder)

5. Vælg sidste celle i sidste kolonne fra UsedRange med VBA

I det femte eksempel vil vi bruge VBA Vælg Anvendt sortiment egenskaben for at vælge den sidste celle i den sidste kolonne i et Excel-ark. For at illustrere dette eksempel fortsætter vi med vores tidligere datasæt. Se nu på trinene for at udføre denne metode.

TRIN:

• Først skal du vælge det aktive ark ved navn ' Sidste_Celle '.
• Næste, højreklik på på det pågældende arknavn. Vælg indstillingen ' Se kode '.

• Derefter får vi et tomt VBA kodevinduet. Vi kan også trykke på Alt + F11 for at åbne dette kodevindue.
• Skriv derefter følgende kode i kodevinduet:

 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 

• For at køre koden skal du nu klikke på Kør eller tryk på F5 .

• Endelig kan vi se resultatet i følgende billede. Den valgte sidste celle i den sidste kolonne er celle E15 .

6. Find celleområde i valgt UsedRange med Excel VBA

I dette eksempel vil vi anvende VBA til at finde celleområdet i det valgte anvendte område i et Excel-regneark. Vi bruger VBA koden for alle kolonnerne i vores anvendte område. Koden returnerer celleområdet samt adressen på kolonnen i det anvendte område. Følg nedenstående trin for at udføre denne handling.

TRIN:

• I begyndelsen, højreklik på på det aktive faneblad med navnet ' Find celleområde '.
• For det andet skal du vælge indstillingen ' Se kode '.

• Det åbner en tom VBA En anden metode til at åbne dette kodevindue er at trykke på Alt + F11 .
• For det tredje skal du indtaste følgende kode i kodevinduet:

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

• For at køre koden skal du derefter klikke på Kør eller tryk på F5 nøgle.

• I sidste ende vises resultatet i en beskedboks som det følgende billede.

Lignende læsninger

• VBA til at gennemløbe rækker og kolonner i et område i Excel (5 eksempler)
• Sådan konverteres Range til Array i Excel VBA (3 måder)

7. Indsæt VBA UsedRange-egenskab for at tælle tomme celler

I dette eksempel vil vi bruge VBA Vælg UsedRange egenskaben til at tælle tomme celler i et Excel-ark. Nogle gange kan vi have tomme celler i det anvendte område i vores datasæt. Vi kan nemt tælle antallet af disse tomme celler ved at bruge egenskaben UsedRange Lad os se trinene for at udføre dette eksempel.

TRIN:

• Først, højreklik på på det aktive faneblad med navnet ' Tomme_Celler '.
• Vælg derefter indstillingen ' Se kode '.

• Ovenstående handling åbner en tom VBA En alternativ måde at åbne kodevinduet på er ved at trykke på Alt + F11 .
• Indsæt derefter følgende kode i dette kodevindue:

 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 "Samlet antal brugte celler i 4 brugte kolonner er " & d & _; " og ud af disse " & _ j & " er celle(r) tom(e)." End Sub 

• Derefter skal du klikke på Kør eller tryk på F5 for at køre koden.

• Til sidst får vi resultatet i meddelelsesboksen. Meddelelsesboksen viser antallet af samlede celler og tomme celler i vores anvendte område.

8. VBA UsedRange til at finde den første tomme celle i kolonnen i Excel

I det sidste eksempel vil vi bruge excel VBA for at vælge den Anvendt sortiment egenskaben i kolonnen for at finde den første tomme celle i vores Excel-regneark. Denne metode finder den første tomme celle i en bestemt kolonne. Den tomme celle vil altid være uden for det anvendte område i datasættet. Så hvis en celle er tom eller tom i det anvendte område, vil den ikke blive taget i betragtning i denne metode. Følg nedenstående trin for at udføre denne metode.

TRIN:

• Til at begynde med, højreklik på på det aktive faneblad med navnet ' First_Empty '.
• Vælg desuden indstillingen ' Se kode '.

• Det åbner en tom VBA kodevinduet. Vi kan også trykke på Alt + F11 for at åbne dette kodevindue.
• Skriv desuden følgende kode i det tomme felt VBA kodevindue:

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

• For at køre koden skal du derefter klikke på Kør eller tryk på F5 nøgle.

• Endelig vil ovenstående kode indsætte værdien ' FirstEmptyCell ' i celle E16 Det er den første tomme celle i kolonnen E efter det anvendte område i datasættet.

Læs mere: Excel VBA til at gennemløbe intervallet indtil tom celle (4 eksempler)

Konklusion

Kort fortalt viser denne vejledning 8 eksempler på at bruge VBA Vælg UsedRange ejendom i et Excel-ark. Hvis du vil afprøve dine færdigheder, kan du downloade det øvelsesark, der blev brugt til denne artikel. Du er velkommen til at kommentere i feltet nedenfor, hvis du har spørgsmål. Vores team vil forsøge at reagere på din besked så hurtigt som muligt. Hold øje med flere innovative Microsoft Excel løsninger i fremtiden.