Tapez le code suivant:
Count = 0
Faire
Count = count + 1
ActiveCell.Offset (1, 0) .Select
Loop Until IsEmpty (ActiveCell.Offset (0, 1))
Cela signifie que le programme de compilateur d'abord effacer la variable de comptage, puis commencer à se déplacer à travers la feuille de calcul. Il ajoute un au comte totale, puis se déplace vers le bas à la cellule suivante, aussi longtemps que la cellule suivante est vide. Quand il atteint une cellule vide, il cessera de fonctionner.