V tomto výukovém kurzu se dozvíte. 8 příklady použití VBA vybrat Použitý sortiment ve sloupci v Excelu. Obecně platí, že UsedRange vlastnost v excelu představuje část pracovního listu, na které jsou data. Pro názornou ilustraci příkladů použijeme vlastnost UsedRange vlastnost v konkrétním souboru dat pro všechny příklady.

Stáhnout cvičebnici

Cvičebnici si můžete stáhnout zde.

8 jednoduchých příkladů VBA pro výběr UsedRange ve sloupci

Na následujícím obrázku vidíme datovou sadu, kterou budeme používat pro všechny příklady. Datová sada obsahuje názvy těchto položek Prodejci , jejich Umístění , Region, a Celková částka ' prodeje. V tomto datovém souboru se za použitý rozsah považuje rozsah včetně záhlaví. Takže použitý rozsah v následujícím datovém souboru je ( B2:E15 ).

1. Výběr UsedRange ve sloupci pomocí VBA v aplikaci Excel

Nejprve vybereme všechny sloupce z našeho souboru dat. K tomu použijeme příkaz VBA vybrat UsedRange Vlastnost ve sloupcích. Podívejme se, jak postupovat při provádění této metody.

KROKY:

• Začněme tím, že, klikněte pravým tlačítkem myši na na aktivním listu s názvem Select_Columns '.
• Dále vyberte možnost Zobrazit kód '.

• Výše uvedená akce pak otevře prázdné okno VBA toto okno kódu pro daný list. Toto okno kódu můžeme také zobrazit stisknutím tlačítka Alt + F11 .
• Poté do tohoto okna kódu zadejte následující kód:

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

• Poté klikněte na Spustit nebo stiskněte tlačítko F5 spustit kód.

• Nakonec dostaneme výsledek jako na následujícím obrázku. Vidíme, že použitý rozsah ve sloupcích z našeho souboru dat je nyní vybrán.

2. Pomocí VBA zkopírujte celý UsedRange ve sloupci

Ve druhém příkladu použijeme VBA ke zkopírování celého použitého rozsahu ve sloupcích z našeho souboru dat. Obecně tuto metodu používáme ke zkopírování určité oblasti z našeho souboru dat. Pro provedení této metody musíme postupovat podle níže uvedených kroků.

KROKY:

• Nejprve přejděte na aktivní kartu pracovního listu s názvem Kopírovat '.
• Další, klikněte pravým tlačítkem myši na na této kartě a vyberte možnost Zobrazit kód '.

• Otevře se prázdné okno VBA okno kódu pro aktuální pracovní list. Další způsob, jak toto okno zobrazit, je stisknout tlačítko Alt + F11 z klávesnice.
• Poté do tohoto okna kódu vložte níže uvedený kód:

 Sub Copy_UsedRange() ActiveSheet.UsedRange.Copy End Sub 

• Pro spuštění kódu klikněte na Spustit nebo stiskněte tlačítko F5 klíč.

• Nakonec můžeme vidět výsledek, jak je uvedeno níže. Také můžeme vidět ohraničení kolem použitého rozsahu. To znamená, že kód zkopíroval data uvnitř tohoto ohraničení.

Další informace: Excel VBA: Kopírování dynamického rozsahu do jiného sešitu

3. Počítání počtu sloupců v UsedRange pomocí VBA

Ve třetím příkladu spočítáme počet sloupců v naší datové sadě pomocí excelu. VBA vybrat Použitý sortiment ve sloupci. Tento příklad vrátí celkový počet sloupců uvnitř použitého rozsahu v našem datovém souboru v poli se zprávou. Pro provedení této metody postupujte podle níže uvedených kroků.

KROKY:

• Nejprve vyberte aktivní list s názvem Count_Columns '.
• Za druhé, klikněte pravým tlačítkem myši na na název aktivního listu a klikněte na možnost Zobrazit kód '.

• Výše uvedený příkaz otevře prázdné okno VBA okno kódu pro aktivní list. Okno kódu můžeme také zobrazit stisknutím tlačítka Alt + F11 z klávesnice.
• Potřetí do prázdného okna kódu zadejte následující kód:

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

• Dále klikněte na Spustit nebo stiskněte tlačítko F5 spustit kód.

• Nakonec se nám zobrazí výsledek v okně se zprávou. Počet sloupců v použitém rozsahu je 4 .

Další informace: Jak používat VBA k počítání řádků v rozsahu s daty v aplikaci Excel (5 maker)

4. Excel VBA pro počítání počtu posledních sloupců v použitém rozsahu

V předchozí metodě jsme získali číslo posledního sloupce v použitém rozsahu. V tomto příkladu však určíme číslo posledního sloupce v použitém rozsahu v celém listu pomocí příkazu VBA vybrat UsedRange Podívejme se na kroky, které musíme provést, abychom tuto akci provedli.

KROKY:

• Začněme tím, že, klikněte pravým tlačítkem myši na na aktivním listu s názvem Poslední sloupec '.
• Dále vyberte možnost Zobrazit kód '.

• Výše uvedený příkaz tedy otevře prázdné okno VBA Alternativním způsobem, jak otevřít okno kódu pro daný list, je stisknout tlačítko Alt + F11 .
• Poté do tohoto okna kódu vložte následující kód:

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

• Nyní klikněte na Spusťte nebo stiskněte tlačítko F5 spustit kód.

• Nakonec se nám zobrazí výsledek v okně pro zprávy. Posledním sloupcem v použitém rozsahu je sloupec 5. sloupce pracovního listu.

