時(shí)間：2005-02-11 11:52 來源：未知 作者：未知 閱讀：次

在大的數(shù)據(jù)文件入庫前，往往要對(duì)數(shù)據(jù)文件做一些預(yù)處理工作，如人員信息在數(shù)據(jù)采集階段可按部門統(tǒng)計(jì)到EXCEL表中，最后集中導(dǎo)入大型數(shù)據(jù)庫（如ORACLE等），在這個(gè)過程中，因數(shù)據(jù)的唯一性問題導(dǎo)致的錯(cuò)誤往往使你累得頭昏腦漲：如人員信息中，稍不注意就會(huì)將身份證號(hào)重復(fù)輸入，因?yàn)樵诖吮碇猩矸葑C號(hào)一般用作主鍵，有重復(fù)數(shù)據(jù)就不能入庫，這種錯(cuò)誤相當(dāng)隱蔽，不容易檢查。為此筆者編制了一段程序，可以自動(dòng)檢測(cè)包含相同字段值的記錄，即用Excel的宏調(diào)用實(shí)現(xiàn)此功能，具體方法如下：
    打開Excel文件，選擇“工具”，宏，錄制新宏，確定；然后點(diǎn)擊宏，出現(xiàn)宏名為“宏1”，點(diǎn)擊編輯，將VB SCRIPT 輸入：

Sub 宏1()
'
' 宏1 宏表
' 記錄的宏1999-1-23
' 定義兩個(gè)變量
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í)行鍵，就開始檢查了，相同的字段名會(huì)提示在屏幕上。

(責(zé)任編輯：admin)

上一篇：Excel中 BASIC 程序的運(yùn)行
下一篇：ActiveX在Excel中的運(yùn)用

• ·Excel VBA編輯語句集300條
• ·【技巧】excel文件破解密碼
• ·【Excel VBA】FileDialog 用法之 打開
• ·VBA修改ACCESS及EXCEL安全設(shè)置(源碼)
• ·實(shí)用的GET函數(shù)
• ·日期改為顯示星期幾的自定義涵數(shù)
• ·VBA在Excel 2000中的應(yīng)用一例
• ·ActiveX在Excel中的運(yùn)用
• ·檢查重復(fù)字段值的方法
• ·Excel中 BASIC 程序的運(yùn)行
• ·Excel XP中圖片的智能刷新
• ·Excel成績分析處理程序
• ·創(chuàng)建自己的EXCEL函數(shù)
• ·用Excel制作公交向?qū)?/a>
• ·使用ADO獲取外部數(shù)據(jù)
• ·Excel中如何編程判斷字符顏色