[分享]防止录入重复数据（已解决粘贴问题9月4日更新）

zhang81524 · 发表于 2004-10-8 19:50

为什么我B列这样设,有效性就没有作用,B列命名为ABC

=COUNTIF(ABC,B1)=1

ozfa7rFx.rar (1.53 KB, 下载次数: 40)

[此贴子已经被作者于2004-10-8 19:51:18编辑过]

aril1129 · 发表于 2004-10-12 15:46

真能防止粘贴重复吗？

但我打不开第1和第2个压缩文件，请帮忙。

guo · 发表于 2004-10-12 20:30

apolloh · 发表于 2004-10-14 09:41

以下是引用兰色幻想在2004-7-26 12:05:00的发言：

1、用数据有效性控制同表录入

第2条附件与讨论的问题不符

兰色幻想 · 发表于 2004-10-14 12:23

以下是引用apolloh在2004-10-14 9:41:00的发言：

第2条附件与讨论的问题不符

呵呵!可以啊,你不是看错文件了吧

apolloh · 发表于 2004-10-14 12:56

[em04]

小小小 · 发表于 2004-10-14 15:48

很好，又学了一招

denc · 发表于 2004-10-14 17:00

有收获!!!

71楼说的情况属实!!!!

兰色幻想 · 发表于 2004-10-14 17:18

以下是引用zhang81524在2004-10-8 19:42:00的发言：

楼主的第一个第二个文件是可以输入重复值的,

你输入1个数,任意的如1

在下一格CTRL+D,就输入了重复值,而且不会提示,如果你A1:A10,分别为1-10,在A1,双击单元格右下角,就自动将A1:A10全部填为1,这么多重复,也不会提示,

用数据有效性对复制粘贴无效，对填充也无效，所以才想起第三种方法：用VBA，如果有效性可以，也没必要去费功夫用VBA解决了

[此贴子已经被作者于2004-10-14 17:18:57编辑过]

yigepure · 发表于 2004-10-14 19:13

以下是引用兰色幻想在2004-9-3 11:18:00的发言： Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) On Error Resume Next B = Application.WorksheetFunction.CountIf(Sheets("sheet1").Range("A1:A100"), Target) A = Application.WorksheetFunction.CountIf(Sheets("sheet2").Range("A1:A100"), Target) If A + B > 1 Then MsgBox "出现重复数据" Target = "" End If End Sub

兰老师,这个ByVal Sh As Object 里的Sh一直都没有用到,要它干什么呀

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