注：文章内容来源于网络，真实性有待确认，请自行甄别。
不同excel文件中相同数据的更新如何将不同excel表中的相同
发表于：2024-10-24 00:00:00浏览：5次
问题描述：如何将不同表中的相同数据导入
例如：第一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
若用函数将不同表间进行数据的导入，请看附件。
猜你喜欢
- ppt在插入图片时出现无法插入的问题在插入时，图片文件夹打开后，
- 在插入时，文件夹打开后，出现图片文件不能正常显示，选定一个图片文件后就出现PowerPoint 停止工作较长时间，进而自动退出的现象，不知如何解决。
- EXCEL中如何打印字体颜色，却不打印单元格背景色？为了视觉上的
- 为了上的直观，我在电子表格中，对某些单元格使用了不同的背景色，但这些背景色只能在电子表格中被看见，而不能打印出来。 要解决这个问题很简单，只需要在页面设置中选择“单色打印”即可。 现在，我需要对一些文字改变颜色，并且需要打印出颜色来。如果启用了“单色打印”就不能将字体的颜色打印出来了。 甚至有的时候，在同一个单元格内，其背景色不需要打印出来，而文字的颜色则需要被打印出来。 请问，如何解决这个矛...
栏目分类全部>
推荐文章
- ppt在插入图片时出现无法插入的问题在插入时，图片文件夹打开后，
- excel表格中，怎么才能让项目永远保持在最上面，无论下来页面都?
- 为什么复制到word里的同样字体和大小的文字颜色会深浅不一？为什
- 网页在复制后经过word编辑时，发现里面有许多下箭头标记，请问怎?
- EXCEL中如何打印字体颜色，却不打印单元格背景色？为了视觉上的
- 请问.WORD里面打印时如何设置成隔页打印的模式啊?就是只打第一?
- 怎样使IF函数返回的值自动添加颜色?在使用EXCEL函数的时候,
- 把word中的带横杠的数字复制到excel中，为何变成了日期？使
- S上面加一横请问在Word里如何在英文字母S的上面加一横？除了用
- EXCEL单表格里想打多行可以吗单格里有没有类似于文档“回车键”