Question

EXCEL VBA宏 关于Range的问题？

为什么 Sheets("处理中介表").Range("A1:B2").Copy 可以复制成功 而 Sheets("处理中介表").Range(Cells(1, 1), Cells(2, 2)).Copy 就说对象定义错误？

以下是帮助里的例程：
此示例将 Sheet1 中单元格区域 A1:C5 上的字体样式设置为斜体。此示例使用 Range 属性的语法 2。
Visual Basic for ApplicationsWorksheets("Sheet1").Range(Cells(1, 1), Cells(5, 3)). _
Font.Italic = True
-------------
按这例程，Range(Cells(1, 1), Cells(2, 2))应该返回一个Range对象，再使用Range对象的Copy 方法应该是对的啊～
如果把上面的Sheets("处理中介表")换成ActiveSheet就能用了，可是这样严重影响运行速度，Sheets("处理中介表")得到的对象类型不是和ActiveSheet一样的吗？
Range("A1:B2")和Range(Cells(1, 1), Cells(2, 2))的效果不是一样的吗？又有哪里不同哦？

谁给解释一下为什么会这样？

Answer 1

出现应用程序定义或对象定义错误，是因为你的“处理中介表”没有获取到焦点（即没有激活）。
简单改下即可使用（记得处理完后把焦点改回去哦~）：
Sheets("处理中介表").Select
Range(Cells(1, 1), Cells(2, 2)).Copy

Answer 2

Range("A1:B2")和Range(Cells(1, 1), Cells(2, 2))都可以。
只是Sheets("处理中介表")要你的表在激活状态下才可以

Answer 3

cells前面要加sheet名称。

Sheets("sheet1").Range("A1:B2").Copy
Range(Sheets("sheet1").Cells(1, 1),Sheets("sheet1").Cells(2, 2)).Copy

Answer 4

sheets 和ActiveSheet还是有区别的，要不设置这俩玩意干啥，一个就OK了