Comment compter le nombre total de lignes dans un tableau dans Excel?
Cet article parle de compter le nombre total de lignes dans un tableau spécifié dans Excel. Veuillez faire comme suit.
Compter le nombre total de lignes dans une table avec le code VBA
Compter le nombre total de lignes dans une table avec le code VBA
Le code VBA ci-dessous peut vous aider à compter le nombre de lignes dans un tableau spécifié dans Excel.
1. appuie sur le autre + F11 clés ensemble pour ouvrir le Microsoft Visual Basic pour applications fenêtre.
2. dans le Microsoft Visual Basic pour applications fenêtre, veuillez cliquer insérer > Module. Ensuite, copiez et collez le code VBA ci-dessous dans la fenêtre Module.
Code VBA: comptez le nombre total de lignes dans un tableau dans Excel
Sub CountTableRows()
'Updated by Extendoffice 2017/9/12
Dim xTable As ListObject
Dim xTName As String
On Error Resume Next
xTName = Application.InputBox("Please input the table name：", "KuTools For Excel", , , , , , 2)
Set xTable = ActiveSheet.ListObjects(xTName)
MsgBox "The table has total number of " & xTable.Range.Rows.Count & " rows.", vbInformation, "KuTools For Excel"
Set xTable = Nothing
End Sub3. appuie sur le F5 clé pour exécuter le code.
4. Dans l'ouverture Kutools for Excel boîte de dialogue, entrez le nom de la table dont vous avez besoin pour compter le total de ses lignes, puis cliquez sur le OK bouton. Voir la capture d'écran:
5. Maintenant, un autre Kutools for Excel La boîte de dialogue apparaît pour vous montrer le nombre de lignes existant dans ce tableau spécifié, veuillez cliquer sur le OK bouton pour terminer.
Articles Liés:
- Comment compter le nombre de cellules entre deux valeurs ou dates dans Excel?
- Comment compter les cellules avec un texte spécifique dans la sélection dans Excel?
- Comment compter le nombre de réponses «Oui» ou «Non» dans Excel?
- Comment compter si la cellule contient du texte ou une partie de texte dans 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!
