在使用Range方法的时候报错，求个详细解答

ALonelyRanger

1. 
   

复制代码

Sub test()
Dim i As Byte
Dim x, y As Long

For i = 1 To Worksheets.Count
    x = Sheets(i).UsedRange.Rows.Count
    y = Sheets(i).UsedRange.Columns.Count
    Sheets(i).Range(Cells(2, 1), Cells(x, y)).Select
Next
End Sub




过程很简单，就是想把工作簿中的所有工作表除第一行标题的内容选中、复制、粘贴。
但在 “Sheets(i).Range(Cells(2, 1), Cells(x, y)).Select” 这一句上报错了，是什么原因呢？
请大神指点一下呀。

iwangyi

SheetS(i)未被激活

jnsxmt

1. Sheets(i).Range(Cells(2, 1), Cells(x, y)).Select
   
2. 拆成二句
   
3. sheets(i).select
   
4. Range(Cells(2, 1), Cells(x, y)).Select
   

复制代码

iwangyi

在For循环下加一句
Sheet(i).SeleCt
在ceLLs前加Sheets(i).

iwangyi

Cells()前面末写表名会默认放代码的那个表。

iwangyi

己调试，上面两个地方改了后没问题，选定区域为非表头数据区域。

ALonelyRanger

iwangyi 发表于 2018-8-20 17:32
己调试，上面两个地方改了后没问题，选定区域为非表头数据区域。

谢谢大佬！~看来这VBA太多细节要研究了

iwangyi

不客气。共同学习。

abc123281

上传个附件   可能会得到很好的答案