数据录入工作，使用VBA

VBA使用心得

今天，导师给了我三张表，A表包含两列数据，博士的姓名，身份证。B表包含3列数据，硕士的姓名，身份证，导师名字，C表包含一列数据，博士和硕士名字。然后要求我根据C表中出现的名字，在C表第二列，输入对应的身份证。刚开始，我想了一下，假如A表博士名字序列，B表硕士名字序列和C表中名字序列顺序匹配的话，那么将是一件很容易的事。结果，悲催的很。C表中的名字是硕士和博士杂糅在一起的，完全没有区分开！我试过很多方法，但是终究没有作业，于是，我尝试使用VBA。

首先，我先将A表和B表拼接起来！得到D表，两列数据：姓名，身份证。

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

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

如图，选中Sheet1

 

我们敲入代码，大家可以根据自己业务来修改对应的列！

Sub sample()
   Dim mycell As Range
   Dim myresutl As Range
   For n = 1 To 300   
   For m = 1 To 500
   If Cells(m, "A").Value = Cells(n, "C").Value Then
   Cells(n, "C").Value = Cells(m, "B").Value
   
   End If
   Next
   Next
End Sub

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

哈哈！最最后，大家按下“运行”按钮就行啦！

另外，还有个小细节，如果，大家输入的是身份证，可以由于位数太长，excel默认单元格的格式为常规，会导致舍弃最后三位！

解决方法为：将单元格的格式设置为文本即可！

祝大家工作顺利！

2014-12-18

 

转载于:https://www.cnblogs.com/longyunDream/p/4171633.html