数据录入工作，使用VBA

最新推荐文章于 2024-07-03 15:47:57 发布

转载最新推荐文章于 2024-07-03 15:47:57 发布 · 420 阅读

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/longyunDream/p/4171633.html

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