Excel VBA中的“复制”和“粘帖”（Excel代码集团）

问题：在Excel中，要用VBA把一个单元格（区域）复制粘贴到指定位置，可以使用录制宏的功能，自动生成的代码如下：

（假设数据源在A1:C10，指定位置是E1:G10）

?

1 2 3 4 5 6

Sub 录制宏()     Range("A1:C10").Select     Selection.Copy     Range("E1").Select     ActiveSheet.Paste End Sub

代码简化后如下：

?

1 2 3

Sub 简化代码()     Range("A1:C10").Copy Destination:=Range("E1") End Sub

还可以不使用复制功能：

?

1 2 3 4

Sub 宏1()     Range("E1:G10") = Range("A1:C10").Value '相当于粘贴值     Range("E1:G10") = Range("A1:C10").Formula '相当于粘贴公式 End Sub