VBA下COUNTA函数计算区域中不为空的单元格的个数。即返回参数列表中非空值的单元格个数。利用函数COUNTA可以计算单元格区域或数组中包含数据的单元格个数。语法为COUNTA(value1,[value2],...)。COUNTA函数语法具有...

然后再……x=application.counta(range("e:e"))

application.counta(rows(i))或者worksheetfunction.counta(rows(i))

COUNTIF(参数一，参数二)，其中参数一为需要计算其中满足条件的单元格数目的单元格区域，参数二是用于定义将对哪些单元格进行计数的数字、表达式、单元格引用或文本字符串。COUNTIF函数的常见用法如下：（假如数据所在单元格区域...

n=Application.WorksheetFunction.CountA("b3:b1000")

1利用Range对象的Delete方法删除空白行的代码下面我们将就实际的应用来讲解如何应用DELETE方法，这个方法也是VBA中应用中的非常广泛的。可以用于VALUE的删除，也可以用于格式的删除，还可以用于行的删除等等，今日讲解的就是行...

A列最底端有数据的单元格[a65536].end(xlup).row如果是统计每列有多少非空单元格就要调用COUNTA函数方便些WorksheetFunction.CountA(Range("A:A"))

n=Worksheetfunction.CountA(某工作表.range("A:A"))Setrng=Union(rng,某工作表.Rows(p)改这2句试试。

判断区域有无数据可以使用工作表函数counta，例如判断F5:F50中非空单元格格式的语句为：IFWORKSHEETFUNCTION.COUNTA(RANGE("F5:F20"))>1THEN

Sum函数可以在工作表中求，同样也可以对VBA数组求和，如：Subt2()arr=Array(1,35,4,13)MsgBoxApplication.Sum(arr)'对数组进行求和EndSub2、Count和CountaCount和Counta可以统计数组中数字的个数和数字+...