|
发表于 2015-3-13 13:27
|
显示全部楼层
本楼为最佳答案
- Sub updatestock()
- Set d = CreateObject("scripting.dictionary")
- arr = Range("a1:f" & [f65536].End(3).Row)
- For i = 2 To UBound(arr)
- d(arr(i, 6)) = d(arr(i, 6)) + 1
- If InStr(arr(i, 6), "√") = 0 Then arr(i, 6) = arr(i, 6) & "√"
- Next
- For i = 2 To UBound(arr)
- If d.exists(arr(i, 1)) Then arr(i, 5) = arr(i, 5) - d(arr(i, 1))
- Next
- Range("a1:f" & [f65536].End(3).Row) = arr
- End Sub
复制代码 |
|