|
aman1516 发表于 2015-1-24 21:31 
不好意思,老师的是对的,示例中的数据手动计算一时录入有误。谢谢!
请问有无办法直接用VBA全部实现,而 ...
sub 调用自定义函数是方便的- Sub aa()
- Dim err()
- r = Range("a" & Rows.Count).End(xlUp).Row
- arr = Range("a2:a" & r)
- crr = Range("c2:c" & r)
- grr = Range("g2:g" & r)
- dds = [L1]
- err = BOMSum(arr, crr)
- frr = err
- For i = 1 To UBound(err)
- frr(i, 1) = err(i, 1) * dds
- Next
- hrr = BOMSum(arr, crr, grr, dds)
- Range("e2").Resize(UBound(err), 1) = err
- Range("f2").Resize(UBound(frr), 1) = frr
- Range("h2").Resize(UBound(hrr), 1) = hrr
- End Sub
复制代码 |
|