把身份证号码按姓名导到没有身份证号码的那个表！

moto909 · 发表于 2017-1-9 14:56

有两个表，有个表有姓名身份证号码的，有个表有姓名，没有的身份证号码，把身份证号码导到没有号码的那个表，这个表有4万多行！请帮忙！

moto909 · 发表于 2017-1-9 18:09

请大神看看！

huanghai22 · 发表于 2017-1-9 18:19

按姓名导入？确定没有重名的？

小花鹿 · 发表于 2017-1-9 18:20

有没有重名的？.............................................................................................................

朱荣兴 · 发表于 2017-1-9 18:23

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

moto909 · 发表于 2017-1-9 20:35

本帖最后由 moto909 于 2017-1-9 20:45 编辑

huanghai22 发表于 2017-1-9 18:19
按姓名导入？确定没有重名的？

应该有重名的。可否用客户号来鉴别重名？客户号不重复！

moto909 · 发表于 2017-1-9 20:36

本帖最后由 moto909 于 2017-1-9 20:44 编辑

小花鹿发表于 2017-1-9 18:20
有没有重名的？...................................................................................... ...

应该有重名的。实在不行，重名的再说！可否用客户号来鉴别重名？客户号不重复！

moto909 · 发表于 2017-1-9 20:37

本帖最后由 moto909 于 2017-1-9 20:46 编辑

朱荣兴发表于 2017-1-9 18:23

谢谢！我试一下。结果时是这样的。

2.32321E+17

不是身份证号码的样子！

moto909 · 发表于 2017-1-9 20:42

朱荣兴发表于 2017-1-9 18:23

2.32321E+17
结果是这样的。不是身份证号码的位数！

lsc900707 · 发表于 2017-1-9 21:05

代码放模块，按钮放“贷款台账”：
Sub lsc()
Dim Arr, i&, d, Brr
Set d = CreateObject("Scripting.Dictionary")
[o3:o50000].ClearContents
Arr = Sheet2.[a1].CurrentRegion
For i = 2 To UBound(Arr)
d(Arr(i, 2)) = Arr(i, 3)
Next
Brr = [a1].CurrentRegion
For i = 3 To UBound(Brr)
If d.exists(Brr(i, 5)) Then Cells(i, 15) = d(Brr(i, 5))
Next
End Sub

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

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

	回复举报

[求助] 把身份证号码按姓名导到没有身份证号码的那个表！