Question

EXCEL VBA的代码问题？

a = Cells(Rows.Count, 1).End(3).Row
我用这条代码获取第1列非空的行数,可是为何空的列数返回的也是1呢?应该是空值啊.是不是写错了呢?

Answer 1

End(XX).Row这个函数它主要是查找最后一个非空单元格。

End后面括号内XX有4种参数代表方向：xlup,xldown,xltoleft,xltoright

所以它不能用来实现非空行数。

End(xlDown).Row效果如下，你会看到它的结果是6,xlDown是从1往下找，遇到的第一个空单元格就返回。

xlDown效果如下，它是A列最后一行开始往上找，遇到第一个非空单元格返回，此刻即使A6单元格为空，照样返回11：

如果要实现统计非空个数，可以调用内置函数：

a=Application.WorksheetFunction.CountA (Sheet1.Range("A1:A5000"))

追问

就是说,在第1列单元格有数值的情况下,就返回最后一行非空的行数....
如果第1列全都是空的情况下,就返回0.这个代码怎么改一下?

追答

你可以改成这样试试：
a = Cells(Rows.Count, 1).End(3).Row
a = Application.WorksheetFunction.CountA(Sheet1.Range("A1:A" & a))

追问

老师,这样的话,不管A列有没有数据,都会变成空值了?不行啊

追答

a = Sheet1.Cells(Rows.Count, 1).End(xlDown).Row
a = Application.WorksheetFunction.CountA(Sheet1.Range("A1:A" & a))