Šajā pamācībā tiks demonstrēti 8 izmantošanas piemēri VBA lai atlasītu Izmantotais diapazons excel slejā. Parasti UsedRange īpašība excel apzīmē darblapas daļu, kurā ir dati. Lai uzskatāmi ilustrētu piemērus, mēs piemērosim UsedRange īpašība konkrētā datu kopā visiem piemēriem.

Lejupielādēt Practice Workbook

Mēs varam lejupielādēt prakses darba burtnīcu no šejienes.

8 vienkārši VBA piemēri, lai kolonnā atlasītu UsedRange

Nākamajā attēlā redzams datu kopums, ko izmantosim visiem piemēriem. Datu kopā ir šādi nosaukumi. Pārdevēji , to Atrašanās vieta , Reģions, un Kopējā summa Šajā datu kopā par izmantoto diapazonu tiks uzskatīts diapazons, kas ietver virsrakstu. Tādējādi šajā datu kopā izmantotais diapazons ir ( B2:E15 ).

1. Izvēlieties UsedRange kolonnā ar VBA programmā Excel

Pirmkārt un galvenokārt, mēs atlasīsim visas datu kopas kolonnas. Lai to izdarītu, mēs izmantosim VBA atlasīt UsedRange īpašība kolonnās. Apskatīsim šīs metodes izpildes soļus.

PASĀKUMI:

• Vispirms, ar peles labo pogu noklikšķiniet uz aktīvajā lapā ar nosaukumu Select_Columns '.
• Turklāt izvēlieties opciju Skatīt kodu '.

• Pēc tam ar iepriekš minēto darbību tiek atvērts tukšs VBA šīs darblapas koda logu. Šo koda logu var iegūt arī, nospiežot Alt + F11 .
• Tālāk šajā koda logā ievadiet šādu kodu:

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

• Pēc tam noklikšķiniet uz Palaist vai nospiediet F5 taustiņu, lai palaistu kodu.

• Visbeidzot, mēs iegūstam rezultātu, kas attēlots attēlā. Mēs redzam, ka tagad ir atlasīts mūsu datu kopas kolonnās izmantotais diapazons.

2. Izmantojiet VBA, lai kopētu visu izmantoto diapazonu kolonnā

Otrajā piemērā mēs izmantosim VBA lai nokopētu visu izmantoto diapazonu mūsu datu kopas kolonnās. Parasti mēs izmantojam šo metodi, lai nokopētu konkrētu apgabalu no mūsu datu kopas. Lai veiktu šo metodi, mums ir jāveic turpmāk minētās darbības.

PASĀKUMI:

• Vispirms dodieties uz aktīvās darblapas cilni ar nosaukumu Kopēt '.
• Nākamais, ar peles labo pogu noklikšķiniet uz šajā cilnē un atlasiet opciju Skatīt kodu '.

• Tiks atvērts tukšs VBA pašreizējās darblapas koda logu. Cits veids, kā iegūt šo logu, ir nospiest Alt + F11 no tastatūras.
• Pēc tam šajā koda logā ievietojiet tālāk norādīto kodu:

 Sub Copy_UsedRange() ActiveSheet.UsedRange.Copy End Sub 

• Tagad, lai palaistu kodu, noklikšķiniet uz Palaist vai nospiediet F5 atslēga.

• Visbeidzot, mēs redzam šādu rezultātu. Ap izmantoto diapazonu ir redzama arī robeža. Tā norāda, ka kods ir kopējis datus šīs robežas iekšpusē.

Lasīt vairāk: Excel VBA: Dinamiskā diapazona kopēšana citā darbgrāmatā

3. Skaitīt kolonnu skaitu UsedRange, izmantojot VBA

Trešajā piemērā mēs saskaitīsim mūsu datu kopas kolonnu skaitu, izmantojot excel VBA atlasīt Izmantotais diapazons Šajā piemērā ziņojuma lodziņā tiks atgriezts kopējais kolonnu skaits, kas atrodas izmantotajā diapazonā mūsu datu kopā. Lai izpildītu šo metodi, izpildiet tālāk norādītās darbības.

PASĀKUMI:

• Vispirms izvēlieties aktīvo lapu ar nosaukumu Count_Columns '.
• Otrkārt, ar peles labo pogu noklikšķiniet uz uz aktīvās lapas nosaukuma un noklikšķiniet uz opcijas Skatīt kodu '.

