VBA XLUP | Hogyan kell használni a VBA XLUP programot az Excel programban? (példákkal)

Excel VBA XLUP

A VBA-kód írása során egy dolgot szem előtt kell tartania, amit a szokásos munkalap segítségével csinál, és ugyanezt megismételheti a VBA-ban is. Az egyik ilyen kulcsszó a VBA kódolásban az „XLUP”, ebben a cikkben megmutatjuk, mi ez a kulcsszó a VBA kódolásban, és hogyan kell használni a kódolásban.

Hogyan kell használni a VBA XLUP-ot a kódolásban?

Az alábbiakban bemutatjuk az Excel VBA XLUP példáit.

Ezt a VBA XLUP Excel sablont innen töltheti le - VBA XLUP Excel sablont

1. példa - Mozgassa a cellákat a cellák törölt helyzetébe

Nézze meg például az alábbi adatok forgatókönyvét, ahol törölnie kell ezeket a színes cellák adatait, és feljebb kell mutatnia az alábbi sorok adatait a fenti adatokig.

Ennek a munkalapon történő törlésének egyik módja azoknak a celláknak a kiválasztása, amelyekből egyszerűen törölhetjük magát a teljes sort. De itt a helyzetek kevéssé bonyolultak, mert az 1. táblázatban színes cellák vannak, amikor a teljes sort töröljük, még a 2. táblázat sorai is törlődnek, de nem akarjuk, hogy ez megtörténjen, csak színes sorokat kell törölnünk, és a cellák alatt mozogniuk kell fel a törölt cellák helyzetét.

Először válassza ki a színes cellákat, és nyomja meg a Ctrl + Mínusz szimbólum (-) gombot a „Törlés” opció megnyitásához.

Parancsikon a „Törlés” opció megnyitásához

A „törlés” opciók ablakban négy lehetőségünk van, a követelményünknek megfelelően kiválaszthatjuk a műveletet. Mivel fel kell mozgatnunk a sejtjeinket a törölt sejtek számára, válassza a „Shift Cell Up” lehetőséget.

A 2. táblázat sorai változatlanok lesznek.

A VBA ezen műveletéhez az „XLUP” tulajdonság használatára van szükség a VBA hasonló műveletsorozatának végrehajtásához. Most jöjjön a VBA szerkesztő ablakához, és indítsa el a makró nevét.

Kód:

 XLUP_Példa () Vége Sub 

Először szállítsa be a RANGE cellát, amelyet bele kell foglalni a műveletbe. Ebben a műveletben az első törlendő és felfelé haladó cellák az „A5: B5” cellák.

Kód:

 XLUP_Example () Tartomány ("A5: B5") alvége Sub 

Ehhez a cellatartományhoz válassza a „Törlés” módszert.

Kód:

 XLUP_Example () tartomány () tartomány ("A5: B5"). Törölje a Sub Sub végét 

Amint láthatja a „Törlés” módszernél, egy opcionális argumentumunk van [Shift] néven, ehhez az argumentumhoz „XLUP” néven kell megadnunk az argumentumot.

Kód:

 XLUP_Example () tartomány () tartomány ("A5: B5"). Törlés shift: = xlUp End Sub 

Most futtathatja ezt a kódot manuálisan vagy az F5 gyorsbillentyűvel, hogy megnézze az eredményt.

Amint az 1. táblázatból látható, a 6. sort az 5. sorra mozgattuk, másrészt a 2. táblázat (színes) változatlan, így a „VBA XLUP” opcióval ezt a műveletet elvégezhetjük.

2. példa - Keresse meg az utoljára használt sort az XLUP használatával

Képzeljen el egy olyan helyzetet, amikor az A20-as cellában tartózkodik (nézze meg az alábbi képet), és utoljára használt cellája A14.

Most, ha az utoljára használt cellát szeretné kiválasztani (A14). hogy fogod csinálni egy gyorsbillentyű használatával ???

A Ctrl + Fel nyíl billentyűkkel lépnénk az utoljára használt cellára az aktuális pozícióból.

Gyorsbillentyű az utoljára használt cellához lépéshez 

Tehát az aktuális cellából a Ctrl + Fel nyíl választotta ki az utoljára használt cellát. Hasonlóképpen, a VBA kódolásnál az END-t (XLUP) is használjuk ugyanezek végrehajtására.

Most térjen vissza a VBA kódolási ablakhoz.

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.