关于<Excel VBA实战技巧精粹>技巧32的问题

beijiren368

大家好：       <Excel VBA实战技巧精粹>第二篇，第三章 《工作表和工作簿》里的技巧32，按数字排序，一运行，就说下表越界，研究了下发现是在进行排序语句的过程中，当循环到i=3的时候报错，大家帮忙看看讲解下是什么原因，谢谢了！
  Sub SortByName()     Dim i As Integer, n As Integer
     Dim arr1() As Integer, arr2() As Integer
     n = Sheets.Count
     ReDim arr1(1 To n)
     ReDim arr2(1 To n)
     For i = 1 To n
         arr1(i) = Val(Mid(Sheets(i).Name, 6))
     Next
     For i = 1 To n
          arr2(i) = Application.WorksheetFunction.Large(arr1, i)
     Next
     For i = 1 To n
         Sheets("Sheet" & arr2(i)).Move Before:=Sheets(1)
     Next
End Sub

www.bccpw.com

技巧真的很多，需要天天来论坛学习下

crb2647

对VBA还不是很懂