excel vba统计选定区域的非空单元格数

有网友问到如何用VBA统计一行有多少非空的单元格。
在Excel中，用COUNTA函数就可以获取非空单元格。那么怎么在VBA中去统计非空的单元格呢？
这里分享自定义的函数，遍历选定的单元格，筛选空的单元格，再统计个数
SubCount_Selection()
DimcellAsObject
DimcountAsLong
count=0
ForEachcellInSelection
IfIsEmpty(cell)=TrueThen
count=count+1
EndIf
Nextcell
MsgBox"非空的单元格个数为："&count
'MsgBoxApplication.CountA(Rows("1:2"))
EndSub
效果图：

1510042803539274.jpg