VBA XLUP - Hvordan bruges VBA XLUP i Excel? (med eksempler)

Excel VBA XLUP

En ting, du skal huske på, mens du skriver VBA-kode, er hvad du gør med det almindelige regneark, og du kan også replikere den samme i VBA. Et sådant nøgleord i VBA-kodning er "XLUP" i denne artikel. Vi viser dig, hvad dette nøgleord er i VBA-kodning, og hvordan du bruger det til kodning.

Hvordan bruges VBA XLUP i kodning?

Følgende er eksempler på excel VBA XLUP.

Eksempel 1 - Flyt celler til slettet position af celler

Se for eksempel på scenariet med nedenstående data, hvor du har brug for at slette disse farvede celledata og mere op nedenstående rækkedata til ovenstående data.

En måde at slette dette på regnearket er at vælge de celler, hvor vi simpelthen kan slette hele rækken selv. Men her er situationer lidt vanskelige, fordi jeg har farvede celler i tabel 1, når vi sletter hele rækken, selv tabel 2-rækker slettes også, men vi ønsker ikke, at dette skal ske; i stedet behøver vi kun at slette farvede rækker, og under celler skal de bevæge sig opad på de slettede celler.

Vælg først de farvede celler og tryk på Ctrl + minus-symbolet (-) for at åbne "Slet" -indstillingen.

Genvejstast for at åbne "Slet" mulighed

I vinduet "Slet" har vi fire muligheder. Vi kan vælge handlingen i henhold til vores krav. Da vi er nødt til at flytte vores celler op for de slettede celler, skal du vælge "Skift celle op."

Vi har uændrede tabel 2-rækker.

Denne handling i VBA kræver brug af egenskaben “XLUP” til at udføre et lignende sæt handlinger i VBA. Kom nu til vinduet i VBA-editoren og start dit makronavn.

Kode:

Sub XLUP_Example () Afslut Sub

Først skal du angive cellen RANGE, der skal inkluderes i denne operation. I denne handling er de første celler, der skal slettes og bevæger sig op, “A5: B5” -celler.

Kode:

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

For denne række celler skal du vælge "Slet" -metoden.

Kode:

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

Som du kan se for "Slet" -metoden, har vi et valgfrit argument som (Skift). For dette argument skal vi indtaste argumentet som "XLUP."

Kode:

Sub XLUP_Example () Range ("A5: B5"). Slet shift: = xlUp End Sub

Nu kan du køre denne kode manuelt eller via genvejstasten F5 for at se resultatet.

Som du kan se i tabel 1 har vi rækken nummer 6 flyttes op til 5 ^th rækken, og på den anden side tabel, 2 række (farvet) er uændret, så ved at bruge muligheden ”VBA xlUp”, kan vi gøre denne operation .

Eksempel # 2 - Find sidst brugt række ved hjælp af XLUP

Forestil dig en situation, hvor du befinder dig i A20-cellen (se nedenstående billede), og din sidst anvendte celle er A14.

Nu, hvis du vil vælge den sidst brugte celle (A14), hvordan skal du gøre ved at bruge en genvejstast ???

Vi bruger Ctrl + pil op for at flytte til den sidst anvendte celle fra den aktuelle position.

Genvejstast til at flytte til sidst anvendte celle

Så fra den aktuelle celle valgte Ctrl + pil op den sidst anvendte celle. På samme måde i VBA-kodning bruger vi END (XLUP) til at udføre det samme.

Kom nu tilbage til VBA-kodningsvinduet.

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.

I stedet for et RANGE-objekt har jeg brugt CELLS-ejendom. Lad mig forklare dette detaljeret for dig.

ROW.COUNT dette tæller, hvor mange rækker der er i kolonne 1. Hvad dette vil gøre er, at det tager den sidste celle i regnearket i stedet for den tilfældige celleadresse. I ovenstående tilfælde har vi brugt A14 som den tilfældige celleadresse.

Ting at huske på VBA XLUP

• XLUP er det ord, der bruges i VBA-kode til at replikere handlingen af ​​"Pil op" -tasten i Excel.
• VBA XLUP bruges til at flytte fra aktive celler til ovenstående celle eller sidst anvendte celle.
• XLUP bruges generelt sammen med END-ejendom i VBA.