给定列索引的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中的文本非空单元格:

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