在VBA中使用CurrentRegion属性

Question

我想编写一个简单的VBA宏来复制与Sheet1中活动单元格周围的单元格块对应的范围内的数据，并将其粘贴到Sheet2中。 （最好与Sheet1中的地址相同）。

我写的代码是：

Option Explicit
Dim Cello As Range

Sub CopyCurrentRegion2()
    Set Cello = Worksheets("Sheet1").Range(ActiveCell.Address)
    Cello.CurrentRegion.Copy Sheets("Sheet2").Range(Cello)
End Sub

请更正此编程。它给出了运行时错误：1004。

Answer 1

考虑：

Sub CopyStuff()
    With ActiveCell.CurrentRegion
        .Copy Sheets("Sheet2").Range(.Address)
    End With
End Sub