在Excel中錄入數(shù)據(jù)有很多的技巧，合理地運(yùn)用它們可以提高我們的工作效率。本文另辟蹊徑，向大家介紹一下如何利用VBA代碼實現(xiàn)數(shù)據(jù)的快速錄入。請看下面的例子。

　　假設(shè)在填寫的某列數(shù)據(jù)中，員工所屬的部門有“一車間”、“二車間”、“銷售部”等等，如果我們能用數(shù)字代替這些文字內(nèi)容輸入的話（如圖），必將大大提高我們錄入的效率。

　　

　　

　　根據(jù)這個思路，我們在該工作表的Change事件中輸入了如下的代碼：

　　Private Sub Workheet_Change(ByVal Target As Range)

　　If Target.Column = 2 Then ’只在第二列實現(xiàn)該功能

　　If Target.Value = 1 Then

　　Target.Value = "一車間"

　　Else

　　If Target.Value = 2 Then

　　Target.Value = "二車間"

　　Else

　　If Target.Value = 3 Then

　　Target.Value = "銷售部"

　　End If

　　End If

　　End If

　　End If

　　End Sub

　　返回到Excel窗口，這時輸入相應(yīng)的數(shù)字就可以被替換成指定的文本內(nèi)容了。可能有的朋友會想，先輸入這些數(shù)據(jù)，然后用查找替換的方法不也行嗎。然而我們會發(fā)現(xiàn)，用查找替換操作容易將其他列中的這些數(shù)據(jù)錯誤地替換掉，如果每個數(shù)字經(jīng)確認(rèn)后再替換就顯得比較煩瑣了，而用代碼就不會出現(xiàn)這些問題，加載之后就可以一勞永逸了。

　　提示：代碼中“Target．Column ＝ 2”用于指定只能在第二列輸入這些數(shù)據(jù)時才有效（如果不指定對整個工作表都有效），這樣才能保證在其他列輸入這些數(shù)據(jù)時不會受到影響。類似地，我們還可以用代碼來控制在其他列中快速地錄入文本。該技巧適合事先加載到表格中或編制成程序讓不熟悉Excel的人員使用，這樣我們將員工填寫的表格（在相應(yīng)的編號內(nèi)容中打勾或直接填寫指定內(nèi)容的編號）收上來之后就可以快速地采集數(shù)據(jù)了。