Comment utiliser VBA pour aller à la dernière rangée dans une feuille Excel

Comment utiliser VBA pour aller à la dernière rangée dans une feuille Excel


Apprendre à utiliser Visual Basic pour Applications (VBA) dans Excel peut vous faire gagner du temps lors de la recherche des données dans une feuille de calcul. Microsoft Excel, une application de tableur inclus dans Microsoft Office, vous donne les outils pour analyser facilement les données en utilisant des formules pour les calculs complexes. Utilisez VBA pour automatiser les tâches de routine dans d'autres applications Microsoft Office Excel ou.

Instructions

1 Ouvrez Microsoft Excel 2007, cliquez sur l'onglet "Developer" et sélectionnez "Visual Basic."

Tapez "Sub goToLastRow ()" et appuyez sur "Entrée" pour créer un nouveau sous.

2 Tapez le texte suivant pour créer des variables:

"Dim LastRow As Integer

Dim X As Integer "

3 Tapez "Pour X = 1 To 25

Range("A" & X).Select

ActiveCell.Value = "Ajout de données à la ligne numéro:" & amp; X

Suivant X

Range ( "A26"). Sélectionnez

ActiveCell.Value = ""

Range ( "A27"). Sélectionnez

ActiveCell.Value = "" "pour créer une boucle qui va ajouter des données sur les 25 premières rangées. Ajouter un« espace »aux deux dernières lignes.

4 Tapez "LastRow = ActiveSheet.UsedRange.Rows.Count" pour obtenir la dernière rangée.

Tapez "MsgBox." La dernière ligne de cette feuille de calcul est: "& LastRow" pour afficher la dernière ligne à travers une boîte de message.

5 Tapez "End Sub" si nécessaire. Exécutez votre nouveau sous et vous verrez une boîte de message avec "La dernière ligne de cette feuille de calcul est la suivante: 27".

Conseils et avertissements

  • Votre nouveau sous devrait ressembler à ceci:
  • "Sous goToLastRow ()
  • Dim LastRow As Integer
  • Dim X As Integer
  • Pour X = 1 To 25
  • Range ( "A" & X) .Select
  • ActiveCell.Value = "Ajout de données à la ligne numéro:" & X
  • Suivant X
  • Range ( "A26"). Sélectionnez
  • ActiveCell.Value = ""
  • Range ( "A27"). Sélectionnez
  • ActiveCell.Value = ""
  • LastRow = ActiveSheet.UsedRange.Rows.Count
  • MsgBox "La dernière ligne de cette feuille de calcul est:" & LastRow
  • End Sub "