[已解决]VBA求M列的结果

米特峰

VBA求M列的结果.zip (139.17 KB, 下载次数: 21)

2014-6-22 18:09 上传

点击文件名下载附件
拜托老师们了！

最佳答案

月排行榜 / 总排行榜

qh8600

2014-6-22 21:38

1. Sub demo()
   
2.     Dim i As Long, j As Long
   
3.     For i = 1 To Range("c1048576").End(3).Row - 1
   
4.         For j = 3 To 12
   
5.             If Cells(i, j) = 1 And Cells(i + 1, j) <= 5 And Cells(i + 1, j) >= 1 Then
   
6.                 Cells(i + 1, 13) = 1
   
7.                 Exit For
   
8.             Else
   
9.                 Cells(i + 1, 13) = 0
   
10.             End If
    
11.         Next
    
12.     Next
    
13. End Sub

复制代码

楼主试试

跳转到最佳答案楼层

baksy

M2公式、下拉。
=SUMPRODUCT((C1:L1=1)*(C2:L2<6)*(C2:L2>0))

云影

没有怎么显示

qh8600

1. Sub demo()
   
2.     Dim i As Long, j As Long
   
3.     For i = 1 To Range("c1048576").End(3).Row - 1
   
4.         For j = 3 To 12
   
5.             If Cells(i, j) = 1 And Cells(i + 1, j) <= 5 And Cells(i + 1, j) >= 1 Then
   
6.                 Cells(i + 1, 13) = 1
   
7.                 Exit For
   
8.             Else
   
9.                 Cells(i + 1, 13) = 0
   
10.             End If
    
11.         Next
    
12.     Next
    
13. End Sub

复制代码

楼主试试