Tento výukový program vám ukáže. 8 príklady používania VBA vybrať Použitý rozsah v stĺpci v programe Excel. UsedRange vlastnosť v exceli predstavuje časť pracovného hárka, na ktorej sa nachádzajú údaje. Aby sme príklady názorne ilustrovali, použijeme UsedRange vlastnosť v konkrétnom súbore údajov pre všetky príklady.

Stiahnite si cvičebnicu

Pracovný zošit na precvičovanie si môžeme stiahnuť odtiaľto.

8 jednoduchých príkladov VBA na výber UsedRange v stĺpci

Na nasledujúcom obrázku vidíme súbor údajov, ktorý budeme používať pre všetky príklady. Súbor údajov obsahuje názvy Predajcovia , ich Umiestnenie , Región, a Celková suma ' predaja. V tomto súbore údajov sa za použitý rozsah považuje rozsah vrátane záhlavia. Takže použitý rozsah v nasledujúcom súbore údajov je ( B2:E15 ).

1. Vyberte položku UsedRange v stĺpci pomocou VBA v programe Excel

V prvom rade vyberieme všetky stĺpce z nášho súboru údajov. Na tento účel použijeme príkaz VBA vybrať UsedRange vlastnosť v stĺpcoch. Pozrime sa na kroky na vykonanie tejto metódy.

KROKY:

• Na začiatok, kliknutie pravým tlačidlom myši na na aktívnom hárku s názvom Select_Columns '.
• Okrem toho vyberte možnosť Zobraziť kód '.

• Potom sa vyššie uvedenou akciou otvorí prázdny VBA okno kódu pre daný pracovný hárok. Toto okno kódu môžeme získať aj stlačením Alt + F11 .
• Potom do tohto okna kódu zadajte nasledujúci kód:

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

• Potom kliknite na Spustiť alebo stlačte tlačidlo F5 spustiť kód.

• Nakoniec dostaneme výsledok ako na nasledujúcom obrázku. Vidíme, že použitý rozsah v stĺpcoch z nášho súboru údajov je teraz vybraný.

2. Použite VBA na skopírovanie celého rozsahu UsedRange v stĺpci

V druhom príklade použijeme VBA na skopírovanie celého použitého rozsahu v stĺpcoch z nášho súboru údajov. Vo všeobecnosti túto metódu používame na skopírovanie konkrétnej oblasti z nášho súboru údajov. Na vykonanie tejto metódy musíme postupovať podľa nižšie uvedených krokov.

KROKY:

• Najprv prejdite na aktívnu kartu pracovného hárka s názvom Kopírovať '.
• Ďalšie, kliknutie pravým tlačidlom myši na na tejto karte a vyberte možnosť Zobraziť kód '.

• Otvorí sa prázdne VBA Ďalším spôsobom, ako získať toto okno, je stlačiť tlačidlo Alt + F11 z klávesnice.
• Potom do tohto okna kódu vložte nasledujúci kód:

 Sub Copy_UsedRange() ActiveSheet.UsedRange.Copy End Sub 

• Ak chcete spustiť kód, kliknite na Spustiť alebo stlačte tlačidlo F5 kľúč.

• Nakoniec môžeme vidieť výsledok, ako je uvedený nižšie. Tiež môžeme vidieť ohraničenie okolo použitého rozsahu. To znamená, že kód skopíroval údaje vo vnútri tohto ohraničenia.

Prečítajte si viac: Excel VBA: Kopírovanie dynamického rozsahu do iného zošita

3. Spočítajte počet stĺpcov v UsedRange pomocou VBA

V treťom príklade spočítame počet stĺpcov v našom súbore údajov pomocou programu Excel VBA vybrať Použitý rozsah v stĺpci. Tento príklad vráti celkový počet stĺpcov vo vnútri použitého rozsahu v našom súbore údajov v poli správy. Na vykonanie tejto metódy postupujte podľa nasledujúcich krokov.

KROKY:

