关于vlookup多条件查询返回还是excelvba方法的求助！

有位宅男

工作簿1.rar (10.23 KB, 下载次数: 10)

2016-3-25 10:06 上传

点击文件名下载附件

小弟新人来报道，以上问题困扰许久，希望论坛里的大神们能不吝赐教，感激不尽！！

sry660

1. Sub 查询()
   
2.     Dim arr, i&, j&, x, d, k&, d1, a
   
3.     Set d = CreateObject("scripting.dictionary")
   
4.     Set d1 = CreateObject("scripting.dictionary")
   
5.     With Sheets(1)
   
6.         arr = .[a1].CurrentRegion
   
7.         For i = 2 To UBound(arr)
   
8.             x = arr(i, 1) & arr(i, 2)
   
9.             d(x) = arr(i, 3)
   
10.         Next
    
11.     End With
    
12.     Sheets(5).[a2:d10000].ClearContents
    
13.     For k = 2 To 4
    
14.         With Sheets(k)
    
15.             arr = .[a1].CurrentRegion
    
16.             For i = 2 To UBound(arr)
    
17.                 x = arr(i, 1) & arr(i, 2)
    
18.                 If d.exists(x) And arr(i, 3) > d(x) Then
    
19.                     Set d1(x) = .Cells(i, 1).Resize(1, 4)
    
20.                 End If
    
21.                 For Each a In d1.keys
    
22.                     d1(a).Copy Sheets(5).Cells(Rows.Count, 1).End(3).Offset(1, 0)
    
23.                     d1.Remove (a)
    
24.                 Next
    
25.             Next
    
26.         End With
    
27.     Next
    
28. End Sub

复制代码