Excel 2010 VBA Longueur de la Colonne donnée index de colonne

Je viens de trouver ce étonnamment difficile de trouver une réponse, compte tenu de sa simple description. J'espère que ce n'est pas un doublon, mais c'est probablement en raison de sa simplicité, et j'ai simplement ne peut pas trouver la réponse.

En VBA, j'ai des centaines de colonnes, et j'aimerais savoir toutes leurs longueurs. Je sais qu'il y a exactement les "COLS" de colonnes. Je veux quelque chose comme ceci:

For i in COLS
   length = 'Some one line formula to find the length of column i
   'Some code that works with the value of length
Next i

Par la longueur que je veux dire le nombre de cellules vides... Pour mes fins spécifiques il n'y aura pas de cellules vides dans les colonnes, et toutes les cellules de la colonne, je souhaite à compter contient le texte (tout le reste est vide).

Aide serait grandement appréciée sur cette apparemment simple question!

Edit: je tiens également à rendre cela dépend de l'index de colonne (qui sera " i " dans la boucle ci-dessus). Je ne saurez pas toujours la lettre de colonne...

OriginalL'auteur Derek | 2011-10-25

excel vba

9

Cela comptera ~~texte~~ non vide cellules en VBA:
```
For i = 1 To Columns.Count
    n = WorksheetFunction.CountA(Columns(i))
Next
```
Être un peu pédant dans le cas où d'autres lecteurs de mal interpréter ce - NBVAL compte de la non-cellules vides (c'est à dire à la fois les chaînes de texte et de chiffres). Dans ce cas particulier, il aura la même réponse que la xlup méthodes compte tenu de la disposition des données dans la question (c'est à dire pas d'espace à l'intérieur de la plage de cellules)
Mieux? 🙂
Aimer votre travail 🙂
C'est parfait, Merci beaucoup à tous ceux qui ont contribué. Je l'ai trouvé étonnamment difficile de trouver une réponse à cette question, étant donné qu'il ne semble pas comme un intuitivement concept difficile. Je sais comment faire pour la colonne "A" en particulier, mais n'était pas sûr de comment je pourrait l'étendre à un arbitraire de la colonne en fonction de son index. Cela a permis de préciser que jusqu', cheers!

OriginalL'auteur Fionnuala
4

Il est préférable d'utiliser une routine qui fonctionne automatiquement à partir de la dernière ligne dans toutes les versions d'Excel.
```
Dim lngRow As Long
lngRow = Cells(Rows.Count, "A").End(xlUp).Row
```
OriginalL'auteur brettdj
1

Je pense que vous pouvez utiliser
```
LastRowColA = Range("A" & Rows.Count).End(xlUp).Row
```
pour trouver la dernière utilisation de la ligne dans la colonne A.

Naviguer à travers chaque colonne, vous pouvez avoir ce que vous voulez...

65536 n'est plus la limite de ligne dans Excel: depuis 2007, nous avons eu de 1 000 000+ lignes possible.
oui, je sais. De toute façon le mien est juste un exemple de ce que l'OP pourrait le faire. Ensuite, il doit s'aider lui-même, vous ne pensez pas? De toute façon, merci pour votre suggestion!! 🙂

OriginalL'auteur Marco
0

Vous pouvez trouver le dernier non-vide de ligne à l'aide de Gamme(grand numéro de ligne, colonne).End(xlUP).ligne où un grand nombre de ligne doit être suffisamment grand pour être toujours au-delà de votre dernière utilisation de la cellule.

OriginalL'auteur Charles Williams

Vous pouvez utiliser une autre approche à l'aide de la feuille de calcul de la fonction Nbval comme suit

Données De Test:

Col1 Col2 Col3
A    A    A
     B    B
C    C    C
D    D    D
E         E

Fonction VBA:

Sub Test()

    Dim sht As Excel.Worksheet
    Set sht = Worksheets("Sheet1")

    Dim i As Integer
    Dim max As Integer
    Dim length As Integer
    max = 0
    For i = 1 To 3
        'CountA returns the number of non-blank cells in a range
        length = WorksheetFunction.CountA(sht.Columns(i))
        If length > max Then max = length
    Next i

MsgBox max - 1 ('remove 1 if you have column headers)

End Sub

OriginalL'auteur Jon Egerton

len = sheet1.Range("B" & Rows.Count).End(xlUp).Row ' gives the count of B column
len = sheet1.Range("A" & Rows.Count).End(xlUp).Row ' gives the count of A column

OriginalL'auteur niko

dim i as integer
For i = 1 To Columns.Count
    debug.print i, cells(i, rows.count).end(xlup).row
Next

OriginalL'auteur Patrick Honorez

Vous devez vous connecter pour publier un commentaire.