Acest tutorial va demonstra 8 exemple de utilizare VBA pentru a selecta Gamă utilizată într-o coloană în Excel. În general, se utilizează FolositRange din Excel reprezintă partea unei foi de calcul care conține date. Pentru a ilustra clar exemplele, vom aplica proprietatea FolositRange într-un anumit set de date pentru toate exemplele.

Descărcați caietul de practică

Putem descărca caietul de practică de aici.

8 exemple simple de VBA pentru a selecta UsedRange în coloană

În imaginea următoare, putem vedea setul de date pe care îl vom folosi pentru toate exemplele. Setul de date conține numele de Vânzători , lor Locație , Regiune, și Suma totală În acest set de date, intervalul utilizat va fi considerat inclusiv rubrica. Astfel, intervalul utilizat în următorul set de date este ( B2:E15 ).

1. Selectați UsedRange în coloană cu VBA în Excel

În primul rând, vom selecta toate coloanele din setul nostru de date. Pentru a face acest lucru, vom folosi funcția VBA selectați FolositRange în coloane. Să vedem care sunt pașii pentru a realiza această metodă.

ETAPE:

• Pentru început, faceți clic dreapta pe pe foaia activă numită Selectați_Columne '.
• În plus, selectați opțiunea Vezi codul '.

• Apoi, acțiunea de mai sus deschide o fereastră goală VBA fereastra de cod pentru acea foaie de lucru. Putem obține această fereastră de cod și apăsând Alt + F11 .
• Apoi, introduceți următorul cod în fereastra de cod:

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

• După aceea, faceți clic pe butonul Rulați sau apăsați butonul F5 pentru a rula codul.

• În cele din urmă, obținem rezultatul ca în imaginea următoare. Putem vedea că intervalul utilizat în coloane din setul nostru de date este selectat acum.

2. Folosiți VBA pentru a copia întregul UsedRange în coloană

În al doilea exemplu, vom folosi VBA pentru a copia întregul interval utilizat în coloanele din setul nostru de date. În general, folosim această metodă pentru a copia o anumită regiune din setul nostru de date. Trebuie să urmăm pașii de mai jos pentru a efectua această metodă.

ETAPE:

• În primul rând, accesați fila foii de lucru active numită ' Copiați '.
• Următorul, faceți clic dreapta pe în fila respectivă și selectați opțiunea Vezi codul '.

• Se va deschide o fereastră goală VBA pentru foaia de lucru curentă. O altă modalitate de a obține această fereastră este să apăsați Alt + F11 de la tastatură.
• Apoi, introduceți codul de mai jos în fereastra de cod:

 Sub Copy_UsedRange() ActiveSheet.UsedRange.Copy End Sub 

• Acum, pentru a rula codul, faceți clic pe butonul Rulați sau apăsați butonul F5 cheie.

• În cele din urmă, putem vedea rezultatul ca mai jos. De asemenea, putem vedea o linie de frontieră în jurul intervalului utilizat. Aceasta indică faptul că codul a copiat datele în interiorul acestei limite.

Citiți mai mult: Excel VBA: Copierea intervalului dinamic în alt registru de lucru

3. Numărați numărul de coloane din UsedRange utilizând VBA

În cel de-al treilea exemplu, vom număra numărul de coloane din setul nostru de date folosind excel VBA selectați Gamă utilizată în coloană. Acest exemplu va returna numărul total de coloane din intervalul utilizat în setul nostru de date într-o casetă de mesaje. Urmați pașii de mai jos pentru a executa această metodă.

ETAPE:

• În primul rând, selectați foaia activă numită Numărătoare_Columne '.
• În al doilea rând, faceți clic dreapta pe pe numele foii active și faceți clic pe opțiunea Vezi codul '.

• Comanda de mai sus deschide o fereastră goală VBA fereastra de cod pentru foaia de lucru activă. De asemenea, putem obține fereastra de cod prin apăsarea tastei Alt + F11 de la tastatură.
• În al treilea rând, introduceți următorul cod în acea fereastră de cod goală:

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

• În continuare, faceți clic pe butonul Rulați sau apăsați butonul F5 pentru a rula codul.

• În cele din urmă, obținem rezultatul într-o casetă de mesaje. Numărul de coloane din intervalul utilizat este 4 .

Citiți mai mult: Cum să utilizați VBA pentru a număra rândurile din intervalul cu date în Excel (5 macro-uri)

4. Excel VBA pentru a număra numărul ultimei coloane din intervalul utilizat

În metoda precedentă, am extras numărul ultimei coloane din intervalul utilizat. Cu toate acestea, în acest exemplu, vom determina numărul ultimei coloane din intervalul utilizat pe întreaga foaie de calcul, utilizând funcția VBA selectați FolositRange Să vedem care sunt pașii pe care trebuie să-i urmăm pentru a efectua această acțiune.

ETAPE:

• Pentru început, faceți clic dreapta pe pe foaia activă numită Ultima coloană '.
• În continuare, selectați opțiunea ' Vezi codul '.

• Deci, comanda de mai sus deschide o fereastră goală VBA o altă modalitate de a deschide fereastra de cod pentru foaia de lucru respectivă. O altă modalitate de a deschide această fereastră de cod este să apăsați Alt + F11 .
• După aceea, introduceți următorul cod în fereastra de cod:

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

• Acum, faceți clic pe butonul Rulați sau apăsați butonul F5 pentru a rula codul.

• În final, obținem rezultatul nostru într-o casetă de mesaje. Ultima coloană din intervalul utilizat este coloana 5. din foaia de calcul.

Lecturi similare

