Exceli VBA XLUP
Üks asi, mida peate VBA-koodi kirjutamise ajal meeles pidama, on see, mida teete tavalise töölehega ja võite sama asja ka VBA-s kopeerida. Üks selline märksõna VBA kodeerimisel on selles artiklis “XLUP”. Näitame teile, mis see märksõna on VBA kodeerimisel ja kuidas seda kodeerimisel kasutada.

Kuidas kasutada VBA XLUP-i kodeerimisel?
Järgnevad on Exceli VBA XLUP näited.
Näide # 1 - teisaldage lahtrid lahtrite kustutatud asendisse
Näiteks vaadake allpool olevate andmete stsenaariumi, kus peate kustutama need värviliste lahtrite andmed ja allpool olevate ridade andmed ülaltoodud andmeteni.

Üks viis selle töölehel kustutamiseks on valida need lahtrid, kust saame lihtsalt kogu rea ise kustutada. Kuid siin on olukorrad veidi keerulised, kuna mul on tabelis 1 värvilised lahtrid, kui kustutame kogu rea, isegi tabeli 2 read kustutatakse, kuid me ei taha, et see juhtuks; selle asemel peame kustutama ainult värvilised read ja lahtrite all peaksid liikuma kustutatud lahtrite positsiooni ülespoole.
Kõigepealt valige värvilised lahtrid ja vajutage klahvikombinatsiooni Ctrl + Miinus sümbol (-), et avada suvand „Kustuta“.
Otseteeklahv suvandi Kustuta avamiseks


"Kustuta" valikute aknas on meil neli võimalust. Saame valida toimingu vastavalt meie nõudele. Kuna me peame nende kustutatud rakkude positsiooni jaoks oma rakud ülespoole viima, valige „Shift Cell Up”.

Meil on tabeli 2 rida muutmata.

See VBA-s toiming nõuab VBA-s sarnaste toimingute tegemiseks atribuudi “XLUP” kasutamist. Nüüd tulge VBA redaktori aknasse ja käivitage oma makro nimi.
Kood:
Alam XLUP_Example () Lõpeta alam

Esiteks tarnige lahter RANGE, et see toiming kaasataks. Selles toimingus on esimesed lahtrid, mis kustutatakse ja liigutatakse ülespoole, lahtrid “A5: B5”.
Kood:
Alam XLUP_Example () vahemik ("A5: B5") Lõpp alam

Selle lahtrivahemiku jaoks valige meetod „Kustuta“.
Kood:
Alam XLUP_Example () vahemik ("A5: B5"). Kustuta alam alam

Nagu näete meetodi „Kustuta“ puhul, on meil üks valikuline argument (Shift). Sest see argument, peame sisestada argument "XLUP."
Kood:
Alam XLUP_Example () vahemik ("A5: B5"). Kustuta nihe: = xlUp Lõpp alam
Nüüd saate tulemuse nägemiseks käivitada selle koodi käsitsi või kiirklahvi Excel abil.

Nagu näete tabelist 1, on meil rida number 6 viidud viiendale reale ja teisest küljest on tabelis 2 rida (värviline) muutmata, nii et valiku "VBA XLUP" abil saame selle toimingu teha .
Näide # 2 - leidke viimati kasutatud rida XLUP-i abil
Kujutage ette olukorda, kus asute lahtris A20 (vaadake pilti allpool) ja teie viimati kasutatud lahter on A14.

Kui soovite nüüd valida viimati kasutatud lahtri (A14), kuidas saate teha otseteeklahvi abil ???
Praegusest positsioonist viimati kasutatud lahtrisse liikumiseks kasutaksime klahve Ctrl + Nool üles.
Kiirklahv viimati kasutatud lahtrisse liikumiseks


Niisiis valis praegusest lahtrist Ctrl + nool ülespoole viimati kasutatud lahtri. Samamoodi kasutame VBA kodeerimisel sama toimimiseks END (XLUP) .
Nüüd tulge tagasi VBA kodeerimisakna juurde.
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.

Objekti RANGE asemel olen kasutanud omadust CELLS. Lubage mul seda teile üksikasjalikult selgitada.
ROW.COUNT loeb see, mitu rida veerus 1 on. Mida see teeb, on see, et juhusliku lahtriaadressi asemel võetakse arvesse töölehe viimast lahtrit. Ülaltoodud juhul oleme juhusliku lahtriaadressina kasutanud A14.
VBA XLUPi kohta tuleb meeles pidada
- XLUP on VBA-koodis kasutatav sõna, et kopeerida Excelis klahvi „Nool üles“ toimingut.
- VBA XLUP-i kasutatakse liikumiseks aktiivsetest lahtritest ülaltoodud lahtritesse või viimati kasutatud lahtritesse.
- XLUP-i kasutatakse VBA-s tavaliselt koos omadusega END.