• Najprv vyberte aktívny hárok s názvom Count_Columns '.
• Po druhé, kliknutie pravým tlačidlom myši na na názov aktívneho hárku a kliknite na možnosť Zobraziť kód '.

• Vyššie uvedený príkaz otvorí prázdny VBA okno kódu pre aktívny pracovný hárok. Okno kódu môžeme získať aj stlačením Alt + F11 z klávesnice.
• Po tretie, do prázdneho okna kódu zadajte nasledujúci kód:

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

• Potom kliknite na Spustiť alebo stlačte tlačidlo F5 spustiť kód.

• Nakoniec dostaneme výsledok v okne správy. Počet stĺpcov v použitom rozsahu je 4 .

Prečítajte si viac: Ako používať VBA na počítanie riadkov v rozsahu s údajmi v programe Excel (5 makier)

4. Excel VBA na počítanie počtu posledných stĺpcov v použitom rozsahu

V predchádzajúcej metóde sme získali číslo posledného stĺpca v použitom rozsahu. V tomto príklade však určíme číslo posledného stĺpca v použitom rozsahu v celom hárku pomocou VBA vybrať UsedRange Pozrite sa na kroky, ktoré musíme vykonať, aby sme túto akciu vykonali.

KROKY:

• Na začiatok, kliknutie pravým tlačidlom myši na na aktívnom hárku s názvom Posledný stĺpec '.
• Ďalej vyberte možnosť Zobraziť kód '.

• Vyššie uvedený príkaz teda otvorí prázdne okno VBA Alternatívny spôsob, ako otvoriť okno kódu pre daný pracovný hárok, je stlačiť Alt + F11 .
• Potom do tohto okna kódu vložte nasledujúci kód:

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

• Teraz kliknite na Spustiť alebo stlačte tlačidlo F5 spustiť kód.

• Nakoniec dostaneme náš výsledok v okne so správou. Posledný stĺpec v použitom rozsahu je 5. stĺpec pracovného hárku.

Podobné čítania

• Ako používať VBA pre každý riadok v rozsahu v programe Excel
• Použitie VBA na výber rozsahu z aktívnej bunky v programe Excel (3 metódy)
• Makro programu Excel: Triedenie viacerých stĺpcov pomocou dynamického rozsahu (4 metódy)

5. Výber poslednej bunky posledného stĺpca z UsedRange pomocou VBA

V piatom príklade použijeme VBA vybrať Použitý rozsah vlastnosť na výber poslednej bunky posledného stĺpca v liste Excel. Na ilustráciu tohto príkladu budeme pokračovať v našom predchádzajúcom súbore údajov. Teraz sa pozrite na postup pri tejto metóde.

KROKY:

• Najprv vyberte aktívny hárok s názvom Last_Cell '.
• Ďalšie, kliknutie pravým tlačidlom myši na na tomto hárku. Vyberte možnosť Zobraziť kód '.

• Potom sa zobrazí prázdne okno VBA Okno kódu. Tiež môžeme stlačiť Alt + F11 otvoriť toto okno kódu.
• Potom do tohto okna kódu zadajte nasledujúci kód:

 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 

• Ak chcete spustiť kód, kliknite na Spustiť alebo stlačte tlačidlo F5 .

• Nakoniec môžeme vidieť výsledok na nasledujúcom obrázku. Vybraná posledná bunka posledného stĺpca je bunka E15 .

6. Vyhľadanie rozsahu buniek vybraného UsedRange pomocou programu Excel VBA

V tomto príklade použijeme VBA na vyhľadanie rozsahu buniek vybraného použitého rozsahu v pracovnom hárku programu Excel. Použijeme VBA kód pre všetky stĺpce v našom použitom rozsahu. Kód vráti rozsah buniek, ako aj adresu stĺpca v použitom rozsahu. Na vykonanie tejto akcie postupujte podľa nasledujúcich krokov.

KROKY:

• Na začiatku, kliknutie pravým tlačidlom myši na na karte aktívneho listu s názvom Nájsť rozsah buniek '.
• Po druhé vyberte možnosť Zobraziť kód '.