• Cum să utilizați VBA pentru fiecare rând dintr-o gamă în Excel
• Utilizați VBA pentru a selecta intervalul din celula activă în Excel (3 metode)
• Macro Excel: Sortați mai multe coloane cu interval dinamic (4 metode)

5. Selectați ultima celulă a ultimei coloane din UsedRange cu VBA

În cel de-al cincilea exemplu, vom folosi VBA selectați Gamă utilizată pentru a selecta ultima celulă a ultimei coloane dintr-o foaie Excel. Pentru a ilustra acest exemplu, vom continua cu setul de date anterior. Acum, aruncați o privire asupra pașilor pentru a realiza această metodă.

ETAPE:

• În primul rând, selectați foaia activă numită Ultima_celulă '.
• Următorul, faceți clic dreapta pe pe numele foii respective. Selectați opțiunea Vezi codul '.

• Apoi, primim un spațiu gol VBA De asemenea, putem apăsa pe Alt + F11 pentru a deschide acea fereastră de cod.
• După aceea, introduceți următorul cod în fereastra de cod:

 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 

• Acum, pentru a rula codul, faceți clic pe butonul Rulați sau apăsați butonul F5 .

• În cele din urmă, putem vedea rezultatul în imaginea următoare. Ultima celulă selectată din ultima coloană este celula E15 .

6. Găsește intervalul de celule din UsedRange selectat cu Excel VBA

În acest exemplu, vom aplica VBA pentru a găsi intervalul de celule din intervalul selectat utilizat într-o foaie de calcul Excel. Vom utiliza VBA pentru toate coloanele din intervalul utilizat. Codul va returna intervalul de celule, precum și adresa coloanei din intervalul utilizat. Urmați pașii de mai jos pentru a efectua această acțiune.

ETAPE:

• La început, faceți clic dreapta pe pe fila foii active numită Găsiți intervalul de celule '.
• În al doilea rând, selectați opțiunea Vezi codul '.

• Se va deschide o fereastră goală VBA O altă metodă de a deschide această fereastră de cod este de a apăsa tasta Alt + F11 .
• În al treilea rând, introduceți următorul cod în acea fereastră de cod:

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

• Apoi, pentru a rula codul, faceți clic pe butonul Rulați sau apăsați butonul F5 cheie.

• În final, o casetă de mesaje ca cea din imaginea următoare arată rezultatul.

Lecturi similare

• VBA pentru a trece în buclă prin rânduri și coloane într-o gamă în Excel (5 exemple)
• Cum să convertiți intervalul în matrice în Excel VBA (3 moduri)

7. Introduceți proprietatea VBA UsedRange pentru a număra celulele goale

În acest exemplu, vom folosi VBA selectați FolositRange pentru a număra celulele goale într-o foaie Excel. Uneori, este posibil să avem celule goale în intervalul utilizat al setului nostru de date. Putem număra cu ușurință numărul acestor celule goale utilizând proprietatea FolositRange Să vedem care sunt pașii pentru a realiza acest exemplu.

ETAPE:

• În primul rând, faceți clic dreapta pe pe fila foii active numită Căsuțe goale '.
• În continuare, selectați opțiunea ' Vezi codul '.

• Acțiunea de mai sus deschide o fereastră goală VBA O modalitate alternativă de a deschide această fereastră de cod este să apăsați Alt + F11 .
• Apoi, introduceți următorul cod în fereastra de cod:

 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 "Numărul total de celule utilizate în 4 coloane utilizate este " & d & _ " și dintre acestea " & _ j & " celulele sunt goale." End Sub 

• După aceea, faceți clic pe Rulați sau apăsați butonul F5 pentru a rula codul.

• În cele din urmă, vom obține rezultatul în caseta de mesaje. Caseta de mesaje va afișa numărul de celule totale și de celule goale din intervalul utilizat.

8. VBA UsedRange pentru a localiza prima celulă goală din coloană în Excel

În ultimul exemplu, vom utiliza excel VBA pentru a selecta Gamă utilizată în coloană pentru a localiza prima celulă goală din foaia de lucru Excel. Această metodă va localiza prima celulă goală dintr-o anumită coloană. Celula goală va fi întotdeauna în afara intervalului utilizat al setului de date. Deci, dacă o celulă este goală sau goală în intervalul utilizat, nu va fi luată în considerare în această metodă. Acum, urmați pașii de mai jos pentru a efectua această metodă.

ETAPE:

• Pentru început, faceți clic dreapta pe pe fila foii active numită Primul_vid '.
• În plus, selectați opțiunea Vezi codul '.

• Se va deschide o fereastră goală VBA Putem, de asemenea, să apăsăm Alt + F11 pentru a deschide acea fereastră de cod.
• În plus, introduceți următorul cod în spațiul gol VBA fereastra de cod:

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

• Apoi, pentru a rula codul, faceți clic pe butonul Rulați sau apăsați butonul F5 cheie.

• În cele din urmă, codul de mai sus va insera valoarea ' FirstEmptyCell ' în celula E16 Este prima celulă goală din coloana E după intervalul utilizat al setului de date.

Citiți mai mult: Excel VBA pentru a face buclă prin interval până la celula goală (4 exemple)

Concluzie

Pe scurt, acest tutorial arată 8 exemple pentru a utiliza VBA selectați FolositRange proprietate într-o foaie Excel. Pentru a vă pune la încercare abilitățile, descărcați foaia de exercițiu folosită pentru acest articol. Nu ezitați să comentați în caseta de mai jos dacă aveți întrebări. Echipa noastră va încerca să reacționeze la mesajul dvs. în cel mai scurt timp posibil. Fiți cu ochii în patru pentru alte articole inovatoare Microsoft Excel soluții în viitor.