Question

excel VBA在A表中使用counta求B表中某一列的非空单元格个数

excel VBA在A表中使用counta求B表中某一列的非空单元格个数，要获得这个个数值，求懂点的大神支招

Answer 1

比如查 Sheet2 中 A 列的非空单元格数：
Sub test()
Dim i As Long
i = Application.WorksheetFunction.CountA(Sheets("sheet2").Columns(1))
End Sub

追问

感谢，如果采用CountA(B:B)这种形式的呢

追答

i = Application.WorksheetFunction.CountA(Sheets("sheet2").Columns(2))

Columns(2) 就表示 B列，1表示 A列。同理，3表示 C列，4表示 D列……

追问

嗯，谢谢，columns（2）表示B列这个我知道。还是谢谢了，分给你

追答

明白了，你想要下面的格式：
i = Application.WorksheetFunction.CountA(Sheets("sheet2").Range("B:B"))

Answer 2

直接=counta(sheet2!a:a),这样子