如何比较两表的多列数据？

作者：绿色风分类：时间：2022-08-18 浏览：234

楼主
wcymiss

Q：如何核对“表一”和“表二”中的“姓名”、“账号”、“实发工资”是否都一致？如“姓名”“账号”和“实发工资”都一致，则在E列返回“正确”；如不一致，则在E列返回“错误”；如果表一的数据在表二中没有，则在E列返回“表二无数据”。
A：方法一：数组公式，公式输入E2后按ctrl+shift+回车，然后下拉公式。

=IF(ISNA(VLOOKUP(B2,表二!B:D,2,)),"表二无数据",IF(AND(VLOOKUP(B2,表二!B:D,{2,3},)=表一!C2:D2),"正确","错误"))

方法二：按alt+F11进入VBE窗口，双击任意工作表，将代码复制到右上方空白处，然后点击菜单栏的“运行”按钮。

Sub 核对三列数据()
Dim arr, brr, i&, d As Object
Set d = CreateObject("scripting.dictionary")
Sheets("表一").Range("e2:e" & Rows.Count).ClearContents
arr = Sheets("表一").[a1].CurrentRegion
brr = Sheets("表二").[a1].CurrentRegion
For i = 2 To UBound(brr)
d(brr(i, 2)) = i
Next
For i = 2 To UBound(arr)
If d.exists(arr(i, 2)) Then
If brr(d(arr(i, 2)), 3) = arr(i, 3) And brr(d(arr(i, 2)), 4) = arr(i, 4) Then
arr(i, 5) = "正确"
Else
arr(i, 5) = "错误"
End If
Else
arr(i, 5) = "表二无数据"
End If
Next
Sheets("表一").[a1].CurrentRegion = arr
Set d = Nothing
End Sub

如何比较两表的多列数据.rar

2楼
清华

3楼
forhj

非常好，学习了

免责声明

有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，经与ExcelTip.Net站长Apolloh商议并征得其同意，现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，供有需要的人士查询使用，也慰缅曾经的论坛时代。所示各个帖子的原作者如对版权有异议，可与本人沟通提出，或于本站点留言，我们会尽快处理。在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一

评论列表