小编use*_*861的帖子

我试图将各种工作表中的数据范围复制到一个工作表中.我写了这段代码:

Sub sub1()
For i = 1 To 3
Sheets(i).Select
Range(Cells(1, 1), Cells(1, 1).End(xlDown)).Select 'line4
Selection.Copy
Sheets(6).Select
Cells(1, i).Select
Selection.PasteSpecial xlPasteValues
Next i
End sub

我得到一个运行时错误'1004'在第4行上选择Range类失败的方法4.如何修复它？