在大的數(shù)據(jù)文件入庫前，往往要對數(shù)據(jù)文件做一些預(yù)處理工作，如人員信息在數(shù)據(jù)采集階段可按部門統(tǒng)計到EXCEL表中，最后集中導(dǎo)入大型數(shù)據(jù)庫（如ORACLE等），在這個過程中，因數(shù)據(jù)的性問題導(dǎo)致的錯誤往往使你累得頭昏腦漲：如人員信息中，稍不注意就會將身份證號重復(fù)輸入，因為在此表中身份證號一般用作主鍵，Examda提示有重復(fù)數(shù)據(jù)就不能入庫，這種錯誤相當(dāng)隱蔽，不容易檢查。為此筆者編制了一段程序，可以自動檢測包含相同字段值的記錄，即用Excel的宏調(diào)用實現(xiàn)此功能，具體方法如下：
打開Excel文件，選擇“工具”，宏，錄制新宏，確定；然后點擊宏，出現(xiàn)宏名為“宏1”，點擊編輯，將VB SCRIPT 輸入：
Sub 宏1()
'
' 宏1 宏表
' 記錄的宏1999-1-23
' 定義兩個變量
Dim a, b
'EXCEL文件名字為：renyuanxx.xls
Sheets("renyuanxx").Select
'假設(shè)記錄數(shù)為10000
For I = 1 To 10000
' 假設(shè)要檢查的列為第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
然后按狀態(tài)欄里的執(zhí)行鍵，就開始檢查了，相同的字段名會提示在屏幕上。
打開Excel文件，選擇“工具”，宏，錄制新宏，確定；然后點擊宏，出現(xiàn)宏名為“宏1”，點擊編輯，將VB SCRIPT 輸入：
Sub 宏1()
'
' 宏1 宏表
' 記錄的宏1999-1-23
' 定義兩個變量
Dim a, b
'EXCEL文件名字為：renyuanxx.xls
Sheets("renyuanxx").Select
'假設(shè)記錄數(shù)為10000
For I = 1 To 10000
' 假設(shè)要檢查的列為第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
然后按狀態(tài)欄里的執(zhí)行鍵，就開始檢查了，相同的字段名會提示在屏幕上。