用VBA实现自动复制、粘贴
办公族
在对Office的实际使用中，复制、粘贴数据是经常碰到的一类操作，此类操作本身很简单，然而如果要你反复在不同的工作簿、工作表之间切换，并用鼠标拖动选择大量的数据源，也是一件很枯燥、麻烦的事情。那么，能否借助VBA的强大功能来实现不同工作簿之间数据的自动复制、粘贴呢？今天我们就一起来学习如何利用VBA实现这个功能。
问题分析
在VBA中实现自动复制、粘贴之前，我们先简单地回顾一下手工复制、粘贴的过程，这对于我们使用VBA是很有帮助的。
我们一般是先将源工作簿与目标工作簿全部打开，然后将源工作簿窗口激活，并让它最大化，选中需要的工作表，再选中目标区域，复制目标区域中的数据。接下来，将源工作簿最小化，最大化目标工作簿，选中要粘贴的工作表，将光标定位，粘贴数据。
通过对手工操作的分析，我们可以发现问题的关键是如何利用VBA语句实现窗口的最大化、最小化、复制、粘贴等基本操作。
解决问题
首先启动Excel，打开需要统计的工作簿。假设我们此时面对两个工作簿，在“考试成绩”工作簿中有“1班”这个工作表，在“成绩统计表”工作簿中有“理科”工作表，注意不能将源工作簿与目标工作簿混淆。
依次选择“视图→工具栏→控件工具箱”，选中命令按钮控件，在工作表中拖动出一个命令按钮，默认名称是“CommanButton1”。
双击这个新建的命令按钮，这样就可打开Visual Basic编辑器窗口，现在大家可在“Private Sub CommandButton1 Click()”与“End Sub”之间输入以下代码。
ActiveWindow.WindowState = xlMinimized
让当前活动窗口最小化
Windows("考试成绩.xls").Activate
激活考试成绩表工作簿
ActiveWindow.WindowState = xlMaximized
让考试成绩表最大化
Sheets("1班").Select
Range("A1:S60").Select
先选中“1班”工作表，再将其中a1:s60单元格选中
Selection.Copy
将选中区域的内容复制到剪贴板
ActiveWindow.WindowState = xlMinimized
当前窗口最小化
Windows("成绩统计表.xls").Activate
ActiveWindow.WindowState = xlMaximized
激活成绩统计表工作簿，并将它最大化
Sheets("理科").Select
选中理科工作表
ActiveWindow.ScrollRow = 1
Range("A1").Select
选中a1单元格
ActiveSheet.Paste
粘贴剪贴板中的内容
代码输入完毕以后，首先在Visual Basic编辑器窗口单击工具栏中的三角形运行按钮，确认程序可以运行通过即可。接着按“Alt+F11“快捷键返回Excel主窗口，单击按钮，就会自动实现数据的复制粘贴。
通过对以上内容的学习，相信你对VBA已有了较深的了解。使用VBA并不是仅仅用来编写复杂的程序代码，我们还可以将一些常见的操作用VBA来实现，例如复制、粘贴、移动、删除等，只要我们使用得当，一定能够充分发挥VBA的作用，达到事半功倍的效果。