分类：电脑/网络-软件-办公软件
问题：不同excel文件中相同数据的更新如何将不同excel表中的相同 
如何将不同表中的相同数据导入例如：第一excel中有姓名，身份证 -职业 第二张excel中有 姓名  身份证，如何设计vba 在第二章表中将第一张表里的身份证导入，同时 身份证和姓名，是对应的可以在第二张中添加一按钮，为导入，点击后将第一张数据里的身份证信息导入我在网上找了一个，但是是从同一个xls中的不同表进行数据的导入程序代码如下，不知道能否进行修改后，实现从不同的xls中寻找Sub fillup()Dim namer(10000) As StringDim ID(10000) As St如何将不同表中的相同数据导入例如：第一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
回答：若用函数将不同表间进行数据的导入，请看附件。