书第194页程序运行一直提示下标越界是什么原因

liuqii

1. Sub 分类导入各个工作表()
   
2. Dim i As Long, a As String, rng As Range
   
3. i = 2
   
4. a = Cells(i, 1).Value
   
5. Do While a <> ""
   
6. Set rng = Worksheets(a).Range("A65536").End(xlUp).Offset(1, 0)
   
7. Cells(i, 1).Rows(1).Copy rng
   
8. i = i + 1
   
9. a = Cells(i, 1).Value
   
10. Loop
    
11. End Sub
    

复制代码

这一句一直提示下标越界，这是怎么回事
Set rng = Worksheets(a).Range("A65536").End(xlUp).Offset(1, 0)

ggsmart

可能是工作簿中不存在名称为变量a的工作表，检查一下