还是下标越界的问题！

很感谢你耐心细致的解释，我明白了之前那个下标越界的例子，可是下面这段也是报错下标越界的，这里又是什么导致下标越界的？
Sub sthadd()
Dim i As Integer, sht As Worksheet
i = 2
Set sth = Worksheets("成绩表")
Do While sht.Cells(i, "C") <> ""
Worksheets.Add after:=Worksheets(Worksheets.Count)
ActiveSheet.Name = sht.Cells(i, "C").Value
i = i + 1
Loop
End Sub

你这个下标越界，是这一句么？
Set sth = Worksheets("成绩表")

如果是，那么是因为你的表格里面没有“成绩表”这张表。。
没有的话，那肯定出错。。

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息