计算每列中特定行中的已填充单元格

Question

我想计算每列以及第14至45行的已填充单元格。 我正在使用下面的代码来查找固定范围内的已填充单元格计数，但是由于无法以范围类型cells(row,column)格式创建第一行，因此无法检查每一列。请帮忙。

Range("A14", Range("A14").End(xlDown)).Select
m = Selection.Rows.Count

Answer 1

不确定我是否理解，但这将查看A14和A中最后一个填充单元之间的所有内容：

msgbox worksheetfunction.counta(range("A14",range("A" & rows.count).end(xlup)))

如果是几列，也许是这样？

Sub x()

Dim c As Long

For c = 1 To 10 'A to J
    MsgBox WorksheetFunction.CountA(Range(Cells(14, c), Cells(45, c)))
Next c

End Sub