我有两张表格。表1是系统提数,表2是人工输入的。
表1有两万条数据,表2只有一万条。也就是说表2少记录了一万条,
现在我需要找出漏记的数据出来。请问如何解决。
表格如图:
补充图片,两张表格式一致。
新建一EXCEL表系统提取表(数据多的表)复制到sheet1人工录入表(数据少的表)复制到sheet2
在sheet1姓名(B列)后插入新列,用于标记是否漏输
sheet1标签点右键,点查看代码,进入编辑器
点击左边sheet1,右边窗口粘贴我的代码
关闭编辑器返回sheet1
菜单:工具→宏→宏,执行宏“查漏”
漏填的记录会出现“是”
===代码如下(直接复制)
Sub 查漏()
Dim Row1, i
Row1 = Sheet1.UsedRange.Rows.Count
Sheet2.Cells(1, 31) = "=VLOOKUP(AD1,Sheet2!B:B,1,0)"
For i = 3 To Row1
Sheet2.Cells(1, 30) = Sheet1.Cells(i, 2)
Sheet1.Cells(i, 3) = IIf(Sheet2.Cells(1, 31).Text = "#N/A", "是", "")
DoEvents
Next i
Sheet2.Cells(1, 31) = ""
End Sub