按日期查询每个物料的最新价格

lsc900707

mcy318 发表于 2018-8-30 09:07
好像还不对，你这样抓 出来的数据是当选2016年3月时，代码1004应该没价格才对，而你还是抓 出价格来了

抱歉，理解有误，你自己根据要求再修改一下。

CC例例

供楼主参考

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2.     Dim d As Object, arA, k(), i&, x%
   
3.     If Target.Address <> "$B$2" Then Exit Sub
   
4.     Set d = CreateObject("Scripting.Dictionary")
   
5.     arA = Sheets("价格库").UsedRange
   
6.     Range("a2").CurrentRegion.Offset(2).ClearContents
   
7.     For i = 2 To UBound(arA)
   
8.         If d.Exists(arA(i, 1)) Then k = d(arA(i, 1)) Else ReDim k(4)
   
9.         For x = 0 To 2
   
10.             k(x) = arA(i, x + 1)
    
11.         Next
    
12.         If arA(i, 5) <= Target.Value Then k(4) = arA(i, 4)
    
13.         d(arA(i, 1)) = k
    
14.     Next
    
15.     Range("a4").Resize(d.Count, 5) = Application.Rept(d.Items, 1)
    
16.     Set d = Nothing
    
17. End Sub

复制代码

CC例例

附件供参考

mcy318

CC例例 发表于 2018-8-30 10:38
附件供参考

高手感谢，正是我所需要的。用到了VBA的高级货