EXCEL VBA 查找变动范围内的非空单元格

Question

若 XX,YY为变动值
WorkSheetFunction.CountA(Range("1:1"))
WorkSheetFunction.CountA(Range("B:B"))
WorkSheetFunction.CountA(Range("B1:F"&XX))都可行
请大神帮忙，如何查找XX行B至YY列的非空单元格数量呢？

Answer 1

Application.CountA(Range(Cells(1,2),Cells(XX,YY)))
计算B1到第YY列第XX行区域中非空单元格的个数.