[已解决]若何按照这样的要求查找

股网千王

grf1973 发表于 2014-5-6 10:40

{:101:}{:1112:}师兄果然厉害

grf1973

或者

1. Sub tt()
   
2.     Set d = CreateObject("scripting.dictionary")
   
3.     For k = 0 To 1
   
4.         xsh = IIf(k = 0, "年度出库", "出库明细")
   
5.         arr = Worksheets(xsh).[a1].CurrentRegion
   
6.         For i = 3 To UBound(arr)
   
7.             xkey = arr(i, 1) & arr(i, 2)  '以收货单位和材料编码作为检索条件
   
8.             If arr(i, 7) > 0 Then d(xkey) = arr(i, 7)
   
9.         Next
   
10.     Next
    
11.     With Sheet1
    
12.         r = .[a65536].End(3).Row
    
13.         For i = 4 To r
    
14.             xkey = .[h2] & .Cells(i, 1)
    
15.             If d.exists(xkey) Then .Cells(i, 6) = d(xkey) Else .Cells(i, 6) = "未找到对应单价"
    
16.         Next
    
17.     End With
    
18. End Sub
    

复制代码