目前,要将一批电话输入进EXCEL,这批电话号码中存在着重复现象,如何在EXCEL中设立这样一个功能:每输入一个电话号码,EXCEL便会自动检查该列

chunyuan 2004-12-09 09:58:11
目前,要将一批电话输入进EXCEL,这批电话号码中存在着重复现象,如何在EXCEL中设立这样一个功能:每输入一个电话号码,EXCEL便会自动检查该列中是否已存在相同的号码,若有,便会出现提示,并中止输入.
...全文
962 7 打赏 收藏 转发到动态 举报
写回复
用AI写文章
7 条回复
切换为时间正序
请发表友善的回复…
发表回复
yigepure 2004-12-11
  • 打赏
  • 举报
回复
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
Dim I As Integer
'定义设置的列为A列
If Target.Column = 1 Then
For I = 2 To range("a1").end(xldown).row
If Target.Value <> "" And Target.Value = Cells(I, 1).Value Then
'设置提示信息
MsgBox "对不起,您输入的数据已经存在,请重新输入."
'取消刚才输入的数据
Target.Value = ""
'光标指向刚才重复输入的单元格
Target.Select
End If
Next I
End If
End Sub

这些可以对A列所有的内容进行操作.不管是不是粘贴的数据.

如果用数据有效性设置的,对于粘帖的数据没有用.切记.

蓝帆·雨轩 2004-12-10
  • 打赏
  • 举报
回复
另外:

在Excel中还可以以VBA来实现:

比如输入区域在A列A2:A1000,示例代码如下:
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
Dim I As Integer
'定义设置的列为A列
If Target.Column = 1 Then
'定义输入区域为A2:A1000
For I = 2 To 1000 Step 1
If Target.Value <> "" And Target.Value = Cells(I, 1).Value Then
'设置提示信息
MsgBox "对不起,您输入的数据已经存在,请重新输入."
'取消刚才输入的数据
Target.Value = ""
'光标指向刚才重复输入的单元格
Target.Select
End If
Next I
End If
End Sub
  • 打赏
  • 举报
回复
Q:如何让excel的数据不重复
用数据有效性可以作到:
如果您要检测的区域在第一列A1到A1000,将光标定位到A1单元格,按住shift键再点击一下A1000单元格,或者用其他方法选中A1:A1000这个区域即可,然后在菜单:数据→有效性里,在「设置」的「允许」框中选“自定义”,输入公式:"=COUNTIF(A$1:A$1000,A1)=1"注意是引号内的内容,不要把:带进去;然后在「出错警告」的「样式」框中选“中止”(缺省就是它);在「标题」框中输入“请注意数据重复”,在「出错信息」框中输入“请检查后重新输入”,按「确定」,当然这些信息你可以写自己希望提示的信息。

这样设置以后就可以开始输入数据了
蓝帆·雨轩 2004-12-10
  • 打赏
  • 举报
回复
另外:

Excel中的数据可以按照如下步骤导入到Access:

[以下步骤在Access中完成]
文件-->获取外部数据-->导入-->文件类型:Excel.找到您要导入的文件-->导入
在对话框中:选择工作表-->下一步-->选择是否包含标题行-->下一步-->新表-->下一步-->选择字段名/索引类型[如果您不允许某列不重复,可以选择索引为无重复]-->完成
蓝帆·雨轩 2004-12-10
  • 打赏
  • 举报
回复
您的功能在Excel里面是可以直接实现的,按照如下步骤:

假定您要检测的列为A列,输入区域在A2至A200:
选中单元格区域A2:A200,输入 B2:B2000,Enter;
菜单中,数据→有效性-->设置-->允许-->自定义
输入公式:=COUNTIF(A$1:A$1000,A1)=1
在"出错警告"的"样式"框中选"停止";
在"标题"框中输入"重复数据";
在"出错信息"框中输入"请检查后重新输入";
确定。

chunyuan 2004-12-10
  • 打赏
  • 举报
回复
请你详细讲讲在ACCESS中如何实现?另外,如何将EXCEL中的数据导入到ACCESS中?
VBCricket 2004-12-09
  • 打赏
  • 举报
回复
如果可以的话,不妨使用Access。这个可以实现。
如果一定要用Excel的话,那就无能为力了。

6,216

社区成员

发帖
与我相关
我的任务
社区描述
Microsoft Office应用
社区管理员
  • Microsoft Office应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