2个excel 表格比对，同时比较两列数据，数据相同的，则提取第3列数据填列

APPLE123

2个excel 表格比对，同时比较两列数据，数据相同的，则提取第3列数据填列，如：

比对Sheet1、Sheet2的姓名、班级，姓名、班级均相同的，则提取Sheet2对应的操行等级填入Sheet1的操行等级。达到Sheet3的效果。

注意：每个表格的人数不一定相同，略有差异。

请教，如何解决？谢谢！

linyh1742595842

Sub test()
    [a2:f65536] = ""
    a = 2
    s = Sheet1.Range("A65536").End(xlUp).Row
    s1 = Sheet2.Range("A65536").End(xlUp).Row
For i = 2 To s
For k = 2 To s1
If Sheet1.Cells(i, 2).Value & Sheet1.Cells(i, 3).Value = Sheet2.Cells(k, 2).Value & Sheet2.Cells(k, 3).Value Then
     For n = 1 To 5
        Sheet3.Cells(a, n) = Sheet1.Cells(i, n).Value
        Sheet3.Cells(a, 6) = Sheet2.Cells(k, 4).Value
     Next
    n = n + 1
    a = a + 1
End If
Next
Next
    MsgBox "数据提取完毕。", vbInformation, "提示"
End Sub

linyh1742595842

请看附件。。
比较2列相同提取第三列数据.zip (11.22 KB, 下载次数: 685)

2015-4-26 18:04 上传

点击文件名下载附件

hlly888

1. Sub yy() 'hlly888
   
2. Range("a2").Resize(65535, 6).ClearContents
   
3. Application.ScreenUpdating = False
   
4. Dim dc As Object, arr, yrr, i&, j%, s&, x&, x2
   
5. Set dc = CreateObject("Scripting.Dictionary")
   
6. x = Sheet2.Cells(Rows.Count, 1).End(xlUp).Row
   
7. arr = Sheet2.Range("a2:d" & x)
   
8. x2 = Sheet1.Cells(Rows.Count, 1).End(xlUp).Row
   
9. yrr = Sheet1.Range("a2:e" & x2)
   
10. ReDim brr(1 To UBound(arr), 1 To 6)
    
11. 
    
12.      For i = 1 To UBound(arr)
    
13.          dc(arr(i, 2) & arr(i, 3)) = arr(i, 4)
    
14.      Next
    
15.      For i = 1 To UBound(arr)
    
16.          If dc.Exists(yrr(i, 2) & yrr(i, 3)) Then
    
17.             s = s + 1
    
18.             For j = 1 To 5
    
19.                 brr(s, j) = yrr(i, j)
    
20.             Next
    
21.             brr(s, 6) = dc(yrr(i, 2) & yrr(i, 3))
    
22.          End If
    
23.      Next
    
24.      
    
25. Range("a2").Resize(s, 6) = brr
    
26. Application.ScreenUpdating = True
    
27. End Sub

复制代码

hlly888

比较2列相同提取第三列数据.zip (17.74 KB, 下载次数: 632)

2015-4-26 18:27 上传

点击文件名下载附件

APPLE123

感谢各位大神的帮助，基本达到要求！

如果不完全使用“数据提取”方式得到Sheet3，通过比对后，可否Sheet1中的F列中得到相应的数据即可。

题目本意是“达到Sheet3的效果”，而非得到一个全新的Sheet3。

函数公式或VBA均可。

再一次感谢诸位的帮助！

zyhmichael

我也遇到同样的问题，可以用函数公式直接得到结果吗？比如第1张表A列物料编码，E列库存位置，需要在第2张表上的B列物料编码，G列库存位置这2个地方进行对比，如果2个条件都符合，那就在第1张表的F列，显示B表E列的数据，可以用函数来得到吗？

lrh788

留用，谢谢！

天念水

正好需要，查看一下

tomypan

非常感谢，学习了~