VBA匹配并输出值

黄涌進

求各位大神支招，感激不尽！
目标：sheet1、sheet2 里面标黄段为原始数据，需要根据这两个sheet，输出sheet3 对应后面的数值。

思路：sheet1 的A列是唯一值，希望以此为根据，匹配sheet2中是否存在对应项，如果存在，则把对应sheet2 列的数值存入数组，最后输出在sheet3 对应的行。

以sheet1 A2单元格（1.1.1.1-G_11）为例，在sheet2 D-O列中进行匹配，如果同IP下含有同样的索引，则把前面B列的数值存入对应数组内，最后1.1.1.1-G_11对应输出值为sheet3所示的数值。



再次感谢，谢谢！

凌空一羽

1. Sub 凌空一羽()
   
2. arr = Sheets("Sheet2").Range("a1").CurrentRegion
   
3. Set d = CreateObject("Scripting.Dictionary")
   
4. For i = 2 To UBound(arr)
   
5.     For j = 4 To 15
   
6.         If Len(arr(i, j)) <> 0 Then
   
7.             If Not d.exists(arr(i, 1) & "-" & arr(i, j)) Then
   
8.                 d(arr(i, 1) & "-" & arr(i, j)) = arr(i, 2)
   
9.             Else
   
10.                 d(arr(i, 1) & "-" & arr(i, j)) = d(arr(i, 1) & "-" & arr(i, j)) & "," & arr(i, 2)
    
11.             End If
    
12.         End If
    
13. Next j, i
    
14. brr = Sheets("Sheet3").Range("a1").CurrentRegion
    
15. For i = 2 To 10
    
16.     If d.exists(brr(i, 1)) Then Range("E" & i) = d(brr(i, 1))
    
17. Next
    
18. Application.DisplayAlerts = False
    
19. Range("e2:e10").TextToColumns comma:=True
    
20. Application.DisplayAlerts = True
    
21. Set d = Nothing
    
22. End Sub

复制代码

黄涌進

凌空一羽 发表于 2017-4-27 22:53

厉害了大神！感谢！