不同excel文件中相同数据的更新

如何将不同excel表中的相同数据导入

例如：第一excel中有姓名，身份证 -职业 第二张excel中有 姓名 身份证，如何设计vba 在第二章表中将第一张表里的身份证导入，同时 身份证和姓名，是对应的

可以在第二张中添加一按钮，为导入，点击后将第一张数据里的身份证信息导入

我在网上找了一个，但是是从同一个xls中的不同表进行数据的导入

程序代码如下，不知道能否进行修改后，实现从不同的xls中寻找

Sub fillup()
Dim namer(10000) As String
Dim ID(10000) As String

Sheet2.Select
Cells(2, 1).Select
For i = 0 To 100
namer(i) = ActiveCell.Offset(i, 0).Value
ID(i) = ActiveCell.Offset(i, 1).Value
Next
Sheet1.Select
Cells(2, 3).Select
K = 0
a = 0

ok:
Do Until ActiveCell.Offset(K, 0).Value = ""
name_to_find = ActiveCell.Offset(K, 0).Value

Do Until name_to_find = namer(a)
If a > 9999 Then
ActiveCell.Offset(K, 1).Value = "sheet2中没找到" & "'" & name_to_find & "'"
a = 0
K = K 1
GoTo ok
End If
a = a 1
Loop
ActiveCell.Offset(K, 1).Value = ID(a)
K = K 1
a = 0
Loop

End Sub
问题补充：
如果能点击姓名，自动导入姓名的身份证也好 电脑问题网给出的最佳答案 若用函数将不同表间进行数据的导入，请看附件。
附件：不同excel文件中相同数据的更新.rar
其他回答 　 如果不强调VBA，用列查询函数“=VLOOKUP（第2张表姓名，第1张表全部列，第1张表身份证号码所在列在选区左数的列序号，FALSE）”导入，倒很简单。
请见附件sheet2里B列公式。
附件：号码查找.xls