请大侠帮忙数据比对

Lovertdos · 发表于 2019-10-11 10:40

请教各位大侠

手里有1个表

表1存放数据源

表2中AB两列为姓名和身份证号

用表2中的姓名和身份证号与表1中的姓名和身份证号进行比对

想用一段VBA代码实现以下功能：

1、如果表2中的姓名和身份证号与表1中的姓名和身份证号完全匹配，在C列输出“是”并在E:T列输出其余内容；

2、如果表2中的身份证号与表1中的身份证号匹配，但姓名不匹配，在C列输出“姓名错误”并在E:T列输出其余内容；

3、如果表2中的身份证号与表1中的身份证号不匹配，在C列输出“否”

求老师帮帮忙

liulang0808 · 发表于 2019-10-11 12:26

Sub zz()
Set d = CreateObject("scripting.dictionary")
arr = Application.Intersect(Sheets("表1").UsedRange, Sheets("表1").Columns("y:z"))
For j = 2 To UBound(arr)
If Len(arr(j, 2)) > 0 Then
d(arr(j, 1) & arr(j, 2)) = j
d(arr(j, 2)) = j
End If
Next j
arr = Sheets("表2").UsedRange
For j = 2 To UBound(arr)
If Len(arr(j, 2)) > 0 Then
If d.exists(arr(j, 1) & arr(j, 2)) Then
arr(j, 3) = "是"
Else
If d.exists(arr(j, 2)) Then
arr(j, 3) = "姓名错误"
Else
arr(j, 3) = "否"
End If
End If
End If
Next j
Sheets("表2").UsedRange = arr
End Sub

复制代码

liulang0808 · 发表于 2019-10-11 12:26

附件内容供参考。。。。。。

Lovertdos · 发表于 2019-10-11 14:47

liulang0808 发表于 2019-10-11 12:26

老师，只实现了是否，后面E到T列没有内容显示啊

Lovertdos · 发表于 2019-10-11 14:51

liulang0808 发表于 2019-10-11 12:26

还有就是这个代码运行后会把表2中B列的身份证号变数字格式

liulang0808 · 发表于 2019-10-11 19:38

Lovertdos 发表于 2019-10-11 14:51
还有就是这个代码运行后会把表2中B列的身份证号变数字格式

b列格式原来是文本格式，正常再赋值，不会变化的

Lovertdos · 发表于 2019-10-12 08:42

liulang0808 发表于 2019-10-11 19:38
b列格式原来是文本格式，正常再赋值，不会变化的

对的，就是不知道怎样才能在E列到T列输入对应的信息呢，还望老师赐教！

Lovertdos · 发表于 2019-10-13 08:16

本帖最后由 Lovertdos 于 2019-10-14 10:57 编辑

已经解决了，非常感谢 ahnyt大侠的热心帮助，谢谢！

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

[求助] 请大侠帮忙数据比对