VBA XLUP - Hoe VBA XLUP in Excel te gebruiken? (met voorbeelden)

Excel VBA XLUP

Een ding dat u in gedachten moet houden bij het schrijven van VBA-code, is wat u doet met het normale werkblad, en u kunt hetzelfde ook in VBA repliceren. Een voorbeeld van zo'n sleutelwoord in VBA-codering is "XLUP" in dit artikel. We laten u zien wat dit sleutelwoord is in VBA-codering en hoe u het bij codering kunt gebruiken.

Hoe VBA XLUP te gebruiken bij codering?

De volgende zijn de voorbeelden van Excel VBA XLUP.

Voorbeeld # 1 - Verplaats cellen naar verwijderde positie van cellen

Kijk bijvoorbeeld naar het scenario van de onderstaande gegevens, waar u de gegevens van die gekleurde cellen moet verwijderen en meer de gegevens van de onderstaande rijen naar de bovenstaande gegevens.

Een manier om dit in het werkblad te verwijderen, is door die cellen te selecteren waarin we eenvoudig de hele rij zelf kunnen verwijderen. Maar hier zijn situaties een beetje lastig omdat ik gekleurde cellen in tabel 1 heb als we de hele rij verwijderen, zelfs tabel 2 rijen worden ook verwijderd, maar we willen niet dat dit gebeurt; in plaats daarvan hoeven we alleen gekleurde rijen te verwijderen en moeten onderliggende cellen de positie van de verwijderde cellen naar boven verplaatsen.

Selecteer eerst de gekleurde cellen en druk op Ctrl + minteken (-) om de optie "Verwijderen" te openen.

Sneltoets om de optie "Verwijderen" te openen

In het “verwijderen” -optiesvenster hebben we vier opties. We kunnen de actie kiezen volgens onze vereiste. Omdat we onze cellen omhoog moeten verplaatsen voor die verwijderde celpositie, kiest u 'Cel verschuiven'.

We hebben de rijen van Tabel 2 ongewijzigd.

Deze actie in VBA vereist het gebruik van de eigenschap "XLUP" om een ​​vergelijkbare reeks acties in VBA uit te voeren. Kom nu naar het venster van de VBA-editor en start uw macronaam.

Code:

Sub XLUP_Example () Einde Sub

Geef eerst het celbereik op dat in deze bewerking moet worden opgenomen. Bij deze actie zijn de eerste cellen die worden verwijderd en omhoog gaan, "A5: B5" -cellen.

Code:

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

Selecteer voor dit celbereik de methode "Verwijderen".

Code:

Sub XLUP_Example () Bereik ("A5: B5"). Einde Sub verwijderen

Zoals je kunt zien voor de "Delete" -methode, hebben we een optioneel argument als (Shift). Voor dit argument moeten we het argument invoeren als 'XLUP'.

Code:

Sub XLUP_Example () Bereik ("A5: B5"). Shift verwijderen: = xlUp End Sub

Nu kunt u deze code handmatig uitvoeren of via de sneltoets Excel-toets F5 om het resultaat te zien.

Zoals je kunt zien in tabel 1, we hebben rijnummer 6 tot en met 5 verplaatst ^ste rij, en aan de andere kant Tafel, 2 rijen (gekleurd) is ongewijzigd, dus met behulp van de optie “VBA XLUP”, kunnen we deze operatie doen .

Voorbeeld # 2 - Zoek laatst gebruikte rij met XLUP

Stel je een situatie voor waarin je je in cel A20 bevindt (zie onderstaande afbeelding), en je laatst gebruikte cel is A14.

Als u nu de laatst gebruikte cel (A14) wilt kiezen, hoe gaat u dan doen met een sneltoets ???

We zouden Ctrl + Pijl-omhoog gebruiken om vanaf de huidige positie naar de laatst gebruikte cel te gaan.

Sneltoets om naar de laatst gebruikte cel te gaan

Dus vanuit de huidige cel selecteerde Ctrl + pijl-omhoog de laatst gebruikte cel. Evenzo gebruiken we bij VBA-codering END (XLUP) om hetzelfde uit te voeren.

Ga nu terug naar het VBA-coderingsvenster.

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.

In plaats van een RANGE-object heb ik de eigenschap CELLS gebruikt. Ik zal u dit in detail uitleggen.

ROW.COUNT dit zal tellen hoeveel rijen er zijn in kolom 1. Wat dit zal doen, is dat er rekening wordt gehouden met de laatste cel in het werkblad in plaats van het willekeurige celadres. In het bovenstaande geval hebben we A14 als het willekeurige celadres gebruikt.

Dingen om te onthouden over VBA XLUP

• XLUP is het woord dat in VBA-code wordt gebruikt om de actie van de toets "Pijl omhoog" in Excel te repliceren.
• VBA XLUP wordt gebruikt om van actieve cellen naar de bovenstaande cel of de laatst gebruikte cel te gaan.
• XLUP wordt over het algemeen samen met de eigenschap END in VBA gebruikt.