Fichier Excel pour compter le nombre total des lignes en VBA

Je suis en train d'écrire une macro VBA pour compter le nombre de lignes dans sheet2 de fichier Excel

Dim cnt As Integer 
Dim i As Integer

cnt = Range("Sheet2").Rows.Count ' giving error at this row
For i = 2 To cnt
    t1 = "A" + CStr(i)
    t2 = "B" + CStr(i)
Next i

Mais donner le message d'erreur:

Méthode 'Range' de l'objet '_global" a échoué

  • Quelle est l'erreur que vous obtenez?
  • j'ai cette erreur ( Méthode 'Range' de l'objet '_global" a échoué
InformationsquelleAutor kumar chaudhari | 2012-05-09
  1. 6

    Range est utilisé pour Plage de Cellules pas pour Feuilles Excel.

    Essayez les choses suivantes:

    1. Pour obtenir le comte de utilisé des lignes:

      cnt = Worksheets("Sheet2").Cells.SpecialCells(xlCellTypeLastCell).Row

    2. Pour obtenir le comte de toutes les lignes de la feuille de:

      cnt = Worksheets("Sheet2").Rows.Count

    3. Pour obtenir le nombre de lignes d'un spécifique Range:

      cnt = Worksheets("Sheet2").Range("A1:A6500").Rows.Count

    Je pense que vous êtes à la recherche pour une plage de cellules. Définir des variables, tant pour résoudre le problème de débordement de

    Dim cnt As Long 
Dim i As Long
    • Kumar, avez-vous essayé le code ci-dessus?
    • Juste une petite remarque, votre 3ème option n'est pas très utile, car si elles sont figées de la plage (1:6500) alors qu'ils avaient déjà sais qu'il y a 6500 lignes. Un autre moyen utile pour obtenir le nombre de lignes est cnt = Worksheets("Sheet2").Range("A1").CurrentRegion.Rows.Count. Cela permet d'obtenir la plage utilisée jusqu'à la première ligne vide.
    • Je viens de donner un exemple, s'il vous plaît ne collent pas avec les valeurs. vous pouvez utiliser une plage excel et d'obtenir le nombre de lignes.
    InformationsquelleAutor Arun Singh
  2. 1

    Feuil2 est une feuille, pas une gamme.

    Worksheets("Sheet2").Rows.Count
    • j'obtiens cette erreur(erreur d'exécution 6 : Dépassement de capacité)
    • J'ai ajouté la partie de mise à jour pour la résolution.
    InformationsquelleAutor GSerg
  3. -1

    Essayez d'utiliser le code suivant:

    Dim crb1 As Long


'Count Rows

    Range("B2").Select
    Selection.End(xlDown).Select
    crb1 = ActiveCell.Row

    MsgBox ("Number of rows are ") & Str(crb1)
    InformationsquelleAutor Colin Broadley