VBA统计同时空行的次数

yjwdjfqb

VBA统计同时空行的次数各位老师好
这个附件中统计，同时为空的次数
只有一个人员，王莹，这个人员手工统计是2次，代码执行是3次
正确应该是：2次
请老师们帮帮忙，谢谢老师们了！！！
VBA统计同时空行的次数.rar (16.29 KB, 下载次数: 9)

2024-3-19 17:56 上传

点击文件名下载附件

chxw68

参与一下。

kittli

练习!!!!!!!!!

gwjkkkkk

代码的确有一些问题，我已备注，请参考。。。

fzxba

参与一下.zip (21.83 KB, 下载次数: 4)

2024-3-19 18:29 上传

点击文件名下载附件

swl4561255

1. Sub TEST5()
   
2. ar = Sheets("表一").Range("F8").End(4).Row
   
3. arr = Sheets("表一").Range("F9:N" & ar)
   
4. Set d = CreateObject("Scripting.Dictionary")
   
5. For i = 1 To ar - 8
   
6.   s = Val(arr(i, 3)) + Val(arr(i, 6)) + Val(arr(i, 8)) + Val(arr(i, 9))
   
7.   If s = 0 Then
   
8.     d(arr(i, 2)) = d(arr(i, 2)) + 1
   
9.   End If
   
10. Next
    
11. For j = 5 To 20
    
12.   Range("I" & j) = d(Range("F" & j).Value)
    
13. Next
    
14. End Sub

复制代码

yjwdjfqb

谢谢各位老师的帮助，现在统计完全对了，非常感谢老师们！！！