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 par Sélectionnez la dernière colonne utilitaires de Kutools d'Excel peut vous aider. Veuillez faire comme suit.
Avant d'appliquer Kutools for Excel, S'il vous plaît téléchargez et installez-le d'abord.
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.
Si vous souhaitez bénéficier d'un essai gratuit (30 jours) de cet utilitaire, veuillez cliquer pour le télécharger, puis passez à appliquer l'opération selon les étapes ci-dessus.
Recherchez et sélectionnez la dernière ligne ou colonne contenant des données avec Kutools for Excel
Meilleurs outils de productivité bureautique
Améliorez vos compétences Excel avec Kutools for Excel et faites l'expérience d'une efficacité comme jamais auparavant. Kutools for Excel offre plus de 300 fonctionnalités avancées pour augmenter la productivité et gagner du temps. Cliquez ici pour obtenir la fonctionnalité dont vous avez le plus besoin...
Office Tab apporte une interface à onglets à Office et facilite grandement votre travail
- Activer l'édition et la lecture par onglets dans Word, Excel, PowerPoint, Publisher, Access, Visio et Project.
- Ouvrez et créez plusieurs documents dans de nouveaux onglets de la même fenêtre, plutôt que dans de nouvelles fenêtres.
- Augmente votre productivité de 50% et réduit des centaines de clics de souris chaque jour!
