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參數分別代表調整後的單元格區域的行數和列數