office_tools 版 (精华区)

发信人: shenxi (阳光), 信区: OA
标  题: 在EXCEL表中检查重复字段值的方法
发信站: 哈工大紫丁香 (2000年06月17日12:49:37 星期六), 站内信件

在大的数据文件入库前，往往要对数据文件做一些预处理工作，如人员信息在数据采集
阶段可按部门统计到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
　　然后按状态栏里的执行键，就开始检查了，相同的字段名会提示在屏幕上。

--
※ 来源:·哈工大紫丁香 bbs.hit.edu.cn·[FROM: 202.118.170.203]