See õpetus demonstreerib 8 näited kasutamise kohta VBA valida Kasutatud vahemik excel'i veerus. Üldiselt on UsedRange omadus excelis esindab töölehe seda osa, millel on andmed. Näidete selgeks illustreerimiseks rakendame me UsedRange omadus konkreetses andmekogumis kõikide näidete puhul.

Lae alla praktiline töövihik

Praktilise töövihiku saame alla laadida siit.

8 lihtsat näidet VBAst, et valida UsedRange veerus

Järgmisel pildil näeme andmekogumit, mida kasutame kõigi näidete puhul. Andmekogum sisaldab nimesid Müüjad , nende Asukoht , Piirkond, ja Kogusumma Selles andmekogumis loetakse kasutatud vahemikuks ka pealkirja. Seega on kasutatud vahemik järgmises andmekogumis ( B2:E15 ).

1. VBAga Exceli veerus UsedRange valimine VBAga

Kõigepealt valime kõik veerud meie andmestikust välja. Selleks kasutame funktsiooni VBA valige UsedRange omadus veergudes. Vaatame selle meetodi täitmise samme.

SAMMUD:

• Alustuseks, paremklikk aktiivsel lehel nimega Select_Columns '.
• Lisaks valige valik ' Vaata koodi '.

• Seejärel avab ülaltoodud toiming tühja VBA selle töölehe koodiakna. Selle koodiakna saame kätte ka, kui vajutame klahvi Alt + F11 .
• Seejärel sisestage sellesse koodiaknasse järgmine kood:

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

• Pärast seda klõpsake nuppu Käivita või vajutage F5 klahviga koodi käivitamiseks.

• Lõpuks saame tulemuse nagu järgmisel pildil. Näeme, et meie andmekogumi veergude kasutatud vahemik on nüüd valitud.

2. Kasutage VBA-d, et kopeerida kogu UsedRange veergu

Teises näites kasutame VBA et kopeerida kogu kasutatud vahemik meie andmekogumi veergudes. Üldiselt kasutame seda meetodit konkreetse piirkonna kopeerimiseks meie andmekogumist. Selle meetodi täitmiseks peame järgima alljärgnevaid samme.

SAMMUD:

• Kõigepealt minge aktiivse töölehe vahekaardile nimega Koopia '.
• Järgmine, paremklikk sellel vahekaardil ja valige valik ' Vaata koodi '.

• See avab tühja VBA praeguse töölehe koodiaken. Teine võimalus selle akna saamiseks on vajutada klahvi Alt + F11 klaviatuurilt.
• Seejärel sisestage alljärgnev kood sellesse koodiaknasse:

 Sub Copy_UsedRange() ActiveSheet.UsedRange.Copy End Sub 

• Nüüd, et käivitada kood, klõpsake Käivita või vajutage F5 võti.

• Lõpuks näeme tulemust nagu järgnevalt. Samuti näeme kasutatud vahemiku ümber piirjooni. See näitab, et kood on kopeerinud andmeid selle piiri sees.

Loe edasi: Excel VBA: dünaamilise vahemiku kopeerimine teise töövihikusse

3. Veergude arvu loendamine UsedRange'is VBA abil

Kolmandas näites loendame oma andmestiku veergude arvu, kasutades excel'i VBA valige Kasutatud vahemik meetodi veerus. See näide tagastab meie andmekogumi kasutatud vahemikus olevate veergude koguarvu sõnumikastis. Järgige selle meetodi täitmiseks alljärgnevaid samme.

SAMMUD:

• Kõigepealt valige aktiivne leht nimega Count_Columns '.
• Teiseks, paremklikk aktiivse lehe nimele ja klõpsake valikut Vaata koodi '.

• Ülaltoodud käsk avab tühja VBA aktiivse töölehe koodiakna. Me saame koodiakna kätte ka, kui vajutame klahvi Alt + F11 klaviatuurilt.
• Kolmandaks sisestage sellesse tühja koodiaknasse järgmine kood:

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

• Seejärel klõpsake nupule Käivita või vajutage F5 klahviga koodi käivitamiseks.

• Lõpuks saame tulemuse sõnumikastis. Kasutatud vahemiku veergude arv on 4 .

Loe edasi: Kuidas kasutada VBA-d, et lugeda ridu Exceli andmetega vahemikus (5 makrot)

4. Exceli VBA, et lugeda kasutatud vahemiku viimase veeru arvu

Eelmises meetodis võtsime välja kasutatud vahemiku viimase veeru numbri. Selles näites määrame aga kasutatud vahemiku viimase veeru numbri kogu töölehel, kasutades selleks funktsiooni VBA valige UsedRange vara. Vaatame, milliseid samme peame selle toimingu sooritamiseks järgima.

SAMMUD:

• Alustuseks, paremklikk aktiivsel lehel nimega Viimane veerg '.
• Seejärel valige valik ' Vaata koodi '.

• Seega, ülaltoodud käsk avab tühja VBA selle töölehe koodiaken. Alternatiivne viis selle koodiakna avamiseks on vajutada nuppu Alt + F11 .
• Seejärel sisestage sellesse koodiaknasse järgmine kood:

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

• Nüüd klõpsake nuppu Käivita või vajutage F5 klahviga koodi käivitamiseks.

• Lõpuks saame oma tulemuse sõnumikastis. Viimane veerg kasutatud vahemikus on 5. töölehe veerus.

Sarnased lugemised

• Kuidas kasutada VBA-d iga rea jaoks Exceli vahemikus
• Kasutage VBA-d, et valida Exceli aktiivsest lahtrist vahemik (3 meetodit)
• Exceli makro: Mitme veeru sorteerimine dünaamilise vahemikuga (4 meetodit)