• Iepriekš minētā komanda atver tukšu VBA aktīvās darblapas koda logu. Koda logu varam iegūt arī, nospiežot Alt + F11 no tastatūras.
• Treškārt, šajā tukšajā koda logā ievadiet šādu kodu:

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

• Pēc tam noklikšķiniet uz Palaist vai nospiediet F5 taustiņu, lai palaistu kodu.

• Visbeidzot, mēs saņemam rezultātu ziņojuma lodziņā. Izmantotā diapazona kolonnu skaits ir šāds. 4 .

Lasīt vairāk: Kā izmantot VBA, lai saskaitītu rindas diapazonā ar datiem programmā Excel (5 makroekrāni)

4. Excel VBA, lai saskaitītu izmantoto diapazonu pēdējo kolonnu skaitu

Iepriekšējā metodē tika iegūts izmantotā diapazona pēdējās kolonnas numurs. Tomēr šajā piemērā mēs noteiksim izmantotā diapazona pēdējās kolonnas numuru visā darblapā, izmantojot VBA atlasīt UsedRange īpašums. Apskatīsim darbības, kas mums jāveic, lai veiktu šo darbību.

PASĀKUMI:

• Vispirms, ar peles labo pogu noklikšķiniet uz aktīvajā lapā ar nosaukumu Pēdējā sleja '.
• Pēc tam atlasiet opciju Skatīt kodu '.

• Tātad iepriekš minētā komanda atver tukšu VBA šīs darblapas koda logu. Alternatīvs veids, kā atvērt šo koda logu, ir nospiest pogu Alt + F11 .
• Pēc tam šajā koda logā ievietojiet šādu kodu:

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

• Tagad noklikšķiniet uz Palaist vai nospiediet F5 taustiņu, lai palaistu kodu.

• Beigās mēs saņemam rezultātu ziņojuma lodziņā. Pēdējā kolonna izmantotajā diapazonā ir. 5. darblapas slejā.

Līdzīgi lasījumi

• Kā lietot VBA katrai rindai diapazonā programmā Excel
• VBA izmantošana, lai atlasītu diapazonu no aktīvās šūnas programmā Excel (3 metodes)
• Excel makro: vairāku kolonnu šķirošana ar dinamisko diapazonu (4 metodes)

5. Izmantojot VBA, atlasiet pēdējās kolonnas pēdējo šūnu no UsedRange.

Piektajā piemērā mēs izmantosim VBA atlasīt Izmantotais diapazons īpašība, lai atlasītu Excel lapas pēdējās kolonnas pēdējo šūnu. Lai ilustrētu šo piemēru, mēs turpināsim izmantot mūsu iepriekšējo datu kopu. Tagad apskatiet šīs metodes izpildes soļus.

PASĀKUMI:

• Vispirms atlasiet aktīvo lapu ar nosaukumu Pēdējā_Cell '.
• Nākamais, ar peles labo pogu noklikšķiniet uz uz šīs lapas nosaukuma. Atlasiet iespēju Skatīt kodu '.

• Pēc tam mēs saņemam tukšu VBA kodu logu. Tāpat mēs varam nospiest Alt + F11 lai atvērtu šo koda logu.
• Pēc tam šajā koda logā ievadiet šādu kodu:

 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 

• Tagad, lai palaistu kodu, noklikšķiniet uz Palaist vai nospiediet F5 .

• Beidzot mēs varam redzēt rezultātu nākamajā attēlā. Izvēlētā pēdējās kolonnas pēdējā šūna ir šūna E15 .

6. Atrast atlasīto šūnu diapazonu UsedRange ar Excel VBA

Šajā piemērā mēs piemērosim VBA lai atrastu šūnu diapazonu izvēlētajam izmantotajam diapazonam Excel darblapā. Mēs izmantosim VBA kods visām izmantotā diapazona kolonnām. Kods atgriezīs šūnu diapazonu, kā arī izmantotā diapazona kolonnas adresi. Lai veiktu šo darbību, izpildiet tālāk norādītās darbības.

PASĀKUMI:

• Sākumā, ar peles labo pogu noklikšķiniet uz aktīvās lapas cilnē ar nosaukumu Atrast šūnu diapazonu '.
• Otrkārt, atlasiet opciju Skatīt kodu '.

