Question

VBA 高手帮忙 SHEET1 统计sheet3 非空单元格

在 sheet1中 的B2 单元格中统计出 sheet3 中 B列 非空单元格的个数
要用VBA实现 谢谢帮忙有分拿

Answer 1

奇怪干吗要用VBA实现，用公式 "=COUNTA(Sheet3!B:B)" 不是更方便吗？
非要VBA的话也可以调用CountA工作表函数：
Worksheets("Sheet1").Cells(2, 2) = Application.WorksheetFunction.CountA(Worksheets("Sheet3").Range("B:B"))

Answer 2

两种办法，一是用循环方式，如果指定区域内某个单元格为非空，则计数器加1，二是用工作表函数，如下：
answer = Application.WorksheetFunction.counta(myRange)，其中myrange为指定区域。

Answer 3

用VBA有VBA的理由，可能不是只是统计个B列，他问的可能只是大段需求中未实现的一点；
可以调用worksheetfunction.counta,也可一个个判断单元格，再设置一个变量+1；