求VBA解决方案，在不同列得出比对的不同结果

Soliton_Xu

如附件，以Bsheet为基础，从A中按照条件，读取Unitprice，将不同结果放置于不同列，可以用哪些方法实现，拜谢！！

Soliton_Xu

顶一顶~求帮助~~

蓝桥玄霜

1. Sub lqxs()
   
2. Dim Arr, i&, x$, y, Arr2
   
3. Dim d, k, tt
   
4. Set d = CreateObject("Scripting.Dictionary")
   
5. Sheet2.Activate
   
6. [e2:z5000].ClearContents
   
7. Arr = Sheet1.[a1].CurrentRegion
   
8. For i = 2 To UBound(Arr)
   
9.     x = Arr(i, 1) & "|" & Arr(i, 2) & "|" & Arr(i, 3)
   
10.     y = Arr(i, 4)
    
11.     If d.exists(x) = False Then Set d(x) = CreateObject("Scripting.Dictionary")
    
12.     d(x)(y) = y
    
13. Next
    
14. k = d.keys
    
15. Arr2 = [a1].CurrentRegion
    
16. For i = 2 To UBound(Arr2)
    
17.     x = Arr2(i, 2) & "|" & Arr2(i, 3) & "|" & Arr2(i, 4)
    
18.     If d.exists(x) Then
    
19.         tt = d(x).keys
    
20.         Cells(i, 5).Resize(1, UBound(tt) + 1) = tt
    
21.     End If
    
22. Next
    
23. End Sub
    

复制代码

蓝桥玄霜

请见附件。

Soliton_Xu

蓝桥玄霜 发表于 2014-9-4 10:30
请见附件。

非常感谢版主，赞~~