Comment trouver la dernière ligne ou colonne avec des données dans Excel?

Dans une grande feuille de calcul, si vous souhaitez déterminer la dernière ligne ou colonne contenant des valeurs rapidement et facilement, vous pouvez simplement faire glisser la barre de défilement pour la trouver. Mais ce sera douloureux s'il y a des milliers de lignes de données dans votre feuille de calcul. Dans cet article, je vais parler d'un code VBA utile pour vous permettre de résoudre cette tâche.

Trouvez la dernière ligne ou colonne avec des données à l'aide du code VBA
Recherchez et sélectionnez la dernière ligne ou colonne contenant des données avec Kutools for Excel

Trouvez la dernière ligne ou colonne avec des données à l'aide du code VBA

La plupart d'entre nous peuvent envisager de localiser la dernière cellule en appuyant sur Ctrl + Fin clés pour trouver la dernière ligne et colonne, mais la touche de raccourci ne localisera pas la cellule de valeur précise si certaines cellules ont une mise en forme sous la plage de données. Alors ici, veuillez utiliser le code VBA suivant:

1. Activez votre feuille de calcul dont vous souhaitez déterminer la dernière ligne ou colonne avec des données.

2. Maintenez le ALT + F11 clés pour ouvrir le Fenêtre Microsoft Visual Basic pour Applications.

3. Puis clique insérer > Moduleet collez le code suivant dans le Fenêtre du module.

Code VBA: trouver la dernière ligne avec des données

Sub sblastRowOfASheet()
'Update 20140603
Dim xLastRow As Long
xLastRow = Application.ActiveSheet.Cells.SpecialCells(xlLastCell).Row
MsgBox "Last Used Row: " & xLastRow
Do While Application.CountA(ActiveSheet.Rows(xLastRow)) = 0 And xLastRow <> 1
    xLastRow = xLastRow - 1
Loop
MsgBox "Last Row with Data: " & xLastRow
End Sub

4. Et puis appuyez sur F5 clé pour exécuter ce code, et une boîte de dialogue apparaîtra pour vous indiquer le numéro de ligne de la plage utilisée. Voir la capture d'écran:

5. Continuez à cliquer OK bouton, cette fois, le dernier numéro de ligne avec des valeurs a été affiché comme la capture d'écran suivante:

Remarque : Pour trouver la dernière colonne contenant des données, veuillez appliquer ce code:

Code VBA: trouver la dernière colonne avec des données

Sub sblastcolumnOfASheet()
'Update 20140603
Dim xLastcolumn As Long
xLastcolumn = Application.ActiveSheet.Cells.SpecialCells(xlLastCell).Column
MsgBox "Last Used column: " & xLastcolumn
Do While Application.CountA(ActiveSheet.Columns(xLastcolumn)) = 0 And xLastcolumn <> 1
    xLastcolumn = xLastcolumn - 1
Loop
MsgBox "Last column with Data: " & xLastcolumn
End Sub

Recherchez et sélectionnez la dernière ligne ou colonne contenant des données avec Kutools for Excel

Si vous souhaitez rechercher et sélectionner directement la dernière ligne ou colonne contenant des données dans Excel, le Sélectionnez la dernière ligne et les Sélectionnez la dernière colonne utilitaires de Kutools d'Excel peut vous aider. Veuillez faire comme suit.

1. Si vous souhaitez rechercher et sélectionner la dernière ligne contenant des données, cliquez sur Kutools > Sélectionnez > Sélectionnez la dernière cellule > Dernière rangée. Voir la capture d'écran:

Notes: Pour rechercher et sélectionner la dernière colonne contenant des données, cliquez sur Kutools > Sélectionnez > Sélectionnez la dernière cellule > Dernière colonne. 

Ensuite, la dernière ligne ou colonne contenant des données dans la feuille de calcul actuelle est trouvée et sélectionnée immédiatement.

Recherchez et sélectionnez la dernière ligne ou colonne contenant des données avec Kutools for Excel