[已解决]怎么修改代码

mmc998

Book遗.rar (417.29 KB, 下载次数: 61)

2014-12-30 07:59 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

dsmch

2014-12-30 10:10

1. Sub Macro3()
   
2. Dim arr, brr, crr, i&, j%
   
3. arr = Range("a3:f" & Range("a65536").End(xlUp).Row)
   
4. brr = Range("h3:an" & Range("h65536").End(xlUp).Row)
   
5. ReDim crr(1 To UBound(arr), 1 To 1)
   
6. For i = 2 To UBound(arr)
   
7.     s = 0
   
8.     For j = 1 To UBound(arr, 2)
   
9.         s = s + brr(i - 1, arr(i, j))
   
10.     Next
    
11.     crr(i, 1) = s
    
12. Next
    
13. Range("ao3").Resize(UBound(crr)) = crr
    
14. End Sub

复制代码

跳转到最佳答案楼层

dsmch

1. Sub Macro3()
   
2. Dim arr, brr, crr, i&, j%
   
3. arr = Range("a3:f" & Range("a65536").End(xlUp).Row)
   
4. brr = Range("h3:an" & Range("h65536").End(xlUp).Row)
   
5. ReDim crr(1 To UBound(arr), 1 To 1)
   
6. For i = 2 To UBound(arr)
   
7.     s = 0
   
8.     For j = 1 To UBound(arr, 2)
   
9.         s = s + brr(i - 1, arr(i, j))
   
10.     Next
    
11.     crr(i, 1) = s
    
12. Next
    
13. Range("ao3").Resize(UBound(crr)) = crr
    
14. End Sub

复制代码