两个表格中找出相同的数据，并将对应列的数据填入另一表格中。

yuequezi

两个表格，其中一列是相同的，想将附件表1中的c列中的数据填到表2的B列中想应的格子中。

xiangbaoan

表2 b2 公式下拉，出现#N/A 则表示找不到对应的姓名
=VLOOKUP(A1,Sheet1!$B$1:$C$943,2,0)

大灰狼1976

两个代码都需要在sheet2运行，注意“陈白弟”有两个不同地址，所以两种方法的结果不一样。

1. Sub 查找()
   
2. Dim i, rng As Range
   
3. For i = 1 To [a65536].End(3).Row
   
4.   Set rng = Sheets(1).Columns(2).Find(Cells(i, 1), lookat:=xlWhole)
   
5.   If Not rng Is Nothing Then Cells(i, 2) = rng.Offset(, 1)
   
6. Next i
   
7. End Sub
   
8. 
   
9. Sub 字典()
   
10. Dim arr, i&, d As Object
    
11. Set d = CreateObject("scripting.dictionary")
    
12. arr = Sheets(1).[a1].CurrentRegion
    
13. For i = 1 To UBound(arr)
    
14.   d(arr(i, 2)) = arr(i, 3)
    
15. Next i
    
16. arr = [a1].CurrentRegion.Resize(, 2)
    
17. For i = 1 To UBound(arr)
    
18.   arr(i, 2) = d(arr(i, 1))
    
19. Next i
    
20. [b1].Resize(UBound(arr)) = Application.Index(arr, , 2)
    
21. End Sub

复制代码