5. VBAga UsedRange'i viimase veeru viimase lahtri valimine

Viiendas näites kasutame me VBA valige Kasutatud vahemik omadusega, et valida Exceli lehe viimase veeru viimane lahter. Selle näite illustreerimiseks jätkame oma eelmise andmestikuga. Nüüd vaatame, kuidas seda meetodit teha.

SAMMUD:

• Kõigepealt valige aktiivne leht nimega Last_Cell '.
• Järgmine, paremklikk selle lehe nimele. Valige valik ' Vaata koodi '.

• Siis saame tühja VBA koodiaknas. Samuti saame vajutada Alt + F11 et avada see koodiaken.
• Pärast seda sisestage sellesse koodiaknasse järgmine kood:

 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 

• Nüüd, et käivitada kood, klõpsake Käivita või vajutage F5 .

• Lõpuks näeme tulemust järgmisel pildil. Viimase veeru viimaseks valitud lahtriks on lahter E15 .

6. Valitud kasutatud vahemiku rakkude vahemiku leidmine Exceli VBAga

Selles näites rakendame VBA et leida exceli töölehel valitud kasutatud vahemiku lahtrite vahemik. Kasutame selleks funktsiooni VBA kood kõigi meie kasutatud vahemiku veergude jaoks. Kood tagastab nii lahtri vahemiku kui ka kasutatud vahemiku veeru aadressi. Järgige selle toimingu sooritamiseks alljärgnevaid samme.

SAMMUD:

• Alguses, paremklikk aktiivse lehe vahekaardil nimega Leia raku vahemik '.
• Teiseks valige valik ' Vaata koodi '.

• See avab tühja VBA koodiaken. Teine meetod selle koodiakna avamiseks on vajutada Alt + F11 .
• Kolmandaks sisestage sellesse koodiaknasse järgmine kood:

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

• Seejärel klõpsake koodi käivitamiseks nuppu Käivita või vajutage F5 võti.

• Lõpuks kuvatakse tulemuseks järgmise pildi sarnane sõnumikast.

Sarnased lugemised

• VBA ridade ja veergude läbimiseks Exceli vahemikus (5 näidet)
• Kuidas konverteerida vahemik Exceli VBA-s massiivi (3 võimalust)

7. Sisestage VBA UsedRange'i omadus tühjade lahtrite loendamiseks

Selles näites kasutame me VBA valige UsedRange omadust, et lugeda tühje lahtreid Exceli lehel. Mõnikord võib meie andmekogumi kasutatud vahemikus olla tühje lahtreid. Me saame nende tühjade lahtrite arvu hõlpsasti lugeda, kasutades funktsiooni UsedRange vara. Vaatame selle näite täitmise samme.

SAMMUD:

• Esiteks, paremklikk aktiivse lehe vahekaardil nimega Empty_Cells '.
• Seejärel valige valik ' Vaata koodi '.

• Ülaltoodud toiming avab tühja VBA koodiaken. Alternatiivne viis selle koodiakna avamiseks on vajutada Alt + F11 .
• Seejärel sisestage sellesse koodiaknasse järgmine kood:

 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 "Kasutatud lahtrite koguarv 4 kasutatud veerus on " & d & _ " ja neist " & _ j & " lahtrid on tühjad." End Sub 

• Pärast seda klõpsake nuppu Käivita või vajutage F5 klahviga koodi käivitamiseks.

• Lõpuks saame tulemuse sõnumikasti. Sõnumikastis kuvatakse meie kasutatud vahemikus olevate lahtrite ja tühjade lahtrite koguarv.

8. VBA UsedRange, et leida Exceli veerus esimene tühi lahter

Viimase näite puhul kasutame excel VBA valida Kasutatud vahemik omadus veerus, et leida esimene tühi lahter meie Exceli töölehel. See meetod leiab konkreetse veeru esimese tühja lahtri. Tühi lahter on alati väljaspool andmekogumi kasutatud vahemikku. Seega, kui mõni lahter on tühi või tühi kasutatud vahemikus, ei võeta seda meetodi puhul arvesse. Järgige nüüd allpool toodud samme selle meetodi teostamiseks.

SAMMUD:

• Alustuseks, paremklikk aktiivsel lehe vahekaardil nimega First_Empty '.
• Lisaks valige valik ' Vaata koodi '.

• See avab tühja VBA koodiaknas. Me võime ka vajutada Alt + F11 et avada see koodiaken.
• Lisaks sellele sisestage tühjaksjäänud lahtrisse järgmine kood VBA koodiaken:

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

• Seejärel klõpsake koodi käivitamiseks nuppu Käivita või vajutage F5 võti.

• Lõpuks sisestab ülaltoodud kood väärtuse ' FirstEmptyCell ' lahtris E16 See on veeru esimene tühi lahter. E pärast kasutatud andmekogumi vahemikku.

Loe edasi: Exceli VBA, et läbida vahemikku kuni tühja lahtrini (4 näidet)

Kokkuvõte

Lühidalt öeldes näitab see õpetus, et 8 näited, kuidas kasutada VBA valige UsedRange vara excel-tabelis. Et oma oskusi proovile panna, laadige alla selle artikli jaoks kasutatud harjutustööleht. Kui teil on küsimusi, siis kommenteerige julgelt allpool olevasse lahtrisse. Meie meeskond püüab teie sõnumile võimalikult kiiresti reageerida. Hoidke silm peal, et saada rohkem uuenduslikke Microsoft Excel lahendusi tulevikus.