提

示

上述的两个宏使用的前提是必须有一个活动的工作表，而且这个操作都将发生在

这个工作表中。

2

．不同工作表单元格复制

如果需要把某个单元格区域复制到另一个工作表中或者工作簿中，

只需在代码中指定该工作

簿的工作表中的单元格引用即可。

例如，从

Sheet1

工作表中将一个单击格区域复制到

Sheet2

工作表中。对该工作表进行引用

后，则不管该工作表是否是活动的，这个过程都会运行。代码如下：

Sub

复制工作表

()

Sheet1.Range("A1").Copy Sheet2.Range("A1")

End Sub

还可以使用对象来代替单元格的区域，代码如下：

Private Sub CommandButton1_Click()

Dim r1 As Range, r2 As Range

'

声明对象

'

引用