[已解决]当前遗露值

mmc998

Book当前遗露.zip (13.18 KB, 下载次数: 23)

2015-1-1 19:11 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

dsmch

2015-1-1 21:02

1. Sub Macro1()
   
2. Dim arr, brr, crr, i&, j%, s%
   
3. arr = Range("a3").CurrentRegion
   
4. brr = Range("a38").CurrentRegion
   
5. ReDim crr(1 To UBound(brr), 1 To 1)
   
6. n = UBound(arr)
   
7. For i = 1 To UBound(brr)
   
8.     s = 0
   
9.     For j = 1 To UBound(brr, 2)
   
10.         s = s + arr(n, brr(i, j) + 7)
    
11.     Next
    
12.     crr(i, 1) = s
    
13. Next
    
14. Range("h38").Resize(UBound(crr)) = crr
    
15. End Sub

复制代码

跳转到最佳答案楼层

dsmch

1. Sub Macro1()
   
2. Dim arr, brr, crr, i&, j%, s%
   
3. arr = Range("a3").CurrentRegion
   
4. brr = Range("a38").CurrentRegion
   
5. ReDim crr(1 To UBound(brr), 1 To 1)
   
6. n = UBound(arr)
   
7. For i = 1 To UBound(brr)
   
8.     s = 0
   
9.     For j = 1 To UBound(brr, 2)
   
10.         s = s + arr(n, brr(i, j) + 7)
    
11.     Next
    
12.     crr(i, 1) = s
    
13. Next
    
14. Range("h38").Resize(UBound(crr)) = crr
    
15. End Sub

复制代码