|
发表于 2015-12-21 16:20
|
显示全部楼层
本楼为最佳答案
- Sub grf()
- arr = Range("b3:v" & [b65536].End(3).Row)
- ReDim brr(1 To UBound(arr), 1 To 5)
- Set d = CreateObject("scripting.dictionary")
- For i = 2 To UBound(arr)
- If arr(i, 6) = "销出" Then
- x = arr(i, 2) & arr(i, 3) & arr(i, 4) & arr(i, 5)
- If Not d.exists(x) Then
- n = n + 1
- d(x) = n
- For j = 2 To 5: brr(n, j - 1) = arr(i, j): Next
- End If
- If arr(i, 21) > 0 Then brr(d(x), 5) = arr(i, 8) / arr(i, 21)
- End If
- Next
- [z9].Resize(n, 5) = brr
- End Sub
复制代码 |
|