[已解决]在A列任意位置输入数据后，判断重复，并跳转至重复位置，如多个重复，则跳转至最后...

yuanye-1160

要求在A列任意位置输入数据后，判断重复，如有重复值，则跳转至重复位置，输入的数据保留不变
如有多个重复值，则跳转至最后一个重复值即可

最佳答案

月排行榜 / 总排行榜

zjdh

2016-1-12 10:17

禁止重复编号2.rar (15.21 KB, 下载次数: 26)

2016-1-12 10:17 上传

点击文件名下载附件

跳转到最佳答案楼层

七彩屋

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2. If Target.Column = 1 Then
   
3.   r = Target.Row
   
4.   LR = Range("A65536").End(xlUp).Row
   
5.     For I = LR - 1 To 2 Step -1
   
6.         If I = r Then I = r + 1
   
7.         If Cells(r, 1) = Cells(I, 1) Then
   
8.           MsgBox "第" & I & "行重复"
   
9.           Range("A" & I).Select
   
10.           Exit Sub
    
11.         End If
    
12.     Next
    
13. End If
    
14. End Sub

复制代码

七彩屋

重复数据提示.rar (12.17 KB, 下载次数: 14)

2016-1-11 17:50 上传

点击文件名下载附件

雪舞子

设置条件格式“突出显示重复值”不是更方便！

zjdh

禁止重复编号.rar (15.57 KB, 下载次数: 15)

2016-1-11 18:00 上传

点击文件名下载附件

yuanye-1160

七彩屋 发表于 2016-1-11 17:50

感谢！如果数据列在B列应该怎么写程序？

yuanye-1160

zjdh 发表于 2016-1-11 18:00

大神！如果数据列在B列应该怎样修改？

七彩屋

yuanye-1160 发表于 2016-1-11 19:17
感谢！如果数据列在B列应该怎么写程序？

重复数据提示11.rar (12.21 KB, 下载次数: 6)

2016-1-11 20:44 上传

点击文件名下载附件

汨罗之源

zjdh 发表于 2016-1-11 18:00

很新奇啊。重复的数据能否设置填充的颜色，可否实现提示是否删除。能否在输入完数据后根据这一行的值自动给A列填充序号（从第3行开始）

zjdh

禁止重复编号2.rar (15.21 KB, 下载次数: 26)

2016-1-12 10:17 上传

点击文件名下载附件