Inhoudsopgave
Tijdens het werken met Microsoft Excel is het vinden van de laatste rijen of kolommen een veel voorkomende taak. We gebruiken het toetsenbord om de laatst gebruikte rijen of kolommen te vinden. Maar misschien bevindt u zich in een situatie waarin u de laatst gebruikte rij moet vinden in een complexe dataset. In deze zelfstudie leert u de laatste rij te vinden met gegevens in een bereik met behulp van VBA in Excel met praktische voorbeelden en goede illustraties.
Download Praktijk Werkboek
Download dit oefenwerkboek.
Laatste gebruikte rij in een bereik vinden.xlsm7 methoden om de laatste rij met gegevens in een bereik te vinden met behulp van Excel VBA-macro's
In de komende paragrafen geven we u zeven methoden die u zullen helpen de laatste rij met gegevens in een bereik te vinden met behulp van VBA in Excel. We raden u aan al deze methoden te leren en toe te passen om uw Excel-kennis te verrijken.
📕 Meer lezen : Vind de laatste cel met waarde in een rij in Excel (6 methoden)
Om deze tutorial te demonstreren gaan we deze dataset gebruiken:
Hier hebben we een dataset met informatie over een aantal spelers, die we zullen gebruiken om u alle methoden te leren.
VBA-editor openen
Voordat we beginnen, geven we u een eenvoudige herinnering om de VBA-editor in Excel te openen.
Druk eerst op Alt+F11 op uw toetsenbord. Selecteer vervolgens Invoegen> Module. Daarna wordt de VBA-editor van Excel geopend.
1. Gebruik van de eigenschap Range.End om de laatste rij met gegevens in een bereik te vinden met behulp van VBA
Nu, deze methode vindt in principe het einde van een bereik, voornamelijk het laatst gebruikte celbereik. We kunnen deze methode gebruiken om de laatste rij met gegevens in een bepaald bereik te vinden. Het gebruik van de VBA geeft u de gewenste resultaten.
📌 Stappen
① Open eerst de VBA Redacteur.
② Typ dan de volgende code:
Sub range_end_method() Dim sht As Worksheet Dim LastRow As Long Set sht = ActiveSheet LastRow = Range("B4").End(xlDown).Row MsgBox "Last used row: " & LastRow End Sub ③ Sla nu het bestand op. Druk vervolgens op Alt+F8 om het dialoogvenster Macro te openen. Selecteer range_end_method
④ Klik daarna op Uitvoeren.
Zoals u ziet, hebben we met succes de laatste rij met gegevens in een bereik gevonden met behulp van VBA in Excel.
2. Range.Find eigenschap van VBA in Excel
Nu gebruiken we in VBA de methode Range.Find om te zoeken naar een bepaalde waarde in een dataset. Maar deze methode is handig om de laatste rij met gegevens in een bereik te vinden. Het werkt zoals het dialoogvenster Find & Replace van Excel. De methode Range.Find heeft veel argumenten, maar we zullen ze niet allemaal gebruiken.
Voordat we de methode Range.Find gebruiken, geven we een stukje snelle informatie:
Cells.Find("*", searchorder:=xlByRows, searchdirection:=xlPrevious)
Wat := "*" - Het sterretje is een jokerteken dat elke tekst of elk getal in de cel ontdekt. Het is voornamelijk hetzelfde als zoeken naar een niet lege cel.
SearchOrder:=xlByRows - Dit betekent dat elke hele rij moet worden doorgespit alvorens naar de volgende te gaan. De richting wordt van links naar rechts of van rechts naar links gezocht, afhankelijk van het argument SearchDirection. De extra optie hier is xlByColumns, die wordt gebruikt om de laatste kolom te vinden.
Zoekrichting:=xlVorige - Dit bepaalt welke richting wordt verkend. xlPrevious betekent dat wordt gezocht van rechts naar links of van onder naar boven. Het andere alternatief is xlNext dat in de tegenovergestelde richting zoekt.
📌 Stappen
① Open eerst de VBA-editor.
② Typ dan de volgende code:
Sub range_find_method() Dim sht As Worksheet Dim LastRow As Long Set sht = ActiveSheet LastRow = sht.Cells.Find("*", searchorder:=xlByRows, searchdirection:=xlPrevious).Row MsgBox "Last used row: " & LastRow End Sub ③ Sla nu het bestand op. Druk vervolgens op Alt+F8 om het dialoogvenster Macro te openen. Selecteer range_find_method.
④ Klik daarna op Ren .
Uiteindelijk vindt het de laatste rij met gegevens in ons Excel-werkblad.
3. De functie SpecialCells gebruiken om de laatste rij te vinden met VBA
Deze methode werkt als het indrukken van Ctrl+End Wanneer u op Ctrl+End op uw toetsenbord drukt, brengt dit u altijd naar de laatste rij, ongeacht waar u zich bevindt. Maar als u de laatst gebruikte rij met gegevens wilt vinden met behulp van VBA-codes in Excel, is deze code een must voor u.
📌 Stappen
① Open eerst de VBA-editor.
② Typ dan de volgende code:
Sub specialcells_method() Dim sht As Worksheet Dim LastRow As Long Set sht = ActiveSheet LastRow = sht.Cells.SpecialCells(xlCellTypeLastCell).Row MsgBox "Last used row: " & LastRow End Sub ③ Sla nu het bestand op. Druk vervolgens op Alt+F8 om het dialoogvenster Macro te openen. Selecteer specialcells_method .
④ Klik daarna op Ren .
Zoals u ziet zijn we erin geslaagd de laatste rij met gegevens te vinden met behulp van VBA in Excel.
4. De functie UsedRange gebruiken om de laatste rij met gegevens in een bereik te vinden
De UsedRange in VBA is een bezit van het werkblad dat een bereikobject teruggeeft dat het gebruikte bereik vertegenwoordigt (alle Excel-cellen die in een werkblad worden gebruikt of geladen) op een bepaald werkblad. Het is een eigenschap die het gebied betekent dat wordt bestreken of gespecificeerd door linksboven gebruikte cellen en de laatste rechts gebruikte cellen in een werkblad.
📌 Stappen
① Open eerst de VBA-editor.
② Typ dan de volgende code:
Sub usedRange_method() Dim sht As Worksheet Dim LastRow As Long Set sht = ActiveSheet LastRow = sht.UsedRange.Rows(sht.UsedRange.Rows.Count).Row MsgBox "Last used row: " & LastRow End Sub ③ Sla nu het bestand op. Druk vervolgens op Alt+F8 om het dialoogvenster Macro te openen. Selecteer usedRange_method.
④ Klik daarna op Ren .
Tenslotte ziet u de laatst gebruikte rij op een werkblad in Excel met succes.
5. Tabelbereik gebruiken met VBA in Excel
Als u een tabel in uw werkblad hebt, kunt u met deze methode de laatste rij met gegevens vinden.
📌 Stappen
① Open eerst de VBA-editor.
② Typ dan de volgende code:
Sub TableRange_method() Dim sht As Worksheet Dim LastRow As Long Set sht = ActiveSheet LastRow = sht.ListObjects("Table1").Range.Rows.Count + 3 MsgBox "Last used row: " & LastRow End Sub Opmerking : Hier voegen we 3 toe met de laatste rij, aangezien onze dataset begon na rij 3.
③ Sla nu het bestand op. Druk vervolgens op Alt+F8 om het dialoogvenster Macro te openen. Selecteer TableRange_method.
④ Klik daarna op Ren .
Zoals u ziet, hebben we met succes de tabelbereikmethode in VBA-codes gebruikt om de laatste rij met gegevens in Excel te vinden.
6. Gebruik van het Naambereik om de laatste rij met gegevens in een bereik te vinden
Deze methode wordt niet vaak gebruikt in Excel, maar wij vinden dat u dit moet leren om uw kennis te verrijken.
Als uw dataset een genoemd bereik heeft, kunt u deze code gebruiken. Kijk maar eens naar het volgende screenshot. Er staat een genoemd bereik in.
📌 Stappen
① Open eerst de VBA-editor.
② Typ dan de volgende code:
Sub nameRange_method() Dim sht As Worksheet Dim LastRow As Long Set sht = ActiveSheet LastRow = sht.Range("Named_Range").Rows.Count + 1 MsgBox "last used row: " & LastRow End Sub Opmerking : We voegen 1 toe aan de LastRow omdat ons bereik begon na rij 1.
③ Sla nu het bestand op. Druk vervolgens op Alt+F8 om het dialoogvenster Macro te openen. Selecteer nameRange_method.
④ Klik daarna op Uitvoeren.
Zoals u ziet, lukt het ons om met VBA de laatste rij met gegevens te vinden.
7. CurrentRegion-functie van VBA in Excel
U kunt ook de methode CurrentRegion van VBA gebruiken om de laatst gebruikte rij in Excel te vinden. Hoewel het lastig is, kunt u dit desgewenst in uw voordeel gebruiken.
📌 Stappen
① Open eerst de VBA-editor.
② Typ dan de volgende code:
Sub CurrentRegion_method() Dim sht As Worksheet Dim LastRow As Long Set sht = ActiveSheet LastRow = sht.Range("B4").CurrentRegion.Rows.Count + 3 'voeg getallen toe naar keuze' MsgBox "Last used row: " & LastRow End Sub Opmerking : Range moet de eerste cel van uw dataset zijn. En voeg uw rijnummer toe volgens uw keuze. Hier hebben we 3 toegevoegd omdat onze dataset begon na rij 3.
③ Sla nu het bestand op. Druk vervolgens op Alt+F8 om het dialoogvenster Macro te openen. Selecteer HuidigeRegio_methode
④ Klik daarna op Uitvoeren.
Zoals u ziet, hebben we met de VBA-code met succes de laatste rij met gegevens gevonden.
Dingen om te onthouden
✎ Range.End werkt alleen op een enkele rij of kolom. Als uw dataset veel lege cellen bevat, zal het moeilijk zijn de laatste rij met gegevens te vinden.
✎ Soms moet je enkele waarden toevoegen aan je methodes om de code soepel te laten verlopen. We hebben rijnummers toegevoegd om de laatste cel te vinden. Je moet dus onthouden waar je dataset begon.
Conclusie
Tot slot hoop ik dat deze handleiding u een stukje nuttige kennis heeft bijgebracht om de laatste rij met gegevens in een bereik te vinden met behulp van VBA in Excel. We raden u aan om al deze instructies te leren en toe te passen op uw dataset. Download de oefenwerkmap en probeer deze zelf uit. Voel u ook vrij om feedback te geven in het commentaargedeelte. Uw waardevolle feedback houdt ons gemotiveerd om tutorials als deze te maken.
Vergeet niet onze website te bekijken Exceldemy.com voor verschillende Excel-gerelateerde problemen en oplossingen.
Blijf nieuwe methoden leren en blijf groeien!
