求助各位老师简化VBA，提升运行效率，非常感谢

liulang0808

zhycl 发表于 2018-7-16 19:09
老师详见附件，代码在 模块1中，谢谢了

WorksheetFunction.Sum(Range("arr(i, 7):arr(i, 26)"))
这个range使用有问题的，首先数组放到引号里就是个一个无法引用的区域表示方式的
http://club.excelhome.net/thread-1075224-1-1.html这个链接参考下吧

zhycl

liulang0808 发表于 2018-7-16 20:07
WorksheetFunction.Sum(Range("arr(i, 7):arr(i, 26)"))
这个range使用有问题的，首先数组放到引号里就 ...

老师，我确实刚学习VBA，通过您给的链接，无法找到解决办法，还请给出一个正确的写法吧，谢谢了

liulang0808

1. Sub 台账汇总计算()
   
2. Dim nRow, arr
   
3. Application.ScreenUpdating = False
   
4. 
   
5. With Sheets("台账汇总")
   
6.   nRow = .Range("a" & .Rows.Count).End(3).Row
   
7.   arr = .Range("a5:bw" & nRow)
   
8.   aarr = .Range("a5:aj" & nRow)
   
9. End With
   
10. 
    
11. For i = 1 To UBound(arr)
    
12.        sm = 0
    
13.         For k = 7 To 26
    
14.             sm = arr(i, k) + sm
    
15.          Next k
    
16.        If sm = 0 Then
    
17.                
    
18.             For k = 27 To 36
    
19.                 aarr(i, k) = ""
    
20.             Next k
    
21.       Else
    
22.         aarr(i, 27) = 0
    
23.          For k = 7 To 26
    
24.             aarr(i, 27) = arr(i, k) + aarr(i, 27)
    
25.          Next k
    
26.          aarr(i, 28) = arr(i, 7) + arr(i, 9) + arr(i, 11) + arr(i, 13)
    
27.          aarr(i, 29) = arr(i, 8) + arr(i, 10) + arr(i, 12) + arr(i, 14)
    
28.          aarr(i, 30) = arr(i, 15)
    
29.          aarr(i, 31) = arr(i, 16)
    
30.          aarr(i, 32) = arr(i, 17) + arr(i, 19) + arr(i, 21) + arr(i, 23)
    
31.          aarr(i, 33) = arr(i, 18) + arr(i, 20) + arr(i, 22) + arr(i, 24)
    
32.          aarr(i, 34) = arr(i, 25)
    
33.          aarr(i, 35) = arr(i, 26)
    
34.          aarr(i, 36) = 0
    
35.          For k = 27 To 35
    
36.             aarr(i, 36) = arr(i, k) + aarr(i, 36)
    
37.          Next k
    
38.          
    
39.        End If
    
40.      
    
41.   Next i
    
42.   
    
43. Sheets("台账汇总").Range("aa5:aj" & nRow) = aarr
    
44. Application.ScreenUpdating = True
    
45. End Sub

复制代码

修改完，可以运行，但是逻辑上是否满足楼主需求，请楼主核实吧