VBA Last Row - Top 3 des méthodes pour trouver la dernière ligne utilisée?

Table des matières

Dans VBA, lorsque nous devons trouver la dernière ligne, il existe de nombreuses méthodes différentes et la méthode la plus couramment utilisée est la méthode End (XLDown) et il existe d'autres méthodes telles que trouver la dernière valeur en utilisant la fonction find dans VBA, End (XLDown ). La ligne est le moyen le plus simple d'accéder à la dernière ligne.

Excel VBA dernière ligne

Si l'écriture du code est la première étape que vous avez faite dans VBA, la prochaine étape pour vous est de rendre le code dynamique. Excel regorge de références de cellules. Au moment où nous nous référons à la cellule, elle devient fixe. Si nos données augmentent, nous devons revenir à la référence de cellule et modifier les références pour mettre le résultat à jour.

Pour un exemple, regardez le code ci-dessous.

Code:

Sub Last_Row_Example1 () Range ("D2"). Value = WorksheetFunction.Sum (Range ("B2: B7")) End Sub

Le code ci-dessus indique que dans D2, la valeur de la cellule doit être la somme de Range («B2: B7»).

Maintenant, je vais ajouter plus de valeurs à la liste.

Maintenant, si j'exécute le code, il ne me donnera pas plutôt le résultat des mises à jour, il reste fidèle à l'ancienne plage, c'est-à-dire Range («B2: B7»).

C'est là que le code dynamique est très important.

Dans le processus de dynamisation du code, il est très important de trouver la dernière ligne utilisée dans la colonne. Dans cet article, nous discuterons des moyens de trouver la dernière ligne dans Excel VBA.

Comment trouver la dernière ligne utilisée dans la colonne?

Voici les exemples pour trouver la dernière ligne utilisée dans Excel VBA.

Méthode n ° 1

Avant de vous expliquer le code, je veux que vous vous rappeliez comment vous allez à la dernière ligne de la feuille de calcul normale.

Nous utiliserons la touche de raccourci Ctrl + flèche vers le bas.

Cela nous mènera à la dernière ligne utilisée avant toute cellule vide. Nous utiliserons également la même méthode dans VBA pour trouver la dernière ligne.

Étape 1: définissez la variable comme LONG.

Code:

Sub Last_Row_Example2 () Dim LR As Long 'Pour comprendre LR = Last Row End Sub

Étape 2: Pour cette variable, nous attribuerons le dernier numéro de ligne utilisé.

Code:

Sub Last_Row_Example2 () Dim LR As Long 'Pour comprendre LR = Last Row LR = End Sub

Étape 3: Écrivez le code sous forme de CELLULES (Rows.Count,

Code:

Sub Last_Row_Example2 () Dim LR As Long 'Pour comprendre LR = Last Row LR = Cells (Rows.Count, End Sub

Étape 4: mentionnez maintenant le numéro de colonne comme 1.

Code:

Sub Last_Row_Example2 () Dim LR As Long 'Pour comprendre LR = Last Row LR = Cells (Rows.Count, 1) End Sub

CELLS (Rows.Count, 1) signifie compter le nombre de lignes présentes dans la première colonne.

Ainsi, le code VBA ci-dessus nous mènera à la dernière ligne de la feuille Excel.

Étape 5: Si nous sommes dans la dernière cellule de la feuille pour aller à la dernière ligne utilisée, nous appuierons sur la touche de raccourci Ctrl + Flèche vers le haut .

Dans VBA, nous devons utiliser la clé de fin et plus à savoir, End VBA xlUp

Code:

Sub Last_Row_Example2 () Dim LR As Long 'Pour comprendre LR = Last Row LR = Cells (Rows.Count, 1) .End (xlUp) End Sub

Étape 6: Maintenant, cela nous amènera à la dernière ligne utilisée à partir du bas. Nous avons maintenant besoin du numéro de ligne de ceci. Utilisez donc la propriété ROW pour obtenir le numéro de ligne.

Code:

Sub Last_Row_Example2 () Dim LR As Long 'Pour comprendre LR = Last Row LR = Cells (Rows.Count, 1) .End (xlUp) .Row End Sub

Étape 7: Maintenant, la variable contient le dernier numéro de ligne utilisé. Afficher la valeur de cette variable dans la boîte de message en code VBA.

Code:

Sub Last_Row_Example2 () Dim LR As Long 'Pour comprendre LR = Last Row LR = Cells (Rows.Count, 1) .End (xlUp) .Row MsgBox LR End Sub

Exécutez ce code à l'aide de la touche F5 ou manuellement. Il affichera la dernière ligne utilisée.

Production:

La dernière ligne utilisée dans cette feuille de calcul est 13.

Now I will delete one more line and run the code and see the dynamism of the code.

Ok, now the result automatically takes the last row.

This is what the dynamic VBA last row code is.

As I showed in the earlier example, change the row number from a numeric value to LR.

Code:

Sub Last_Row_Example2() Dim LR As Long 'For understanding LR = Last Row LR = Cells(Rows.Count, 1).End(xlUp).Row Range("D2").Value = WorksheetFunction.Sum(Range("B2:B" & LR)) End Sub

I have removed B13 and added the variable name LR.

Now it does not matter how many rows you add. It will automatically take the updated reference.

Method #2

We can also find the last row in VBA by using the Range object and special VBA cells property as well.

Code:

Sub Last_Row_Example3() Dim LR As Long LR = Range("A:A").SpecialCells(xlCellTypeLastCell).Row MsgBox LR End Sub

Le code vous donne également la dernière ligne utilisée. Par exemple, regardez l'image de feuille de calcul ci-dessous.

Si j'exécute le code manuellement ou en utilisant la touche F5, le résultat sera 12 car 12 est la dernière ligne utilisée.

Production:

Maintenant, je vais supprimer la 12ème ligne et voir le résultat.

Même si j'ai supprimé une ligne, le résultat est toujours 12.

Afin de faire fonctionner ce code, nous devons appuyer sur le bouton Enregistrer après chaque action. Ensuite, ce code renverra des résultats précis.

J'ai enregistré le classeur et je vois maintenant le résultat.

Méthode n ° 3

Nous pouvons trouver la dernière ligne VBA dans la plage utilisée. Le code ci-dessous renvoie également la dernière ligne utilisée.

Code:

Sub Last_Row_Example4 () Dim LR As Long LR = ActiveSheet.UsedRange.Rows (ActiveSheet.UsedRange.Rows.Count) .Row MsgBox LR End Sub

Cela renverra également la dernière ligne utilisée.

Production:

Articles intéressants...