Ako používať VBA na výber rozsahu z aktívnej bunky v programe Excel (3 metódy)

Hugh West

20-08-2023 Makrá & Excel VBA
  • Zdieľajte To
Hugh West

Ukážeme vám 3 metódy v Excel VBA na vybrať rozsah z adresy aktívna bunka Na demonštráciu sme vybrali súbor údajov s 3 stĺpce : " Kresťanské meno ", " Priezvisko " a " E-mail ". Vyberieme bunka a používanie Excel VBA vyberieme rozsah z tohto bunka .

Stiahnite si cvičebnicu

Vybrať rozsah z aktívnej bunky.xlsm

3 spôsoby výberu rozsahu z aktívnej bunky pomocou VBA v programe Excel

1. Použitie VBA na výber rozsahu od aktívnej bunky po poslednú neprázdnu bunku

Pri prvej metóde použijeme Range.End nehnuteľnosť.

Tu zadáme náš kód ako Modul . Ak chcete vyzdvihnúť Modul okno, vykonajte tieto úkony.

Kroky:

  • Po prvé, z Vývojár karta>>> vybrať Visual Basic .

Stránka Visual Basic zobrazí sa okno.

  • Nakoniec od Vložte >>> vybrať Modul .

Tým sa zobrazí Modul okno.

1.1. Používanie vlastnosti End(xlUp)

V tejto časti vyberieme rozsah smerom nahor až do posledného neprázdna bunka z našej aktívna bunka .

Kroky:

  • Najprv vyvolajte Modul okno.
  • Po druhé, typ nasledujúci kód. 
 Sub ToUp() Range(ActiveCell, ActiveCell.End(xlUp)).Select End Sub

Voláme naše Sub Postup ToUp . Potom vyberáme naše rozsah Prvá hodnota je naša aktívna bunka Posledná hodnota je ActiveCell.End(xlUp) . Nakoniec vyberáme rozsah s Rozsah . Vyberte metóda.

  • Po tretie, Uložiť a zatvorte okno.
  • Potom vyberte bunka C6 . bunka je náš aktívny bunka .

Teraz vyvoláme Makro okno. Ak to chcete urobiť...

  • Z Vývojár karta>>> vybrať Makrá .

Potom sa Makro dialógové okno sa objaví.

  • Potom vyberte položku " ToUp " z " Názov makra: ".
  • Nakoniec kliknite na Spustiť .

Vidíme, že sme vybrané . rozsah buniek C4:C6 .

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

1.2. Začlenenie vlastnosti End(xlDown)

V tejto časti vyberieme rozsah smerom nadol z našej aktívna bunka .

Kroky:

  • Najprv vyvolajte Modul okno.
  • Po druhé, typ nasledujúci kód. 
 Sub ToDown() Range(ActiveCell, ActiveCell.End(xlDown)).Select End Sub

Voláme naše Sub Postup ToDown . Potom vyberáme naše rozsah Prvá hodnota je naša aktívna bunka Posledná hodnota je ActiveCell.End(xlDown) . Nakoniec vyberáme rozsah s Rozsah . Vyberte metóda.

  • Po tretie, Uložiť a zatvorte okno.
  • Potom vyberte bunka C6 Toto je náš aktívna bunka .

  • Potom vyvolajte Dialógové okno makra .
  • Vyberte " ToDown ".
  • Nakoniec kliknite na Spustiť .

Preto sme vybrané a rozsah z našej aktívna bunka pomocou Excel VBA .

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

Podobné články

  • Excel VBA: Slučka cez stĺpce v rozsahu (5 príkladov)
  • Ako používať VBA pre každý riadok v rozsahu v programe Excel
  • Makro programu Excel: Triedenie viacerých stĺpcov pomocou dynamického rozsahu (4 metódy)
  • 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)

1.3. Použitie vlastnosti End(xlToLeft)

V tejto časti vyberieme rozsah na vľavo nášho aktívna bunka .

Kroky:

  • Najprv vyvolajte Modul okno.
  • Po druhé, typ nasledujúci kód. 
 Sub ToLeft() Range(ActiveCell, ActiveCell.End(xlToLeft)).Select End Sub

Voláme naše Sub Postup ToLeft . Potom vyberáme naše rozsah Prvá hodnota je naša aktívna bunka Posledná hodnota je ActiveCell.End(xlToLeft) . Nakoniec vyberáme rozsah s Rozsah . Vyberte metóda.

  • Po tretie, Uložiť a zatvorte okno.
  • Potom vyberte bunka D7 Toto je náš aktívna bunka .

  • Potom vyvolajte Dialógové okno makra .
  • Vyberte " ToLeft ".
  • Nakoniec kliknite na Spustiť .

Preto sme vybrané a rozsah z našej aktívna bunka pomocou Excel VBA .

