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

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

比如查Sheet2中A列的非空单元格数：Subtest()DimiAsLongi=Application.WorksheetFunction.CountA(Sheets("sheet2").Columns(1))EndSub

countA公式计算数量，怎么能选？Range("1:1").SpecialCells(xlCellTypeConstants).Select

Sheets(1).Cells(j,29)=Application.WorksheetFunction.CountA(Sheets(1).range("D"&j&":AA"&j))

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

公式：=counta(选择区域)+countblank(选择区域)注意：如果某个单元格中是空格，那么counta会统计出来，而countblank不会统计。

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

是单元格表达方式的一种。你也可以用CountA(range("A:A"))

出现这种情况，一般有两种可能。1、从网上找的程序，没有把相应的过程或函数一起找来。2、对子过程（或函数）的定义不一致。例如：子过程test1做在某个工作表中，设定的是private属性。然后在模块中有一个全局程序test要...