• Otvorí sa prázdne VBA Ďalším spôsobom otvorenia tohto okna kódu je stlačenie Alt + F11 .
• Po tretie, do tohto okna kódu zadajte nasledujúci kód:

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

• Ak chcete spustiť kód, kliknite na Spustiť alebo stlačte tlačidlo F5 kľúč.

• Nakoniec sa zobrazí okno so správou ako na nasledujúcom obrázku.

Podobné čítania

• VBA na prechádzanie riadkov a stĺpcov v rozsahu v programe Excel (5 príkladov)
• Ako previesť rozsah na pole v programe Excel VBA (3 spôsoby)

7. Vloženie vlastnosti VBA UsedRange na počítanie prázdnych buniek

V tomto príklade použijeme VBA vybrať UsedRange niekedy môžeme mať v použitom rozsahu nášho súboru údajov prázdne bunky. Počet týchto prázdnych buniek môžeme ľahko spočítať pomocou UsedRange Pozrite sa na kroky na vykonanie tohto príkladu.

KROKY:

• Po prvé, kliknutie pravým tlačidlom myši na na karte aktívneho listu s názvom Empty_Cells '.
• Ďalej vyberte možnosť Zobraziť kód '.

• Vyššie uvedená akcia otvorí prázdny VBA Alternatívny spôsob, ako otvoriť toto okno kódu, je stlačiť Alt + F11 .
• Potom do tohto okna kódu vložte nasledujúci kód:

 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 "Celkový počet použitých buniek v 4 použitých stĺpcoch je " & d & _ " a z týchto " & _ j & " buniek je prázdnych." End Sub 

• Potom kliknite na Spustiť alebo stlačte tlačidlo F5 spustiť kód.

• Nakoniec dostaneme výsledok v poli správy. V poli správy sa zobrazí počet celkových buniek a prázdnych buniek v našom použitom rozsahu.

8. VBA UsedRange na vyhľadanie prvej prázdnej bunky v stĺpci v programe Excel

V poslednom príklade použijeme program Excel VBA vybrať Použitý rozsah vlastnosť v stĺpci na vyhľadanie prvej prázdnej bunky v našom pracovnom hárku Excelu. Táto metóda vyhľadá prvú prázdnu bunku konkrétneho stĺpca. Prázdna bunka bude vždy mimo použitého rozsahu súboru údajov. Ak je teda niektorá bunka prázdna alebo prázdna v použitom rozsahu, nebude sa v tejto metóde brať do úvahy. Pri vykonávaní tejto metódy postupujte podľa nasledujúcich krokov.

KROKY:

• Na začiatok, kliknutie pravým tlačidlom myši na na karte aktívneho listu s názvom First_Empty '.
• Okrem toho vyberte možnosť Zobraziť kód '.

• Otvorí sa prázdne VBA kódové okno. Môžeme tiež stlačiť Alt + F11 otvoriť toto okno kódu.
• Ďalej zadajte do prázdneho políčka nasledujúci kód VBA kódové okno:

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

• Ak chcete spustiť kód, kliknite na Spustiť alebo stlačte tlačidlo F5 kľúč.

• Nakoniec vyššie uvedený kód vloží hodnotu FirstEmptyCell ' v bunke E16 Je to prvá prázdna bunka stĺpca E za použitým rozsahom súboru údajov.

Čítajte viac: Excel VBA na zacyklenie rozsahu až do prázdnej bunky (4 príklady)

Záver

Tento návod v skratke ukazuje 8 príklady na použitie VBA vybrať UsedRange Ak si chcete otestovať svoje zručnosti, stiahnite si cvičný pracovný list použitý v tomto článku. Ak máte akékoľvek otázky, neváhajte a napíšte komentár do políčka nižšie. Náš tím sa pokúsi reagovať na vašu správu čo najskôr. Sledujte ďalšie inovatívne Microsoft Excel riešenia v budúcnosti.