VBA使用心得

今天，導師給了我三張表，A表包含兩列數(shù)據(jù)，博士的姓名，身份證。B表包含3列數(shù)據(jù)，碩士的姓名，身份證，導師名字，C表包含一列數(shù)據(jù)，博士和碩士名字。然后要求我根據(jù)C表中出現(xiàn)的名字，在C表第二列，輸入對應的身份證。剛開始，我想了一下，假如A表博士名字序列，B表碩士名字序列和C表中名字序列順序匹配的話，那么將是一件很容易的事。結(jié)果，悲催的很。C表中的名字是碩士和博士雜糅在一起的，完全沒有區(qū)分開！我試過很多方法，但是終究沒有作業(yè)，于是，我嘗試使用VBA。

首先，我先將A表和B表拼接起來！得到D表，兩列數(shù)據(jù)：姓名，身份證。

然后，將C表中的姓名，復制到D表第三列。

接著，我們按下alt + F11。由于，我是在Sheet1下操作。

如圖，選中Sheet1

?

我們敲入代碼，大家可以根據(jù)自己業(yè)務來修改對應的列！

Sub sample()Dim mycell As RangeDim myresutl As RangeFor n = 1 To 300 For m = 1 To 500If Cells(m, "A").Value = Cells(n, "C").Value ThenCells(n, "C").Value = Cells(m, "B").ValueEnd IfNextNext End Sub

其中n,m分別表D表第一列的長度和D表第三列的長度。

哈哈！最最后，大家按下“運行”按鈕就行啦！

另外，還有個小細節(jié)，如果，大家輸入的是身份證，可以由于位數(shù)太長，excel默認單元格的格式為常規(guī)，會導致舍棄最后三位！

解決方法為：將單元格的格式設置為文本即可！

祝大家工作順利！

2014-12-18

?

轉(zhuǎn)載于:https://www.cnblogs.com/longyunDream/p/4171633.html

總結(jié)

以上是生活随笔為你收集整理的数据录入工作，使用VBA的全部內(nèi)容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯，歡迎將生活随笔推薦給好友。