如何按姓名合并两个工作表的数据？

nyxmq · 发表于 2013-9-26 21:45

本帖最后由 nyxmq 于 2013-9-27 13:56 编辑

我有一个工作薄，sheet1和sheet2学生人数不同，人也不完全相同，如何按照姓名把数据合并到sheet3中，两表都有把信息合并一起的排在前面，只有一个表有的排在后面，把两表所有人汇总到sheet3中，实际人数很多1000多人，谢谢！

初中学籍上报表.rar (6.99 KB, 下载次数: 77)

朱荣兴 · 发表于 2013-9-26 22:12

提示: 作者被禁止或删除内容自动屏蔽

dsmch · 发表于 2013-9-26 22:13

是根据表三的学号取表一和表二的数值吗？

jpyhaier · 发表于 2013-9-26 22:50

你这个sheet1与sheet2里的名单差距太大了，想弄个示范都不好弄，其实，我想你要弄的这个名单可能有出入，但不至于两份名单差这么大。如果两份名单真差这么大的话，可能做起来就麻烦多了。

nyxmq · 发表于 2013-9-27 13:52

谢谢！请问能否筛选出表2中有而表1中没有的学生名单和小升初学籍号？

nyxmq · 发表于 2013-9-27 13:58

朱荣兴发表于 2013-9-26 22:12
vlookup函数就可以搞定

谢谢！请问能否筛选出表2中有而表1中没有的学生名单和小升初学籍号？

蓝桥玄霜 · 发表于 2013-9-27 14:18

Sub lqxs()
Dim Arr, i&, m&, d
Set d = CreateObject("Scripting.Dictionary")
Sheet3.Activate
[a2:h5000].ClearContents
[a2:h5000].Borders.LineStyle = xlNone
Arr = Sheet1.[a1].CurrentRegion
m = UBound(Arr)
[a1].Resize(UBound(Arr), 6) = Arr
For i = 2 To UBound(Arr)
d(Arr(i, 2)) = i
Next
Arr = Sheet2.[a1].CurrentRegion
For i = 2 To UBound(Arr)
If d.exists(Arr(i, 1)) Then
Cells(d(Arr(i, 1)), 7) = Arr(i, 2)
Else
m = m + 1
Cells(m, 2) = Arr(i, 1): Cells(m, 7) = Arr(i, 2)
End If
Next
[a1].CurrentRegion.Borders.LineStyle = 1
End Sub

复制代码

蓝桥玄霜 · 发表于 2013-9-27 14:19

请见附件。

nyxmq · 发表于 2013-9-27 17:52

蓝桥玄霜发表于 2013-9-27 14:19
请见附件。

谢谢版主！！！谢谢老师！！！

lcjy11185 · 发表于 2013-9-28 12:05

蓝版的写得很好

		自动登录	找回密码
密码			免费注册

[求助] 如何按姓名合并两个工作表的数据？

评分

朱荣兴朱荣兴当前离线性别保密 UID 1318548 阅读权限 0 注册时间 2011-2-2 在线时间小时最后登录 1970-1-1 积分 19282 财富分享技术精华头像被屏蔽 TA的精华主题 TA的得分主题	发表于 2013-9-26 22:12 \| 显示全部楼层 [广告] ★会Excel,就能做支持PC、手机、Web、App、Windows、安卓、IOS、Linux信息一体化的各种管理系统 ★ 提示: 作者被禁止或删除内容自动屏蔽

	回复举报