[已解决]如何使用vba处理数据当前值

mmc998

Book15.rar (42.4 KB, 下载次数: 15)

2014-3-21 21:14 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

dsmch

2014-3-21 21:34

1. Sub Macro1()
   
2. Dim arr, brr, d, i&, j%, x&
   
3. Set d = CreateObject("scripting.dictionary")
   
4. arr = Range("a13").CurrentRegion
   
5. brr = Range("e2").CurrentRegion
   
6. ReDim crr(1 To UBound(arr), 1 To 1)
   
7. x = UBound(brr)
   
8. For j = 1 To UBound(brr, 2)
   
9.     d(j - 1) = brr(x, j)
   
10. Next
    
11. For i = 1 To UBound(arr)
    
12.     s = 0
    
13.     For j = 1 To UBound(arr, 2)
    
14.         s = s + d(arr(i, j))
    
15.     Next
    
16.     crr(i, 1) = s
    
17. Next
    
18. Range("d13").Resize(UBound(crr)) = crr
    
19. End Sub
    

复制代码

跳转到最佳答案楼层

dsmch

1. Sub Macro1()
   
2. Dim arr, brr, d, i&, j%, x&
   
3. Set d = CreateObject("scripting.dictionary")
   
4. arr = Range("a13").CurrentRegion
   
5. brr = Range("e2").CurrentRegion
   
6. ReDim crr(1 To UBound(arr), 1 To 1)
   
7. x = UBound(brr)
   
8. For j = 1 To UBound(brr, 2)
   
9.     d(j - 1) = brr(x, j)
   
10. Next
    
11. For i = 1 To UBound(arr)
    
12.     s = 0
    
13.     For j = 1 To UBound(arr, 2)
    
14.         s = s + d(arr(i, j))
    
15.     Next
    
16.     crr(i, 1) = s
    
17. Next
    
18. Range("d13").Resize(UBound(crr)) = crr
    
19. End Sub
    

复制代码

dsmch

………………