Excel VBA XLUP
Viena lieta, kas jums jāpatur prātā, rakstot VBA kodu, ir tas, ko jūs darāt ar parasto darblapu, un to pašu varat atkārtot arī VBA. Viens no šādiem atslēgvārdiem VBA kodēšanā šajā rakstā ir “XLUP”. Mēs parādīsim, kāds ir šis atslēgvārds VBA kodēšanā un kā to izmantot kodēšanā.
Kā kodēšanā izmantot VBA XLUP?
Šie ir Excel VBA XLUP piemēri.
1. piemērs - pārvietojiet šūnas uz dzēsto šūnu pozīciju
Piemēram, aplūkojiet zemāk esošo datu scenāriju, kur jums jāizdzēš šie krāsaino šūnu dati un vairāk augšdaļā zemāk esošo rindu dati līdz iepriekš minētajiem datiem.
Viens no veidiem, kā to izdzēst darblapā, ir atlasīt tās šūnas, kurās mēs varam vienkārši izdzēst visu pašu rindu. Bet šeit situācijas ir nedaudz sarežģītas, jo man ir krāsainas šūnas 1. tabulā, kad mēs izdzēšam visu rindu, pat 2. tabulas rindas arī tiek izdzēstas, taču mēs nevēlamies, lai tas notiktu; tā vietā mums ir jāizdzēš tikai krāsainas rindas, un zem šūnām vajadzētu pārvietoties uz augšu izdzēsto šūnu pozīcijā.
Vispirms atlasiet krāsainās šūnas un nospiediet Ctrl + Mīnus simbols (-), lai atvērtu opciju “Dzēst”.
Īsinājumtaustiņš, lai atvērtu opciju “Dzēst”
Opciju logā “dzēst” mums ir četras iespējas. Mēs varam izvēlēties darbību atbilstoši mūsu prasībām. Tā kā mums ir jāpārvieto šūnas uz augšu šo izdzēsto šūnu pozīcijai, izvēlieties “Shift Cell Up”.
Mums būs nemainītas 2. tabulas rindas.
Lai veiktu šo darbību VBA, ir nepieciešams izmantot rekvizītu “XLUP”, lai veiktu līdzīgu darbību kopumu VBA. Tagad nāciet uz VBA redaktora logu un sāciet savu makro nosaukumu.
Kods:
XLUP_Example () apakšdaļa Apakšdaļa
Pirmkārt, piegādājiet šūnu RANGE, kas jāiekļauj šajā operācijā. Šajā darbībā pirmās šūnas, kas jāizdzēš un jāpārvieto uz augšu, ir šūnas “A5: B5”.
Kods:
XLUP_Example () diapazona apakšdaļa ("A5: B5") Apakšējā apakšdaļa
Šim šūnu diapazonam atlasiet metodi “Dzēst”.
Kods:
XLUP_Example () diapazona apakšdaļa ("A5: B5"). Dzēst beigu apakšsadaļu
Kā redzat metodei “Dzēst”, mums ir viens izvēles arguments kā (Shift). Šim argumentam mums jāievada arguments kā “XLUP”.
Kods:
XLUP_Example () diapazona apakšdaļa ("A5: B5"). Dzēst nobīdi: = xlUp End Sub
Tagad jūs varat palaist šo kodu manuāli vai ar īsinājumtaustiņu Excel taustiņu F5, lai redzētu rezultātu.
Kā jūs varat redzēt, 1. tabulā, mums ir rindas numurs 6 pārcelts līdz 5 th kārtas, un, no otras puses tabulā, 2. rindā (krāsas) ir nemainīgas, tāpēc, izmantojot "VBA XLUP", mēs varam darīt šo darbību .
2. piemērs - atrodiet pēdējo izmantoto rindu, izmantojot XLUP
Iedomājieties situāciju, kad atrodaties A20 šūnā (skatiet zemāk esošo attēlu), un jūsu pēdējā izmantotā šūna ir A14.
Tagad, ja vēlaties izvēlēties pēdējo izmantoto šūnu (A14), kā jums veiksies, izmantojot īsinājumtaustiņu ???
Mēs izmantotu taustiņu Ctrl + augšupvērstā bultiņa, lai pārietu uz pēdējo izmantoto šūnu no pašreizējās pozīcijas.
Īsinājumtaustiņš, lai pārietu uz pēdējo izmantoto šūnu
Tātad no pašreizējās šūnas Ctrl + augšupvērstā bultiņa atlasīja pēdējo izmantoto šūnu. Līdzīgi, VBA kodēšanā mēs izmantojam END (XLUP), lai veiktu to pašu.
Tagad atgriezieties VBA kodēšanas logā.
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.
RANGE objekta vietā esmu izmantojis CELLS īpašumu. Ļaujiet man jums to detalizēti izskaidrot.
ROW.COUNT tas skaitīs, cik rindu ir 1. kolonnā . Tas tiks darīts, jo izlases šūnas adreses vietā tiks ņemta vērā pēdējā darblapas šūna. Iepriekš minētajā gadījumā mēs izmantojām A14 kā nejaušas šūnas adresi.
Lietas, kas jāatceras par VBA XLUP
- XLUP ir vārds, kas tiek izmantots VBA kodā, lai programmā Excel atkārtotu taustiņa “Augšupvērstā bultiņa” darbību.
- VBA XLUP tiek izmantots, lai pārietu no aktīvajām šūnām uz iepriekš minēto vai pēdējo izmantoto šūnu.
- XLUP parasti tiek izmantots kopā ar END īpašumu VBA.
