VBA XLUP - Kaip naudoti „VBA XLUP“ programoje „Excel“? (su pavyzdžiais)

„Excel VBA XLUP“

Rašant VBA kodą reikia nepamiršti vieno dalyko, kurį darote naudodami įprastą darbalapį, o tą patį galite pakartoti ir VBA. Vienas tokių VBA kodavimo raktinių žodžių yra „XLUP“ šiame straipsnyje. Mes parodysime, koks yra šis raktinis žodis VBA kodavime ir kaip jį naudoti koduojant.

Kaip naudoti VBA XLUP koduojant?

Toliau pateikiami „Excel VBA XLUP“ pavyzdžiai.

1 pavyzdys - perkelkite langelius į ištrintą ląstelių padėtį

Pvz., Pažiūrėkite į toliau pateiktų duomenų scenarijų, kur reikia ištrinti tuos spalvotų langelių duomenis ir dar daugiau žemiau pateiktų eilučių duomenų į aukščiau nurodytus duomenis.

Vienas iš būdų tai ištrinti darbalapyje yra pasirinkti tas ląsteles, kuriose galime paprasčiausiai ištrinti visą pačią eilutę. Bet čia situacijos yra šiek tiek keblios, nes turiu spalvotų langelių 1 lentelėje, kai ištriname visą eilutę, net 2 lentelės eilutės taip pat ištrinamos, bet mes nenorime, kad taip atsitiktų; Vietoj to, mums reikia ištrinti tik spalvotas eilutes, o žemiau langeliai turėtų judėti aukštyn ištrintų langelių padėtimi.

Pirmiausia pasirinkite spalvotas langelius ir paspauskite Ctrl + Minus Symbol (-), kad atidarytumėte parinktį „Delete“.

Spartusis klavišas, kad atidarytumėte parinktį „Ištrinti“

„Ištrinti“ parinkčių lange turime keturias galimybes. Mes galime pasirinkti veiksmą pagal mūsų reikalavimus. Kadangi mums reikia perkelti savo ląsteles į viršų toms ištrintoms ląstelėms, pasirinkite „Shift Cell Up“.

2 lentelės eilutės bus nepakeistos.

Šiam VBA veiksmui atlikti reikia naudoti ypatybę „XLUP“, kad būtų galima atlikti panašų VBA veiksmų rinkinį. Dabar eikite į VBA redaktoriaus langą ir paleiskite makrokomandos pavadinimą.

Kodas:

XLUP_Pavyzdys () galinis sub

Pirmiausia pateikite langelį RANGE, kuris bus įtrauktas į šią operaciją. Atlikdami šį veiksmą, pirmieji langeliai, kurie turi būti ištrinti ir judėti aukštyn, yra langeliai „A5: B5“.

Kodas:

XLUP_Pavyzdys () diapazonas ("A5: B5") Pabaiga

Šiam langelių diapazonui pasirinkite metodą „Ištrinti“.

Kodas:

XLUP_Pavyzdžio () diapazonas („A5: B5“). Ištrinkite pabaigos antrinę dalį

Kaip matote „Ištrinti“ metodą, turime vieną pasirenkamą argumentą kaip („Shift“). Šiam argumentui turime įvesti argumentą kaip „XLUP“.

Kodas:

XLUP_Example () diapazonas ("A5: B5"). Ištrinti poslinkį: = xlUp End Sub


Dabar galite paleisti šį kodą rankiniu būdu arba naudodamiesi sparčiuoju „Excel“ klavišu F5, kad pamatytumėte rezultatą.

Kaip matote 1 lentelėje, 6 eilutė buvo perkelta į 5 -ąją eilę, o kita vertus, lentelė, 2 eilutės (spalvotos) yra nepakeistos, todėl naudodami parinktį „VBA XLUP“ galime atlikti šią operaciją .

2 pavyzdys - raskite paskutinę naudotą eilutę naudodami XLUP

Įsivaizduokite situaciją, kai esate A20 langelyje (žiūrėkite žemiau esančiame paveikslėlyje), o paskutinis naudotas langelis yra A14.

Dabar, jei norite pasirinkti paskutinį naudojamą langelį (A14), kaip tai padarysite naudodami spartųjį klavišą ???

Norėdami pereiti į paskutinį naudojamą langelį iš dabartinės padėties, naudosime klavišus „Ctrl“ + rodyklė aukštyn .

Spartusis klavišas, skirtas pereiti prie paskutinio panaudoto langelio

Taigi iš dabartinės langelio „Ctrl“ + rodyklė aukštyn pasirinko paskutinį naudojamą langelį. Panašiai, VBA koduodami , mes naudojame END (XLUP), kad atliktume tą patį.

Dabar grįžkite į VBA kodavimo langą.

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 the 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 the data is very small, we started the room 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 an 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.

Vietoj objekto RANGE naudojau CELLS ypatybę. Leiskite jums tai išsamiai paaiškinti.

ROW.COUNT bus suskaičiuota, kiek eilučių yra 1 stulpelyje . Tai padarys tai, kad vietoj atsitiktinio langelio adreso bus atsižvelgta į paskutinę darbalapio langelį. Ankstesniu atveju mes naudojome A14 kaip atsitiktinį langelio adresą.

Įsimintini dalykai apie VBA XLUP

  • XLUP yra žodis, naudojamas VBA kode, norint pakartoti „Excel“ klavišo „Up Arrow“ veiksmą.
  • VBA XLUP naudojamas norint pereiti iš aktyvių langelių į aukščiau nurodytą langelį arba paskutinį kartą panaudotą langelį.
  • XLUP paprastai naudojamas kartu su END nuosavybe VBA.

Įdomios straipsniai...