Excel 2010 VBA 给定列索引的列长度

Question

鉴于其简单的描述，我发现很难找到答案。我希望这不是重复的，尽管可能是因为它很简单，而且我根本找不到答案。

在 VBA 中，我有数百列，我想知道它们的所有长度。我知道确实有“COLS”列。我想要这样的东西：

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

长度是指非空单元格的数量...出于我的特定目的，列中不会有空白单元格，并且我希望计数的列中的所有单元格都将包含文本（所有其余的将是空的）。

对于这个看似简单的问题，我们将不胜感激！

编辑：我还想让它依赖于列索引（在上面的循环中将是“i”）。我并不总是知道专栏字母......

Answer 1

这将计算 VBA 中的 text 个非空单元格：

For i = 1 To Columns.Count
    n = WorksheetFunction.CountA(Columns(i))
Next

Answer 2

最好使用在所有 Excel 版本中从最后一行自动运行的例程。

Dim lngRow As Long
lngRow = Cells(Rows.Count, "A").End(xlUp).Row

Answer 3

我认为您可以用来

LastRowColA = Range("A" & Rows.Count).End(xlUp).Row

查找 A 列中最后使用的行。
浏览每一列，您可以获得您想要的内容......

Answer 4

您可以使用 Range(large row number, column).End(xlUP).row 找到最后一个非空行，其中 Large 行号应该足够大，以始终超出您上次使用的单元格。

Answer 5

您可以使用工作表函数 CountA 使用替代方法，如下所示

测试数据：

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

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

Answer 6

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

Answer 7

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