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

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

　　根據(jù)這個(gè)思路，我們?cè)谠摴ぷ鞅淼腃hange事件中輸入了如下的代碼：

　　Private Sub Workheet_Change(ByVal Target As Range)

　　If Target.Column = 2 Then ’只在第二列實(shí)現(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窗口，這時(shí)輸入相應(yīng)的數(shù)字就可以被替換成指定的文本內(nèi)容了。可能有的朋友會(huì)想，先輸入這些數(shù)據(jù)，然后用查找替換的方法不也行嗎。然而我們會(huì)發(fā)現(xiàn)，用查找替換操作容易將其他列中的這些數(shù)據(jù)錯(cuò)誤地替換掉，如果每個(gè)數(shù)字經(jīng)確認(rèn)后再替換就顯得比較煩瑣了，而用代碼就不會(huì)出現(xiàn)這些問(wèn)題，加載之后就可以一勞永逸了。

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