VBA用两种方法计算这个 单元格

laoau138

VBA用两种方法计算这个 单元格

grf1973

1. Function cz(rng As Range)   '函数法
   
2.     arr = rng
   
3.     For i = 1 To UBound(arr)
   
4.         cz = cz + Val(arr(i, 1)) * Val(arr(i, 2))
   
5.     Next
   
6. End Function
   
7. 
   
8. Sub 计算()     '数组直接计算
   
9.     arr = [a1].CurrentRegion
   
10.     For i = UBound(arr) To 2 Step -1
    
11.         s = s + Val(arr(i, 4)) * Val(arr(i, 5))
    
12.         If arr(i, 1) <> "" Then arr(i, 7) = s: s = 0
    
13.     Next
    
14.     [g1].Resize(UBound(arr)) = Application.Index(arr, , 7)
    
15. End Sub
    

复制代码

laoau138

grf1973 发表于 2016-12-16 15:50

grf1973 大侠        这条题目似乎做过了

上一次回答也是你啊