[已解决]请教如何统计数据

songdg

统计符合条件的数据的个数，而且数据是不断增加的。

最佳答案

月排行榜 / 总排行榜

dsmch

2016-7-12 10:12

1. Sub Macro1()
   
2. Dim arr, brr, w,i&,j%
   
3. arr = [c2:o17]
   
4. ReDim brr(1 To UBound(arr), 1 To 2)
   
5. For i = 1 To UBound(arr)
   
6.     s = 0
   
7.     For j = UBound(arr, 2) To 1 Step -1
   
8.         If arr(i, j) > 0 Then s = s + 1
   
9.         If arr(i, j) < 0 Then Exit For
   
10.     Next
    
11.     brr(i, 1) = s
    
12.     n = 0: ReDim w(1 To UBound(arr, 2))
    
13.     For j = UBound(arr, 2) To 1 Step -1
    
14.         If arr(i, j) <> "" Then n = n + 1: w(n) = arr(i, j)
    
15.     Next
    
16.     s = 0
    
17.     For j = 1 To n - 1
    
18.         If w(j) > 0 And w(j) - w(j + 1) >= 0 Then s = s + 1
    
19.         If w(j) < 0 Then Exit For
    
20.     Next
    
21.     brr(i, 2) = s
    
22. Next
    
23. Range("s2").Resize(UBound(brr), 2) = brr
    
24. End Sub

复制代码

跳转到最佳答案楼层

大侠@吟风

学习一下

dsmch

1. Sub Macro1()
   
2. Dim arr, brr, w,i&,j%
   
3. arr = [c2:o17]
   
4. ReDim brr(1 To UBound(arr), 1 To 2)
   
5. For i = 1 To UBound(arr)
   
6.     s = 0
   
7.     For j = UBound(arr, 2) To 1 Step -1
   
8.         If arr(i, j) > 0 Then s = s + 1
   
9.         If arr(i, j) < 0 Then Exit For
   
10.     Next
    
11.     brr(i, 1) = s
    
12.     n = 0: ReDim w(1 To UBound(arr, 2))
    
13.     For j = UBound(arr, 2) To 1 Step -1
    
14.         If arr(i, j) <> "" Then n = n + 1: w(n) = arr(i, j)
    
15.     Next
    
16.     s = 0
    
17.     For j = 1 To n - 1
    
18.         If w(j) > 0 And w(j) - w(j + 1) >= 0 Then s = s + 1
    
19.         If w(j) < 0 Then Exit For
    
20.     Next
    
21.     brr(i, 2) = s
    
22. Next
    
23. Range("s2").Resize(UBound(brr), 2) = brr
    
24. End Sub

复制代码

songdg

问题解决了，谢谢兄弟的帮助