[已解决]按条件条件

wxfwxj

Book1.zip (26.76 KB, 下载次数: 4)

2015-5-21 15:04 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

dsmch

2015-5-21 16:22

1. Sub Macro1()
   
2. Sheets("首页").Activate
   
3. m = [l9]
   
4. For Each sh In Sheets
   
5.     If sh.Name <> "首页" Then
   
6.         If Application.CountA(sh.UsedRange) > 0 Then
   
7.             With sh
   
8.                 For i = 6 To .Range("b65536").End(xlUp).Row
   
9.                     If Month(.Cells(i, 2)) = m Then
   
10.                         s = s + Application.CountA(.Cells(i, "h").Resize(1, 12))
    
11.                     End If
    
12.                 Next
    
13.             End With
    
14.         End If
    
15.     End If
    
16. Next
    
17. [k9] = s
    
18. End Sub

复制代码

跳转到最佳答案楼层

dsmch

建议重新模拟附件，第一个红色数字50是驴年马月？

wxfwxj

dsmch 发表于 2015-5-21 15:40
建议重新模拟附件，第一个红色数字50是驴年马月？

Book1.zip (22.92 KB, 下载次数: 3)

2015-5-21 15:48 上传

点击文件名下载附件

wxfwxj

dsmch 发表于 2015-5-21 15:40
建议重新模拟附件，第一个红色数字50是驴年马月？

附件以重新上传

wxfwxj

wxfwxj 发表于 2015-5-21 15:51
附件以重新上传

我这个附件是提取了工作表里的一小部分不是完整的表格

dsmch

1. Sub Macro1()
   
2. Sheets("首页").Activate
   
3. m = [l9]
   
4. For Each sh In Sheets
   
5.     If sh.Name <> "首页" Then
   
6.         If Application.CountA(sh.UsedRange) > 0 Then
   
7.             With sh
   
8.                 For i = 6 To .Range("b65536").End(xlUp).Row
   
9.                     If Month(.Cells(i, 2)) = m Then
   
10.                         s = s + Application.CountA(.Cells(i, "h").Resize(1, 12))
    
11.                     End If
    
12.                 Next
    
13.             End With
    
14.         End If
    
15.     End If
    
16. Next
    
17. [k9] = s
    
18. End Sub

复制代码

wxfwxj

dsmch 发表于 2015-5-21 16:22

您好老师！发现一个问题就是没有按红色字体统计而是统计了所有H列到s列的数值个数，在H列到S列有其他不是红色字体的数值不要统计