数据录入工作，使用VBA
浏览数：21 /
时间：2015年06月08日
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
郑重声明：本站内容如果来自互联网及其他传播媒体，其版权均属原媒体及文章作者所有。转载目的在于传递更多信息及用于网络分享，并不代表本站赞同其观点和对其真实性负责，也不构成任何其他建议。
