[已解决]求助禁止录入重复数据的VBA代码

安全网 · 发表于 2015-12-27 08:29

本帖最后由安全网于 2016-1-4 10:42 编辑

上面有4列数据，禁止后面录入与上面的4列单元格相同数据的录入的VBA

最佳答案

月排行榜 / 总排行榜

zjdh

2016-1-3 23:36

(, 下载次数: 36)

zjdh · 发表于 2015-12-27 08:53

禁止重复数据的录入.rar (11.46 KB, 下载次数: 36)

安全网 · 发表于 2015-12-27 09:34

zjdh 发表于 2015-12-27 08:53

如果单元格数据向下拉，改变3/4的值相同就不提示？

安全网 · 发表于 2015-12-27 11:02

zjdh 发表于 2015-12-27 08:53

如果1/4相同，2/3不同就会删掉，要求是4个一样才删掉，单元格下拉如果也是相同也删掉

qwh923820 · 发表于 2015-12-27 11:20

安全网发表于 2015-12-27 11:02
如果1/4相同，2/3不同就会删掉，要求是4个一样才删掉，单元格下拉如果也是相同也删掉

照着楼上改了一下！！

禁止重复数据的录入.rar (12.06 KB, 下载次数: 21)

安全网 · 发表于 2015-12-27 11:27

qwh923820 发表于 2015-12-27 11:20
照着楼上改了一下！！

没有产生效果

安全网 · 发表于 2015-12-27 11:28

qwh923820 发表于 2015-12-27 11:20
照着楼上改了一下！！

我也是这样改的没有效果

qwh923820 · 发表于 2015-12-27 12:07

安全网发表于 2015-12-27 11:27
没有产生效果

If Target.Column = 2 Or Target.Column = 5 Or Target.Column = 3 Or Target.Column = 4 Then

第二句再改成这个

安全网 · 发表于 2015-12-27 13:39

qwh923820 发表于 2015-12-27 12:07
If Target.Column = 2 Or Target.Column = 5 Or Target.Column = 3 Or Target.Column = 4 Then

谢谢！能否加一句提示有前面的那一行数据重复的VBA了

安全网 · 发表于 2015-12-28 13:47

Range("b" & J & ":e" & J).Interior.ColorIndex = 6
Range("b" & i & ":e" & i).Interior.ColorIndex = 6
   MsgBox "第" & i & "行与第" & J & "行重复"
      x = MsgBox("请问是否需要删除重复的数据行？", vbYesNo)
      If x = 6 Then Rows(J).Delete
Range("b2:e" & r).Interior.ColorIndex = 0，求助高手能否加入上面的VBA内一起使用

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