今天演示一个简单的例子，也是经常看到网友问的问题，将一个工作表中的数据复制到另一个工作表。

如下图1所示，有3个工作表，需要将工作表“新数据#1”和“新数据#2”中的数据复制到工作表“汇总”中。其中，在“汇总”工作表中已经有部分数据。

图1

工作表“新数据#1”中的数据如下图2所示。

图2

工作表“新数据#2”中的数据如下图3所示。

图3

按Alt+F11组合键，打开VBE，插入一个标准模块，输入如下代码：

Sub Copy_Data()
   Sheets("新数据#1").Select
   Range("A4").Select
   Range(Selection, Selection.End(xlDown)).Select
   Range(Selection, Selection.End(xlToRight)).Select
   Selection.Copy
   Sheets("汇总").Select
   Range("A3").Select
   Selection.End(xlDown).Select
   ActiveCell.Offset(1, 0).Range("A1").Select
   ActiveSheet.Paste
   Sheets("新数据#2").Select
   Range("A4").Select
   Range(Selection, Selection.End(xlDown)).Select
   Range(Selection, Selection.End(xlToRight)).Select
   Application.CutCopyMode = False
   Selection.Copy
   Sheets("汇总").Select
   Range("A3").Select
   Selection.End(xlDown).Select