两列与两列比较，新增的添加到后两列

z403025335

z403025335 发表于 2018-6-10 19:25
Private Sub Worksheet_Change(ByVal Target As Range)
Dim n&, n1&, i&
    i = 2

刚才我纠正了一下，刚开始在纠结检查重复是在shee1中还是shee2中检查，经过纠结和修改，写错了代码，已纠正！

a18b88

谢谢您的辛勤劳动，我再去试试。

a18b88

z403025335 朋友，万分感谢您！耽误了你的工作和休息，都有些不好意思了，现经过测试，基本上满足了要求，发现的问题是：对比出了重复就不准录入数据并退出了，这样不可以！发现重复不添加到工作表2，但可以允许录入此数据。