Podobná čtení

• Jak používat VBA pro každý řádek v rozsahu v aplikaci Excel
• Použití VBA k výběru rozsahu z aktivní buňky v aplikaci Excel (3 metody)
• Makro aplikace Excel: Řazení více sloupců pomocí dynamického rozsahu (4 metody)

5. Výběr poslední buňky posledního sloupce z UsedRange pomocí VBA

V pátém příkladu použijeme VBA vybrat Použitý sortiment vlastnost pro výběr poslední buňky posledního sloupce v listu excelu. Pro ilustraci tohoto příkladu budeme pokračovat v naší předchozí datové sadě. Nyní se podívejte na postup, jak tuto metodu provést.

KROKY:

• Nejprve vyberte aktivní list s názvem Last_Cell '.
• Další, klikněte pravým tlačítkem myši na na název listu. Vyberte možnost Zobrazit kód '.

• Pak se zobrazí prázdné okno VBA také můžeme stisknout tlačítko Alt + F11 otevřít toto okno kódu.
• Poté do tohoto okna kódu zadejte následující 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 

• Pro spuštění kódu klikněte na Spustit nebo stiskněte tlačítko F5 .

• Nakonec vidíme výsledek na následujícím obrázku. Vybranou poslední buňkou posledního sloupce je buňka E15 .

6. Vyhledání rozsahu buněk vybraného UsedRange pomocí aplikace Excel VBA

V tomto příkladu použijeme VBA k nalezení rozsahu buněk vybraného použitého rozsahu v listu excelu. Použijeme příkaz VBA kód pro všechny sloupce v našem použitém rozsahu. Kód vrátí rozsah buněk i adresu sloupce v použitém rozsahu. Pro provedení této akce postupujte podle následujících kroků.

KROKY:

• Na začátku, klikněte pravým tlačítkem myši na na kartě aktivního listu s názvem Vyhledat rozsah buněk '.
• Za druhé vyberte možnost Zobrazit kód '.

• Otevře se prázdné okno VBA Další způsob, jak otevřít toto okno kódu, je stisknout tlačítko Alt + F11 .
• Potřetí do tohoto okna kódu zadejte následující kód:

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

• Poté klikněte na tlačítko Spustit nebo stiskněte tlačítko F5 klíč.

• Nakonec se zobrazí okno se zprávou, jako je následující obrázek.

Podobná čtení

• Smyčka VBA pro řádky a sloupce v rozsahu v aplikaci Excel (5 příkladů)
• Jak převést rozsah na pole v aplikaci Excel VBA (3 způsoby)

7. Vložení vlastnosti VBA UsedRange pro počítání prázdných buněk

V tomto příkladu použijeme VBA vybrat UsedRange Někdy se může stát, že v použitém rozsahu našeho datového souboru máme prázdné buňky. Počet těchto prázdných buněk můžeme snadno spočítat pomocí vlastnosti UsedRange nemovitosti. Podívejme se na postup při provádění tohoto příkladu.

KROKY:

• Za prvé, klikněte pravým tlačítkem myši na na kartě aktivního listu s názvem Empty_Cells '.
• Dále vyberte možnost Zobrazit kód '.

• Výše uvedená akce otevře prázdný VBA Alternativním způsobem, jak otevřít okno kódu, je stisknout tlačítko Alt + F11 .
• Poté do tohoto okna kódu vložte následující 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 buněk ve 4 použitých sloupcích je " & d & _ " a z nich " & _ j & " buňky jsou prázdné." End Sub 

• Poté klikněte na Spustit nebo stiskněte tlačítko F5 spustit kód.

• Nakonec se nám zobrazí výsledek v poli zprávy. V poli zprávy se zobrazí počet celkových buněk a prázdných buněk v našem použitém rozsahu.

8. VBA UsedRange pro vyhledání první prázdné buňky ve sloupci v aplikaci Excel

V posledním příkladu použijeme excelový příkaz VBA vybrat Použitý sortiment Tato metoda vyhledá první prázdnou buňku konkrétního sloupce. Prázdná buňka bude vždy mimo použitý rozsah datového souboru. Pokud je tedy některá buňka v použitém rozsahu prázdná nebo prázdná, nebude v této metodě brána v úvahu. Nyní postupujte podle následujících kroků, abyste tuto metodu provedli.

KROKY:

• Začněme tím, že, klikněte pravým tlačítkem myši na na kartě aktivního listu s názvem First_Empty '.
• Dále vyberte možnost Zobrazit kód '.

• Otevře se prázdné okno VBA kódové okno. Můžeme také stisknout Alt + F11 otevřít toto okno kódu.
• Dále do prázdného pole zadejte následující 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 

• Poté klikněte na tlačítko Spustit nebo stiskněte tlačítko F5 klíč.

• Nakonec výše uvedený kód vloží hodnotu ' FirstEmptyCell ' v buňce E16 Je to první prázdná buňka sloupce E za použitým rozsahem souboru dat.

Další informace: Smyčka Excel VBA pro procházení rozsahu až do prázdné buňky (4 příklady)

Závěr

Tento výukový program v kostce ukazuje. 8 příklady použití VBA vybrat UsedRange Chcete-li si vyzkoušet své dovednosti, stáhněte si cvičný pracovní list použitý pro tento článek. Pokud máte jakékoli dotazy, neváhejte se vyjádřit v níže uvedeném poli. Náš tým se bude snažit na vaši zprávu reagovat co nejdříve. Sledujte další inovativní postupy Microsoft Excel řešení v budoucnu.