Kazalo
V tem učbeniku bo prikazano. 8 primeri uporabe VBA da izberete Uporabljeno območje v stolpcu v Excelu. Na splošno je UsedRange lastnost v Excelu predstavlja del delovnega lista, na katerem so podatki. Za jasno ponazoritev primerov bomo uporabili UsedRange v določenem naboru podatkov za vse primere.
Prenesi delovni zvezek za prakso
Praktični delovni zvezek lahko prenesete s tega mesta.
VBA za izbiro uporabljenega območja v stolpcu.xlsm8 enostavnih primerov VBA za izbiro UsedRange v stolpcu
Na naslednji sliki je prikazan nabor podatkov, ki ga bomo uporabili za vse primere. Nabor podatkov vsebuje imena Prodajalci , njuna Lokacija , Regija, in Skupni znesek ' prodaje. V tem podatkovnem nizu se bo uporabljeno območje upoštevalo vključno z naslovom. Tako je uporabljeno območje v naslednjem podatkovnem nizu ( B2:E15 ).
1. Izberite UsedRange v stolpcu z VBA v Excelu
Najprej bomo iz našega nabora podatkov izbrali vse stolpce. Za to bomo uporabili ukaz VBA izberite UsedRange v stolpcih. Oglejmo si korake za izvedbo te metode.
KORAKI:
- Za začetek, z desnim klikom miške kliknite . na aktivnem listu z imenom Izberi_stolpce '.
- Poleg tega izberite možnost Prikaži kodo '.
- Zgornje dejanje odpre prazen VBA Okno kode za ta delovni list. To okno kode lahko odpremo tudi tako, da pritisnemo Alt + F11 .
- Nato v to okno vnesite naslednjo kodo:
Sub Select_Columns() Sheets("Select_Columns").Select ActiveSheet.UsedRange.Select End Sub - Nato kliknite na Spustite ali pritisnite F5 za zagon kode.
- Na koncu dobimo rezultat, kot je prikazan na naslednji sliki. Vidimo, da je zdaj izbrano uporabljeno območje v stolpcih iz našega nabora podatkov.
2. Uporabite VBA za kopiranje celotnega uporabljenega območja v stolpcu
V drugem primeru bomo uporabili VBA za kopiranje celotnega uporabljenega območja v stolpcih iz našega nabora podatkov. Na splošno to metodo uporabljamo za kopiranje določenega območja iz našega nabora podatkov. Za izvedbo te metode moramo slediti spodnjim korakom.
KORAKI:
- Najprej pojdite na aktivni zavihek delovnega lista z imenom Kopiraj '.
- Naslednji, z desnim klikom miške kliknite . na tem zavihku in izberite možnost Prikaži kodo '.
- Odprlo se bo prazno okno VBA okno kode za trenutni delovni list. To okno lahko dobite tudi tako, da pritisnete Alt + F11 s tipkovnice.
- Nato v to okno kode vstavite spodnjo kodo:
Sub Copy_UsedRange() ActiveSheet.UsedRange.Copy End Sub - Če želite zagnati kodo, kliknite na Spustite ali pritisnite F5 ključ.
- Na koncu lahko vidimo rezultat, kot sledi. Okoli uporabljenega območja lahko vidimo tudi mejo. To pomeni, da je koda kopirala podatke znotraj te meje.
Preberi več: Excel VBA: Kopiranje dinamičnega območja v drugo delovno knjižico
3. Preštejte število stolpcev v UsedRange z uporabo VBA
V tretjem primeru bomo prešteli število stolpcev v naši zbirki podatkov z uporabo programa Excel VBA izberite Uporabljeno območje v stolpcu. Ta primer bo vrnil skupno število stolpcev znotraj uporabljenega razpona v našem podatkovnem nizu v oknu s sporočilom. Za izvedbo te metode sledite spodnjim korakom.
KORAKI:
- Najprej izberite aktivni list z imenom Count_Columns '.
- Drugič, z desnim klikom miške kliknite . na ime aktivnega lista in kliknite možnost Prikaži kodo '.
- Zgornji ukaz odpre prazno okno VBA okno kode za aktivni delovni list. Okno kode lahko odpremo tudi tako, da pritisnemo Alt + F11 s tipkovnice.
- Tretjič, v to prazno okno kode vnesite naslednjo kodo:
Sub Count_Columns() MsgBox ActiveSheet.UsedRange.Columns.Count End Sub - Nato kliknite na Spustite ali pritisnite F5 za zagon kode.
- Na koncu dobimo rezultat v sporočilnem oknu. Število stolpcev v uporabljenem območju je 4 .
Preberite več: Kako uporabiti VBA za štetje vrstic v območju s podatki v Excelu (5 makrov)
4. Excel VBA za štetje števila zadnjih stolpcev v uporabljenem območju
V prejšnji metodi smo pridobili številko zadnjega stolpca v uporabljenem območju. V tem primeru pa bomo določili številko zadnjega stolpca v uporabljenem območju v celotnem delovnem listu z uporabo VBA izberite UsedRange nepremičnine. Oglejmo si korake, ki jim moramo slediti, da izvedemo to dejanje.
KORAKI:
- Za začetek, z desnim klikom miške kliknite . na aktivnem listu z imenom Zadnji stolpec '.
- Nato izberite možnost Prikaži kodo '.
- Zgornji ukaz odpre prazno okno VBA Okno kode za ta delovni list. Druga možnost za odprtje okna kode je, da pritisnete Alt + F11 .
- Nato v to okno kode vstavite naslednjo kodo:
Sub Column_Last() Dim Column_Last As Integer Column_Last = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Column MsgBox Column_Last End Sub - Zdaj kliknite na Spustite ali pritisnite F5 za zagon kode.
- Na koncu dobimo rezultat v polju za sporočila. Zadnji stolpec v uporabljenem območju je 5. stolpcu delovnega lista.
Podobna branja
- Kako uporabiti VBA za vsako vrstico v območju v Excelu
- Uporaba VBA za izbiro območja iz aktivne celice v Excelu (3 metode)
- Excelov makro: Razvrstite več stolpcev z dinamičnim obsegom (4 metode)
5. Izberite zadnjo celico zadnjega stolpca iz UsedRange z VBA
V petem primeru bomo uporabili VBA izberite Uporabljeno območje lastnost za izbiro zadnje celice zadnjega stolpca v listu Excel. Za ponazoritev tega primera bomo nadaljevali z našim prejšnjim naborom podatkov. Zdaj si oglejte korake za izvedbo te metode.
KORAKI:
- Najprej izberite aktivni list z imenom Zadnja celica '.
- Naslednji, z desnim klikom miške kliknite . izberite možnost Prikaži kodo '.
- Nato dobimo prazno VBA Okno kode. Prav tako lahko pritisnemo Alt + F11 da odprete to okno kode.
- Nato v to okno vnesite naslednjo kodo:
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 - Če želite zagnati kodo, kliknite na Spustite ali pritisnite F5 .
- Rezultat je prikazan na naslednji sliki. Izbrana zadnja celica zadnjega stolpca je celica E15 .
6. Poiščite obseg celic izbranega območja UsedRange z Excelovim VBA
V tem primeru bomo uporabili VBA za iskanje območja celic izbranega uporabljenega območja v delovnem listu excel-a. Uporabili bomo VBA za vse stolpce v našem uporabljenem območju. Koda bo vrnila območje celic in naslov stolpca v uporabljenem območju. Za izvedbo tega dejanja sledite spodnjim korakom.
KORAKI:
- Na začetku, z desnim klikom miške kliknite . na zavihku aktivnega lista z imenom Poišči območje celic '.
- Nato izberite možnost Prikaži kodo '.
- Odprlo se bo prazno okno VBA Drugi način za odprtje tega okna kode je, da pritisnete Alt + F11 .
- Tretjič, v to okno vnesite naslednjo kodo:
Sub Find_UsedRange() MsgBox ActiveSheet.UsedRange.Address End Sub - Nato za zagon kode kliknite na Spustite ali pritisnite F5 ključ.
- Na koncu se v sporočilnem oknu prikaže rezultat, kot je prikazan na naslednji sliki.
Podobna branja
- VBA za zanko skozi vrstice in stolpce v območju v Excelu (5 primerov)
- Kako pretvoriti obseg v polje v programu Excel VBA (3 načini)
7. Vstavite lastnost VBA UsedRange za štetje praznih celic
V tem primeru bomo uporabili VBA izberite UsedRange Včasih se lahko zgodi, da imamo v uporabljenem območju našega podatkovnega niza prazne celice. Število teh praznih celic lahko preprosto preštejemo z uporabo lastnosti UsedRange nepremičnine. Oglejmo si korake za izvedbo tega primera.
KORAKI:
- Najprej, z desnim klikom miške kliknite . na zavihku aktivnega lista z imenom Empty_Cells '.
- Nato izberite možnost Prikaži kodo '.
- Zgornje dejanje odpre prazno okno VBA Druga možnost za odprtje okna s kodo je, da pritisnete Alt + F11 .
- Nato v to okno kode vstavite naslednjo kodo:
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 "Skupno število uporabljenih celic v 4 uporabljenih stolpcih je " & d & _ " in od teh " & _ j & " so celice prazne." End Sub - Nato kliknite na Spustite ali pritisnite F5 za zagon kode.
- Na koncu bomo dobili rezultat v polju za sporočila. V polju za sporočila bo prikazano število vseh celic in praznih celic v našem uporabljenem območju.
8. VBA UsedRange za iskanje prve prazne celice v stolpcu v Excelu
V zadnjem primeru bomo uporabili program Excel VBA da izberete Uporabljeno območje lastnost v stolpcu za iskanje prve prazne celice v našem delovnem listu Excel. Ta metoda bo poiskala prvo prazno celico določenega stolpca. Prazna celica bo vedno zunaj uporabljenega območja podatkovnega niza. Če je katera koli celica prazna ali prazna v uporabljenem območju, ne bo upoštevana v tej metodi. Za izvedbo te metode sledite naslednjim korakom.
KORAKI:
- Za začetek, z desnim klikom miške kliknite . na zavihku aktivnega lista z imenom First_Empty '.
- Poleg tega izberite možnost Prikaži kodo '.
- Odprlo se bo prazno okno VBA Okno s kodo. Lahko tudi pritisnemo Alt + F11 da odprete to okno kode.
- Poleg tega v prazno polje vnesite naslednjo kodo VBA okno kode:
Public Sub First_Empty_Cell() ActiveSheet.Range("E" & ActiveSheet.Rows.Count) _ .End(xlUp).Offset(1, 0).Value = "FirstEmptyCell" End Sub - Nato za zagon kode kliknite na Spustite ali pritisnite F5 ključ.
- Zgornja koda vstavi vrednost FirstEmptyCell ' v celici E16 To je prva prazna celica v stolpcu E po uporabljenem obsegu nabora podatkov.
Preberi več: Excel VBA za zanko v območju do prazne celice (4 primeri)
Zaključek
Na kratko, ta vadnica prikazuje 8 primeri za uporabo VBA izberite UsedRange Če želite preizkusiti svoje znanje, prenesite delovni list, ki je bil uporabljen v tem članku. Če imate kakršnakoli vprašanja, jih lahko komentirate v spodnjem polju. Naša ekipa se bo poskušala čim prej odzvati na vaše sporočilo. Bodite pozorni na več inovativnih Microsoft Excel rešitve v prihodnosti.
