|
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件 ★ 免费下载 ★ ★ 使用帮助★
'假设"日期"R列升序,否则先手工排序。另外当前值是通过最近期库存计算而来的
'就是说并不一定是前一天,如果它不存在可能取的是再前面的某一天的数据并计算,就是最近期,,,
Option Explicit
Sub 库存计算()
Dim arr, i, dic
Set dic = CreateObject("scripting.dictionary")
With Sheets("单品每日监控")
arr = .Range("r3:ad" & .Cells(.Rows.Count, "w").End(xlUp).Row).Value
For i = 1 To UBound(arr, 1)
If Len(arr(i, 6)) > 0 And dic.exists(arr(i, 6)) Then arr(i, 2) = arr(dic(arr(i, 6)), 2) - arr(i, 13)
dic(arr(i, 6)) = i
Next
.[r3].Resize(UBound(arr, 1), 2) = arr
End With
End Sub |
评分
-
1
查看全部评分
-
|