检查重复字段值的方法
时间：2005-02-11 11:52 来源：未知 作者：未知 阅读：次
在大的数据文件入库前，往往要对数据文件做一些预处理工作，如人员信息在数据采集阶段可按部门统计到EXCEL表中，最后集中导入大型数据库（如ORACLE等），在这个过程中，因数据的唯一性问题导致的错误往往使你累得头昏脑涨：如人员信息中，稍不注意就会将身份证号重复输入，因为在此表中身份证号一般用作主键，有重复数据就不能入库，这种错误相当隐蔽，不容易检查。为此笔者编制了一段程序，可以自动检测包含相同字段值的记录，即用Excel的宏调用实现此功能，具体方法如下：
打开Excel文件，选择“工具”，宏，录制新宏，确定；然后点击宏，出现宏名为“宏1”，点击编辑，将VB SCRIPT 输入：
Sub 宏1()
'
' 宏1 宏表
' 记录的宏1999-1-23
' 定义两个变量
Dim a, b
'EXCEL文件名字为：renyuanxx.xls
Sheets("renyuanxx").Select
'假设记录数为10000
For I = 1 To 10000
' 假设要检查的列为第8列
a = Cells(I + 1, 8)
For j = I + 1 To 10000
b = Cells(j + 1, 8)
If b = a Then
'如果有相同的值就打印输出
MsgBox b
End If
Next j
Next I
End Sub
然后按状态栏里的执行键，就开始检查了，相同的字段名会提示在屏幕上。
打开Excel文件，选择“工具”，宏，录制新宏，确定；然后点击宏，出现宏名为“宏1”，点击编辑，将VB SCRIPT 输入：
Sub 宏1()
'
' 宏1 宏表
' 记录的宏1999-1-23
' 定义两个变量
Dim a, b
'EXCEL文件名字为：renyuanxx.xls
Sheets("renyuanxx").Select
'假设记录数为10000
For I = 1 To 10000
' 假设要检查的列为第8列
a = Cells(I + 1, 8)
For j = I + 1 To 10000
b = Cells(j + 1, 8)
If b = a Then
'如果有相同的值就打印输出
MsgBox b
End If
Next j
Next I
End Sub
然后按状态栏里的执行键，就开始检查了，相同的字段名会提示在屏幕上。
(责任编辑：admin)
顶一下
(0)
0%
踩一下
(0)
0%
最新内容