excel vba 统计(B5:k14)显示看到内容的单元格的个数（求高手）

Question

1。用VBA（计算看到内容的单元格有多少个）
2。只提示（如下图一样）

3。统计(B5:k14)范围
4。只求显示内容单元格个数，其它的不作计算（也不知什么原因总是提示100）
5。千万不要检查什么（因为小白不懂）最好代码通过

Answer 1

Sub CountVisible()
Dim i%, S%, N%
N = 0
With ActiveSheet
For i = 5 To 14
If .Rows(i).Hidden = True Then
Else
S = Application.CountA(.Range(.Cells(i, 2), .Cells(i, 11)))
N = N + S
End If
Next
End With
MsgBox "非空值单元格" & N & "个"
End Sub追问

不对，算到了非空的100个单元，全部算了

Answer 2

sub test()
msgbox "非空个数:" & application.counta(range("B5:K15"))
end sub追问

不对，算到了非空的100个单元，全部算了

追答

那么，你的B5：K15中，肯定有公式形成了假空。。。
代码如下：
sub test()
dim rg as range,k as long
k=0
for each rg in range("B5:K15")
if len(rg)>0 then k=k+1
next
msgbox "非空个数" & k
end sub

本回答被提问者采纳