excel vba中 我想要復制壹個區域的內容到另外壹張表上，但是復制區域的列數是壹個變量 ，請問該怎麽寫程序

Dim i As Integer

i = 2

Range(Cells(1, 1), Cells(2, i)).Copy Sheets(2).Range("a1")

如果要打開Sheets(2)工作表，在最後加上語句：Sheets(2).Activate

用以下語句也可以：

Range("a1").Resize(2, i).Copy Sheets(2).Range("a1")

說明：

Range對象的Resize屬性是用於調整指定區域的大小，並返回調整後的單元格區域。

語法：Resize(RowSize,ColumnSize)

其中RowSize參數和ColumnSize參數分別代表調整後的單元格區域的行數和列數