VBA XLUP - Hvordan bruker jeg VBA XLUP i Excel? (med eksempler)

Innholdsfortegnelse

Excel VBA XLUP

En ting du må huske på mens du skriver VBA-kode, er hva du gjør med det vanlige regnearket, og du kan også replikere det samme i VBA. Et slikt nøkkelord i VBA-koding er "XLUP" i denne artikkelen. Vi vil vise deg hva dette nøkkelordet er i VBA-koding og hvordan du bruker det i koding.

Hvordan bruke VBA XLUP i koding?

Følgende er eksemplene på excel VBA XLUP.

Eksempel 1 - Flytt celler til slettet posisjon av celler

Se for eksempel på scenariet for dataene nedenfor, der du må slette de fargede celledataene og mer opp dataene under radene til dataene ovenfor.

En måte å slette dette i regnearket er å velge cellene der vi bare kan slette hele raden selv. Men her er situasjoner litt vanskelige fordi jeg har fargede celler i tabell 1 når vi sletter hele raden, til og med tabell 2-rader blir også slettet, men vi vil ikke at dette skal skje; i stedet trenger vi bare å slette fargede rader, og nedenfor skal celler bevege seg oppover de slettede cellene.

Velg først de fargede cellene og trykk Ctrl + minus-symbolet (-) for å åpne alternativet "Slett".

Hurtigtast for å åpne alternativet "Slett"

I alternativvinduet "slett" har vi fire alternativer. Vi kan velge handlingen i henhold til vårt krav. Siden vi trenger å flytte cellene opp for de slettede cellene, velger du "Skift celle opp."

Vi har uendrede tabell 2-rader.

Denne handlingen i VBA krever bruk av "XLUP" -egenskapen for å utføre et lignende sett med handlinger i VBA. Nå kommer til vinduet til VBA editor og starter makronavnet ditt.

Kode:

Sub XLUP_Example () Slutt Sub

Først må du levere cellen RANGE som skal inkluderes i denne operasjonen. I denne handlingen er de første cellene som blir slettet og beveger seg opp “A5: B5” -celler.

Kode:

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

For dette området av celler, velg "Slett" -metoden.

Kode:

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

Som du kan se for "Slett" -metoden, har vi ett valgfritt argument som (Skift). For dette argumentet må vi legge inn argumentet som "XLUP."

Kode:

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


Nå kan du kjøre denne koden manuelt eller gjennom snarvei excel-tasten F5 for å se resultatet.

As you can see in Table 1, we have row number 6 moved up to 5th row, and on the other hand Table, 2 row (colored) is unaltered, so by using the “VBA XLUP” option, we can do this operation.

Example #2 - Find Last Used Row by using XLUP

Imagine a situation where you are in the A20th cell (look at below image), and your last-used cell is A14.

Now, if you want to choose the last used cell (A14), how will you do by using a shortcut key???

We would use Ctrl + Up Arrow key to move to the last used cell from the current position.

Shortcut Key to Move to Last used Cell

So, from the current cell, Ctrl + Up arrow selected the last used cell. Similarly, in VBA coding, we use END (XLUP) to perform the same.

Now come back to VBA coding window.

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 brukt CELLS-egenskap. La meg forklare dette i detalj for deg.

ROW.COUNT dette vil telle hvor mange rader det er i kolonne 1. Det dette vil gjøre er at det tar hensyn til den siste cellen i regnearket i stedet for den tilfeldige celleadressen. I tilfellet ovenfor har vi brukt A14 som den tilfeldige celleadressen.

Ting å huske på VBA XLUP

  • XLUP er ordet som brukes i VBA-kode for å replikere handlingen til "Pil opp" -tasten i excel.
  • VBA XLUP brukes til å flytte fra aktive celler til cellen ovenfor eller sist brukte celle.
  • XLUP brukes vanligvis sammen med END-eiendom i VBA.

Interessante artikler...