高手教你如何利用VBA代碼實現快速錄入Excel數據

　　在一個列數很多的Excel表格中輸入數據時，來回拉動滾動條，既麻煩又容易錯行，非常不方便。那如何在Excel中快速錄入數據呢?其實,在Excel中錄入數據有很多的技巧，合理地運用它們可以提高我們的工作效率。本文另辟蹊徑，向大家介紹一下如何利用VBA代碼實現數據的快速錄入。請看下面的例子。

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

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

　　Private Sub Workheet_Change(ByVal Target As Range)

　　If Target.Column = 2 Then ’只在第二列實現該功能

　　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窗口，這時輸入相應的數字就可以被替換成指定的文本內容了。可能有的朋友會想，先輸入這些數據，然後用查找替換的方法不也行嗎。然而我們會發現，用查找替換操作容易將其他列中的這些數據錯誤地替換掉，如果每個數字經確認後再替換就顯得比較煩瑣了，而用代碼就不會出現這些問題，加載之後就可以一勞永逸了。

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