• Tiks atvērts tukšs VBA Cits veids, kā atvērt šo kodu logu, ir nospiest Alt + F11 .
• Treškārt, ievadiet šajā koda logā šādu kodu:

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

• Pēc tam, lai palaistu kodu, noklikšķiniet uz Palaist vai nospiediet F5 atslēga.

• Rezultātā tiek parādīts šāds ziņojuma logs.

Līdzīgi lasījumi

• VBA, lai Excel programmā Excel veidotu cilpu caur rindām un kolonnām (5 piemēri)
• Kā konvertēt diapazonu uz masīvu programmā Excel VBA (3 veidi)

7. Ievietojiet VBA īpašību UsedRange, lai saskaitītu tukšās šūnas

Šajā piemērā mēs izmantosim VBA atlasīt UsedRange īpašība, lai saskaitītu tukšās šūnas Excel lapā. Dažreiz mūsu datu kopas izmantotajā diapazonā var būt tukšas šūnas. Mēs varam viegli saskaitīt šo tukšo šūnu skaitu, izmantojot UsedRange īpašums. Apskatīsim šī piemēra izpildes darbības.

PASĀKUMI:

• Pirmkārt, ar peles labo pogu noklikšķiniet uz aktīvās lapas cilnē ar nosaukumu Tukšas šūnas '.
• Pēc tam atlasiet opciju Skatīt kodu '.

• Iepriekš minētā darbība atver tukšu VBA Alternatīvs veids, kā atvērt kodu logu, ir nospiest pogu Alt + F11 .
• Pēc tam šajā koda logā ievietojiet šādu kodu:

 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 "Kopējais izmantoto šūnu skaits 4 izmantotajās kolonnās ir " & d & _ " un no tām " & _ j & " šūnas ir tukšas." End Sub 

• Pēc tam noklikšķiniet uz Palaist vai nospiediet F5 taustiņu, lai palaistu kodu.

• Visbeidzot, ziņojuma lodziņā mēs saņemsim rezultātu. Ziņojuma lodziņā tiks parādīts kopējo šūnu un tukšo šūnu skaits mūsu izmantotajā diapazonā.

8. VBA UsedRange, lai atrastu pirmo tukšo šūnu kolonnā programmā Excel

Pēdējā piemērā mēs izmantosim Excel VBA lai atlasītu Izmantotais diapazons īpašība kolonnā, lai atrastu pirmo tukšo šūnu mūsu Excel darblapā. Šī metode atradīs pirmo tukšo šūnu konkrētā kolonnā. Tukšā šūna vienmēr būs ārpus datu kopas izmantotā diapazona. Tātad, ja kāda šūna ir tukša vai tukša izmantotajā diapazonā, tā netiks ņemta vērā šajā metodē. Tagad izpildiet tālāk norādītās darbības, lai veiktu šo metodi.

PASĀKUMI:

• Vispirms, ar peles labo pogu noklikšķiniet uz aktīvās lapas cilnē ar nosaukumu First_Empty '.
• Turklāt izvēlieties opciju Skatīt kodu '.

• Tiks atvērts tukšs VBA kodu logu. Mēs varam arī nospiest Alt + F11 lai atvērtu šo koda logu.
• Turklāt tukšajā laukā ievadiet šādu kodu VBA koda logs:

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

• Pēc tam, lai palaistu kodu, noklikšķiniet uz Palaist vai nospiediet F5 atslēga.

• Visbeidzot, iepriekš minētais kods ievietos vērtību FirstEmptyCell ' šūnā E16 Tā ir pirmā tukšā šūna slejā E pēc datu kopas izmantotā diapazona.

Lasīt vairāk: Excel VBA, lai veiktu cilpu caur diapazonu līdz tukšai šūnai (4 piemēri)

Secinājums

Īsumā šajā pamācībā ir parādīts. 8 piemēri, lai izmantotu VBA atlasīt UsedRange Lai pārbaudītu savas prasmes, lejupielādējiet šajā rakstā izmantoto prakses darba lapu. Ja jums ir kādi jautājumi, lūdzu, komentējiet zemāk redzamajā lodziņā. Mūsu komanda centīsies atbildēt uz jūsu ziņu pēc iespējas ātrāk. Sekojiet līdzi inovatīvākiem Microsoft Excel risinājumus nākotnē.