VBA XLUP | Ako používať VBA XLUP v programe Excel? (s príkladmi)

Excel VBA XLUP

Pri písaní kódu VBA musíte mať na pamäti jednu vec, čo robíte s bežným pracovným hárkom, a to isté môžete replikovať aj vo VBA. Jedno také kľúčové slovo v kódovaní VBA je „XLUP“, v tomto článku vám ukážeme, čo je toto kľúčové slovo v kódovaní VBA a ako ho použiť v kódovaní.

Ako používať VBA XLUP v kódovaní?

Nasledujú príklady programu Excel VBA XLUP.

Túto šablónu VBA XLUP Excel si môžete stiahnuť tu - Šablóna VBA XLUP Excel

Príklad č. 1 - Presunutie buniek do vymazanej polohy buniek

Napríklad sa pozrite na scenár nižšie uvedených údajov, kde je potrebné odstrániť tieto údaje farebných buniek a viac údajov v riadkoch pod na vyššie uvedené údaje.

Jedným zo spôsobov, ako to v pracovnom hárku vymazať, je vybrať bunky, v ktorých môžeme jednoducho vymazať celý riadok. Ale tu sú situácie trochu zložitejšie, pretože v Tabuľke 1 mám zafarbené bunky, keď odstránime celý riadok, dokonca sa odstránia aj riadky v Tabuľke 2, ale nechceme, aby sa to stalo, stačí iba odstrániť farebné riadky a pod bunkami by sa malo pohybovať hore pozíciu odstránených buniek.

Najskôr vyberte farebné bunky a stlačte Ctrl + symbol mínus (-), aby ste otvorili možnosť „Odstrániť“.

Klávesová skratka na otvorenie možnosti „Odstrániť“

V okne možností „mazania“ máme štyri možnosti, môžeme si zvoliť akciu podľa našej požiadavky. Pretože potrebujeme presunúť naše bunky smerom nahor pre tieto vymazané bunky, vyberte možnosť „Posunúť bunku nahor“.

Budeme mať nezmenené riadky tabuľky 2.

Táto akcia vo VBA vyžaduje použitie vlastnosti „XLUP“ na vykonanie podobnej sady akcií vo VBA. Teraz príďte do okna editora VBA a zadajte svoje meno makra.

Kód:

 Sub XLUP_Example () End Sub

Najskôr dodajte článok RANGE, ktorý má byť zahrnutý do tejto operácie. V tejto akcii sú prvé bunky, ktoré sa majú vymazať a posunúť nahor, bunky „A5: B5“.

Kód:

 Sub XLUP_Example () Range ("A5: B5") End Sub

Pre tento rozsah buniek vyberte metódu „Odstrániť“.

Kód:

 Sub XLUP_Example () Range ("A5: B5"). Odstrániť koncový sub

Ako vidíte pre metódu „Odstrániť“, máme jeden voliteľný argument ako [Shift], pre tento argument musíme zadať argument ako „XLUP“.

Kód:

 Sub XLUP_Example () Range ("A5: B5"). Odstrániť posun: = xlUp End Sub

Teraz môžete tento kód spustiť manuálne alebo pomocou klávesovej skratky programu Excel F5, aby ste videli výsledok.

Ako vidíte v tabuľke 1, riadok číslo 6 sme presunuli až do 5. riadku a na druhej strane tabuľka 2 riadky (farebné) je nezmenená, takže pomocou možnosti „VBA XLUP“ môžeme vykonať túto operáciu.

Príklad # 2 - Nájdite posledný použitý riadok pomocou XLUP

Predstavte si situáciu, že ste v 20. bunke (pozrite sa na obrázok nižšie) a vaša naposledy použitá bunka je A14.

Teraz, ak chcete zvoliť naposledy použitú bunku (A14). ako budete postupovať pomocou klávesovej skratky ???

Použili by sme Ctrl + šípku hore na presun na poslednú použitú bunku z aktuálnej polohy.

Klávesová skratka na presun do naposledy použitej bunky 

Ctrl + šípka nahor z aktuálnej bunky vybrali poslednú použitú bunku. Podobne pri kódovaní VBA používame na vykonanie toho istého príkazu END (XLUP) .

Teraz sa vráťte späť do okna kódovania VBA.

In this window, we will perform the task of finding the last used row in the worksheet. Create a new subprocedure in the VBA window.

Code:

 Sub XLUP_Example1() End Sub

To store the last used row number. define the variable as the VBA LONG data type.

Code:

 Sub XLUP_Example1() Dim Last_Row_Number As Long End Sub

Now for this variable, we will assign the last used row number.

Code:

 Sub XLUP_Example1() Dim Last_Row_Number As Long Last_Row_Number = End Sub

Now use RANGE object and open this object.

Code:

 Sub XLUP_Example1() Dim Last_Row_Number As Long Last_Row_Number = Range( End Sub

Now mention the active cell (A20) for RANGE object.

Code:

 Sub XLUP_Example1() Dim Last_Row_Number As Long Range("A14").Select Last_Row_Number = Range("A20") End Sub

Now open END property for supplied range cell.

Code:

 Sub XLUP_Example1() Dim Last_Row_Number As Long Range("A14").Select Last_Row_Number = Range("A20").End( End Sub

As you can see above, we have to arrow key options like “xlDown”, “xlToLeft”, “xlToRight”, “xlUp”. Since we are moving up from the A14 cell choose the “VBA XLUP” option.

Code:

 Sub XLUP_Example1() Dim Last_Row_Number As Long Range("A14").Select Last_Row_Number = Range("A20").End(xlUp) End Sub

After moving up from A14 cell we need to mention what we need to do since we need the last used row number I will use ROW property.

Code:

 Sub XLUP_Example1() Dim Last_Row_Number As Long Range("A14").Select Last_Row_Number = Range("A20").End(xlUp).Row End Sub

Now for the message box assign the value of variable “Last_Row_Number”.

Code:

 Sub XLUP_Example1()  Dim Last_Row_Number As Long Range("A14").Select Last_Row_Number = Range("A20").End(xlUp).Row MsgBox Last_Row_Number End Sub

Now you can run this code manually or through shortcut key F5, to see the result.

So message box showing the last used row number as 14, so our last data used row number is A14 cell.

In this case, since data is very small we started from A20 cell but when the data is large we cannot say which cell to take into consideration first, in such cases we need to employ a different technique.

We need to use CELLS property, below is the example of the same.

Code:

 Sub XLUP_Example2() Dim Last_Row_Number As Long Last_Row_Number = Cells(Rows.Count, 1).End(xlUp).Row MsgBox Last_Row_Number End Sub

Now you can run this code manually or through shortcut key F5, to see the result.

Instead of a RANGE object, I have used CELLS property. Let me explain this in detail to you.

ROW.COUNT this will count how many rows are there in column 1. What this will do is it will take into consideration of the last cell in the worksheet instead of random cell address, in the above case we have used A14 as the random cell address.

Things to Remember about VBA XLUP

  • XLUP is the word used in VBA code to replicate the action of the “Up Arrow” key in excel.
  • VBA XLUP is used to move from active cells to the above cell or last used cell.
  • XLUP is generally used along with END property in VBA.