展开全部
Sub s()
Dim c As Range
For Each c In [k5:mo14]
If c <> "" Then ct1 = ct1 + 1
If c.Interior.ColorIndex <> xlNone Then ct2 = ct2 + 1
Next
[g4] = ct1
[i4] = ct2
End Sub
追问
是每一行统计结果
例 如：[k5:mo5] 的结果在g5和i5
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
