Jak použít VBA k výběru rozsahu z aktivní buňky v aplikaci Excel (3 metody)

Hugh West

20-08-2023 Makra & Excel VBA
  • Sdílet Toto
Hugh West

Ukážeme vám 3 metody v Excel VBA na vybrat rozsah z aktivní buňka Abychom to demonstrovali, vybrali jsme datovou sadu s. 3 sloupce : " Jméno ", " Příjmení " a " E-mail ". Vybereme buňka a použití Excel VBA vybereme rozsah z tohoto buňka .

Stáhnout cvičebnici

Vybrat rozsah z aktivní buňky.xlsm

3 způsoby výběru rozsahu z aktivní buňky pomocí VBA v aplikaci Excel

1. Použití VBA k výběru rozsahu od aktivní buňky po poslední neprázdnou buňku

Pro první metodu použijeme příkaz Range.End nemovitosti.

Zde zadáme náš kód jako Modul ...abyste se mohli podívat na Modul okno, proveďte tyto úkony.

Kroky:

  • Za prvé, z Vývojář tab>>> vybrat Visual Basic .

Na stránkách Visual Basic zobrazí se okno.

  • A konečně, z Vložte >>> vybrat Modul .

Tím se zobrazí Modul okno.

1.1. Použití vlastnosti End(xlUp)

V této části vybereme položku rozsah směrem nahoru až po poslední neprázdná buňka z naší aktivní buňka .

Kroky:

  • Nejprve vyvolejte Modul okno.
  • Za druhé, typ následující kód. 
 Sub ToUp() Range(ActiveCell, ActiveCell.End(xlUp)).Select End Sub

Voláme naše Sub Postup ToUp . Pak vybíráme naše rozsah První hodnotou je naše aktivní buňka Poslední hodnota je ActiveCell.End(xlUp) . Nakonec vybíráme rozsah s Rozsah . Vyberte metoda.

  • Za třetí, Uložit a zavřete okno.
  • Poté vyberte buňka C6 . buňka je naše aktivní buňka .

Nyní přivedeme nahoru Makro okno. K tomu...

  • Z Vývojář tab>>> vybrat Makra .

Poté se Makro dialogové okno se objeví.

  • Poté vyberte možnost " ToUp " z " Název makra: ".
  • Nakonec klikněte na Spustit .

Vidíme, že jsme vybrané na rozsah buněk C4:C6 .

Přečtěte si více: Excel VBA: Kopírování dynamického rozsahu do jiného sešitu

1.2. Začlenění vlastnosti End(xlDown)

V této části vybereme položku rozsah směrem dolů z naší aktivní buňka .

Kroky:

  • Nejprve vyvolejte Modul okno.
  • Za druhé, typ následující kód. 
 Sub ToDown() Range(ActiveCell, ActiveCell.End(xlDown)).Select End Sub

Voláme naše Sub Postup ToDown . Pak vybíráme naše rozsah První hodnotou je naše aktivní buňka Poslední hodnota je ActiveCell.End(xlDown) . Nakonec vybíráme rozsah s Rozsah . Vyberte metoda.

  • Za třetí, Uložit a zavřete okno.
  • Poté vyberte buňka C6 Tohle je naše aktivní buňka .

  • Pak vyvolejte Dialogové okno Makro .
  • Vyberte " ToDown ".
  • Nakonec klikněte na Spustit .

Proto jsme vybrané a rozsah z naší aktivní buňka pomocí Excel VBA .

Přečtěte si více: Smyčka Excel VBA pro procházení rozsahu až do prázdné buňky (4 příklady)

Podobné články

  • Excel VBA: Smyčka přes sloupce v rozsahu (5 příkladů)
  • Jak používat VBA pro každý řádek v rozsahu v aplikaci Excel
  • Makro aplikace Excel: Řazení více sloupců pomocí dynamického rozsahu (4 metody)
  • 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)

1.3. Použití vlastnosti End(xlToLeft)

V této části vybereme položku rozsah na vlevo našeho aktivní buňka .

Kroky:

  • Nejprve vyvolejte Modul okno.
  • Za druhé, typ následující kód. 
 Sub ToLeft() Range(ActiveCell, ActiveCell.End(xlToLeft)).Select End Sub

Voláme naše Sub Postup ToLeft . Pak vybíráme naše rozsah První hodnotou je naše aktivní buňka Poslední hodnota je ActiveCell.End(xlToLeft) . Nakonec vybíráme rozsah s Rozsah . Vyberte metoda.

  • Za třetí, Uložit a zavřete okno.
  • Poté vyberte buňka D7 Tohle je naše aktivní buňka .

  • Pak vyvolejte Dialogové okno Makro .
  • Vyberte " ToLeft ".
  • Nakonec klikněte na Spustit .