1.4. Implementácia vlastnosti End(xlToRight)

V tejto časti vyberieme rozsah na vpravo nášho aktívna bunka .

Kroky:

  • Najprv vyvolajte Modul okno.
  • Po druhé, typ nasledujúci kód. 
 Sub ToLeft() Range(ActiveCell, ActiveCell.End(xlToRight)).Select End Sub

Voláme naše Dílčí postup ToRight . Potom vyberáme naše rozsah Prvá hodnota je naša aktívna bunka Posledná hodnota je ActiveCell.End(xlToRight) . Nakoniec vyberáme rozsah s Rozsah . Vyberte metóda.

  • Po tretie, Uložiť a zatvorte okno.
  • Potom vyberte bunka C8 Toto je náš aktívna bunka .

  • Potom vyvolajte Dialógové okno Makro .
  • Vyberte " ToRight ".
  • Nakoniec kliknite na Spustiť .

Preto sme vybrané a rozsah z našej aktívna bunka pomocou Excel VBA .

2. Použitie vlastnosti VBA Range.Offset na výber rozsahu z aktívnej bunky pomocou VBA v programe Excel

Pri druhej metóde použijeme VBA Range.Offset vybrať vlastnosť rozsah pomocou nášho aktívna bunka .

Kroky:

  • Po prvé, typ nasledujúci kód do Modul okno. 
 Sub UsingOffset() Range(ActiveCell, ActiveCell.Offset(1, 2)).Select End Sub

Vytvorili sme naše Dílčí postup UsingOffset . Potom vyberáme naše rozsah Prvá hodnota je naša aktívna bunka Posledná hodnota je ActiveCell.Offset (1,2) . S Vlastnosť Offset presúvame sa O 1 riadok nižšie a 2 stĺpce vpravo . Nakoniec vyberáme rozsah s Rozsah . Vyberte metóda.

  • Po druhé, Uložiť a zatvorte okno.
  • Potom vyberte bunka B8 Toto je náš aktívna bunka .

  • Potom vyvolajte Dialógové okno makra .
  • Vyberte " UsingOffset ".
  • Nakoniec kliknite na Spustiť .

Na záver sme vybrané a rozsah z aktívna bunka Okrem toho by mal tento krok vyzerať takto.

Prečítajte si viac: Excel VBA: Získanie rozsahu buniek s hodnotami (7 príkladov)

3. Výber rozsahu z aktívnej bunky pomocou VBA v programe Excel s využitím vlastnosti CurrentRegion

Pri poslednej metóde budeme používať Range.CurrentRegion nehnuteľnosť.

Kroky:

  • Po prvé, typ nasledujúci kód do Modul okno. 
 Sub cRegion() ActiveCell.CurrentRegion.Select End Sub

Voláme naše Sub Postup cRegion . Potom vyberáme naše rozsah . S CurrentRegion vyberáme vlastnosť rozsah až do prázdna bunka . Nakoniec vyberáme rozsah s Rozsah . Vyberte metóda.

  • Po druhé, Uložiť a vráťte sa do Excel list.
  • Potom vyberte bunka C10 Toto je náš aktívna bunka .

  • Potom vyvolajte Dialógové okno makra .
  • Vyberte " cRegion ".
  • Nakoniec kliknite na Spustiť .

Preto sme vybrané . rozsah až do prázdna bunka .

Praktická časť

Pre každú metódu sme poskytli súbory údajov z praxe v Excel súbor.

Záver

Ukázali sme vám 3 metódy Excel VBA vybrať rozsah z adresy aktívna bunka . Ak máte problémy s pochopením krokov, neváhajte a komentujte ich nižšie. Ďakujeme za prečítanie, pokračujte v excelovaní!

Predchádzajúci príspevok Ako previesť dátum na text RRRRMMDD (3 rýchle spôsoby)
Ďalší príspevok Ako používať funkciu VBA DIR v programe Excel (7 praktických príkladov)

Hugh West je veľmi skúsený tréner a analytik Excelu s viac ako 10-ročnými skúsenosťami v tomto odvetví. Má bakalársky titul v odbore účtovníctvo a financie a magisterský titul v odbore Business Administration. Hugh má vášeň pre vyučovanie a vyvinul jedinečný vyučovací prístup, ktorý sa dá ľahko sledovať a pochopiť. Jeho odborné znalosti Excelu pomohli tisíckam študentov a profesionálov na celom svete zlepšiť svoje zručnosti a vyniknúť vo svojej kariére. Hugh sa prostredníctvom svojho blogu delí o svoje znalosti so svetom a ponúka bezplatné výukové programy Excelu a online školenia, ktoré jednotlivcom a firmám pomôžu naplno využiť ich potenciál.