EXCEL vba 统计非空单元格数量

1。统计("B5:M14")非空单元格数量
2。下面代码为什么统计出结果不对
Sub counth()
H = Application.WorksheetFunction.CountA(Sheet1.Range("B5:M14"))
MsgBox "非空单元格数" & H & "个."
End Sub
单元格为文本格式
内容在区域中不连续
MsgBox "非空单元格数" & H & "个."这里的H是不是不对,能换成B5:M14

举报该文章

相关建议 2015-04-15

这个貌似不需要VBA
没有用VBA，用的宏表函数
由于不知道你会用哪个【绿色】，所以判断有颜色就统计进去，而不管是什么颜色
注意：
这里的颜色是指你在格式化单元格（等同于直接点颜色按钮）形成的，【而不是】【条件格式】形成的颜色
请下载附件参考，提问者下载不需要财富值

另外，统计的是C5到AT的值，因为你图中的日期段10月份有点问题，请自行调整公式中的数据范围

希望对你有所帮助！

温馨提示：内容为网友见解，仅供参考

当前网址：https://11.t2y.org/zz/f78fvs2vq87vp287f7q.html

其他看法

第1个回答 2015-04-15

代码无误。检查一下B5:M14区域的某些看似空白的单元格中是否有不可见字符。追问

请问怎么检查一下B5:M14区域的某些看似空白的单元格中是否有不可见字符。

追答

比如，检查A1中字符数
=LEN(A1)

追问

检查了，一个错。但结果还是不对。可否重给个代码，求显示的个数

可否重给个代码。0版

第2个回答推荐于2017-12-15

代码没有问题啊。怎么结果不对了？
是区域B5:M14的问题，还是哪个单元格没统计到吗？追问

是全部计算了，结果为110。
也检查不出来。
如果新建一个表格代码好像就对。
单元格为文本格式

追答

那是不是里面包含不可见文本？

追问

内容在区域中不连续
MsgBox "非空单元格数" & H & "个."这里的H是不是不对,能换成B5:M14
不可见文本？怎么找不可见文本

追答

选中B5:M14--条件格式--公式：=counta(b5)=1--格式--填充--红色
然后看红色单元格-哪个是看不见文本的，那里就有不可见字符或空格

追问

查了，其中一个是白色，其它的都是红色（但这红色里面有内容的单元也有空白单元）。

追答

那些空白单元格内是不是有空格或隐藏字符？

本回答被提问者和网友采纳

相似回答

大家正在搜