Proto jsme vybrané a rozsah z naší aktivní buňka pomocí Excel VBA .

1.4. Implementace vlastnosti End(xlToRight)

V této části vybereme položku rozsah na vpravo našeho aktivní buňka .

Kroky:

  • Nejprve vyvolejte Modul okno.
  • Za druhé, typ následující kód. 
 Sub ToLeft() Range(ActiveCell, ActiveCell.End(xlToRight)).Select End Sub

Voláme naše Dílčí postup ToRight . Pak vybíráme naše rozsah První hodnotou je naše aktivní buňka Poslední hodnota je ActiveCell.End(xlToRight) . Nakonec vybíráme rozsah s Rozsah . Vyberte metoda.

  • Za třetí, Uložit a zavřete okno.
  • Poté vyberte buňka C8 Tohle je naše aktivní buňka .

  • Pak vyvolejte Dialogové okno Makro .
  • Vyberte " ToRight ".
  • Nakonec klikněte na Spustit .

Proto jsme vybrané a rozsah z naší aktivní buňka pomocí Excel VBA .

2. Použití vlastnosti VBA Range.Offset k výběru rozsahu z aktivní buňky pomocí VBA v aplikaci Excel

Pro druhou metodu použijeme příkaz VBA Range.Offset vybrat vlastnost rozsah pomocí našeho aktivní buňka .

Kroky:

  • Za prvé, typ následující kód do Modul okno. 
 Sub UsingOffset() Range(ActiveCell, ActiveCell.Offset(1, 2)).Select End Sub

Vytvořili jsme naše Dílčí postup UsingOffset . Pak vybíráme naše rozsah První hodnotou je naše aktivní buňka Poslední hodnota je ActiveCell.Offset (1,2) . S Vlastnost Offset stěhujeme se O 1 řádek níže a 2 sloupce vpravo . Nakonec vybíráme rozsah s Rozsah . Vyberte metoda.

  • Za druhé, Uložit a zavřete okno.
  • Poté vyberte buňka B8 Tohle je naše aktivní buňka .

  • Pak vyvolejte Dialogové okno Makro .
  • Vyberte " UsingOffset ".
  • Nakonec klikněte na Spustit .

Na závěr jsme vybrané a rozsah z aktivní buňka . Navíc by měl tento krok vypadat takto.

Přečtěte si více: Excel VBA: Získání rozsahu buněk s hodnotami (7 příkladů)

3. Výběr rozsahu z aktivní buňky pomocí VBA v aplikaci Excel s využitím vlastnosti CurrentRegion

Pro poslední metodu použijeme příkaz Range.CurrentRegion nemovitosti.

Kroky:

  • Za prvé, typ následující kód do Modul okno. 
 Sub cRegion() ActiveCell.CurrentRegion.Select End Sub

Voláme naše Sub Postup cRegion . Pak vybíráme naše rozsah . S CurrentRegion vybíráme vlastnost rozsah až do prázdná buňka . Nakonec vybíráme rozsah s Rozsah . Vyberte metoda.

  • Za druhé, Uložit a vrátit se zpět do Excel list.
  • Poté vyberte buňka C10 Tohle je naše aktivní buňka .

  • Pak vyvolejte Dialogové okno Makro .
  • Vyberte " cRegion ".
  • Nakonec klikněte na Spustit .

Proto jsme vybrané na rozsah až do prázdná buňka .

Praktická část

Pro každou metodu jsme poskytli soubory cvičných dat. Excel soubor.

Závěr

Ukázali jsme vám 3 metody Excel VBA vybrat rozsah z aktivní buňka . Pokud se setkáte s problémy s pochopením kroků, neváhejte se vyjádřit níže. Děkujeme za přečtení, pokračujte v excelování!

Předchozí příspěvek Jak převést datum na text YYYYMMDD (3 rychlé způsoby)
Další příspěvek Jak používat funkci VBA DIR v aplikaci Excel (7 praktických příkladů)

Hugh West je velmi zkušený školitel a analytik Excelu s více než 10 lety zkušeností v oboru. Má bakalářský titul v oboru Účetnictví a finance a magisterský titul v oboru Business Administration. Hugh má vášeň pro výuku a vyvinul jedinečný přístup k výuce, který lze snadno sledovat a pochopit. Jeho odborné znalosti Excelu pomohly tisícům studentů a profesionálů po celém světě zlepšit své dovednosti a vyniknout ve své kariéře. Prostřednictvím svého blogu Hugh sdílí své znalosti se světem a nabízí bezplatné výukové programy Excelu a online školení, které jednotlivcům a firmám pomohou dosáhnout jejich plného potenciálu.