IF ...... Else.....END IF

15250150627

如下代码第二段循环计算平均值的能不能并到第一个循环内一起计算？
因为第一个循环是求和，且条件和第二段还不一样。
第二段内也有两种条件。
没别的意思，只是想多学习一下这种相对复杂一点的多条件汇总的最简单且最有效的写法。
我的写法是分开了的，所以循环的次数也会增加。
我相信肯定是有办法的，只是我这个菜鸟不会写！！！！

1. Sub 求和()
   
2. Dim arr, brr, crr, i&, j&, n&, s, k1, y&, t, t1
   
3. Dim d As Object
   
4. Dim k As Date
   
5. Set d = CreateObject("scripting.dictionary")
   
6. Range("c17:aj36").ClearContents
   
7. k = [d1]
   
8. k1 = [a17]
   
9. arr = Range("a17:aj36")
   
10.    For i = 1 To UBound(arr)
    
11.          If i > "10" Then k1 = [a27]
    
12.               s = k & "|" & k1 & "|" & arr(i, 2)
    
13.               If Len(s) Then d(s) = i
    
14.    Next
    
15. k1 = [a17]
    
16. brr = Worksheets("生产数据").Range("A1").CurrentRegion.Resize(, 38)
    
17. t = Array(arr, 8, 5, 7, 9, 17, 19, 26, 24, 25, 27, 34, 21)
    
18. t1 = Array(brr, 11, 14, 15, 16, 26, 27, 13, 19, 20, 21, 28, 33)
    
19. ReDim crr(1 To UBound(arr), 1 To 36)
    
20.    For i = 5 To UBound(brr)
    
21.        y = d(brr(i, 1) & "|" & brr(i, 6) & "|" & brr(i, 2))
    
22.          If y Then
    
23.             For j = 1 To UBound(t)
    
24.                 crr(y, 2) = crr(y, 2) + 1
    
25.                 arr(y, t(j)) = arr(y, t(j)) + Val(brr(i, t1(j)))
    
26.             Next j
    
27.          End If
    
28.    Next i
    
29.       For i = 1 To UBound(arr)
    
30.           If i > "10" Then k1 = [a27]
    
31.              For j = 5 To UBound(brr)
    
32.                  If brr(j, 1) = k And brr(j, 6) = k1 And brr(j, 2) = arr(i, 2) And brr(j, 11) <> "" Then
    
33.                     If brr(j, 1) = k And brr(j, 6) = k1 And brr(j, 2) = arr(i, 2) And brr(j, 13) <> "" Then
    
34.                        arr(i, 23) = arr(i, 23) + (brr(j, 9) - brr(j, 25)) / 60
    
35.                     Else
    
36.                   End If
    
37.                        arr(i, 4) = arr(i, 4) + (brr(j, 9) - brr(j, 24)) / 60
    
38.                   End If
    
39.             Next j
    
40.       Next i
    
41.     k1 = [a17]
    
42.     For i = 1 To UBound(arr)
    
43.         For j = 3 To 36
    
44.             If arr(i, j) = "0" Then
    
45.                arr(i, j) = ""
    
46.             End If
    
47.        Next
    
48.     Next
    
49.    Range("a17:aj36").Value = arr
    
50.    Set d = Nothing
    
51. End Sub
    

复制代码

生产数据.rar (952.25 KB, 下载次数: 7)

2021-8-3 21:55 上传

点击文件名下载附件

15250150627

哈
没人进来指导一下吗！！！