第1个回答 2010-09-09
楼主, 你需要在SHEETS(2).CELLS(1,1).SELECT的前面加上下面这句
Sheets(2).Activate, 原因是你虽然选中了sheet2,但是没有告诉EXCEL你要把sheet2作为需要操作的表,它认不出你的ActiveSheet是什么.我也经常犯这种错误.
(同样地在SHEETS(1).RANGE(CELLS(1,1),CELLS(2,i)).SELECT 前也应该加Sheets(1).Activate这句.
第2个回答 2010-09-09
一句代码搞定
Sheets(1).Range(Cells(1, 1), Cells(2, i)).Copy Sheets(2).Cells(1, 1)
第3个回答 2010-09-09
试试看:
Dim i As Integer
i = 3
Sheets(1).Range(Cells(1, 1), Cells(2, i)).Select
Selection.Copy
Sheets(2).Activate
Cells(1, 1).Select
ActiveSheet.Paste
第4个回答 2010-09-09
看这段程序吧
Sub pp()
Dim i As Integer
i = 2
Worksheets(1).Activate
Range(Cells(1, 1), Cells(2, i)).Select
Selection.Copy
Worksheets(2).Activate
Range("A1").Select
ActiveSheet.Paste
End Sub