UC知道excel多个工作表排序
来源：百度知道 编辑：UC知道 时间：2024/07/04 15:20:36
excel有100个工作表sheet1-sheet100，需要按升序排列，编了一段代码如下：
Sub paixu()
For i = 1 To Sheets.Count
For j = i To Sheets.Count
If Sheets(i).Name > Sheets(j).Name Then
Sheets(j).Move Before:=Sheets(i)
End If
Next j
Next i
End Sub
但是运行的结果是1 10 100 11 12 ...19 2 20 21....
高手指点下错在哪里啊
表名是:超5型仪器（1）.....超5型仪器（100）
还是提示下表越界
Sub paixu()
For i = 1 To Sheets.Count
For j = i To Sheets.Count
If Sheets(i).Name > Sheets(j).Name Then
Sheets(j).Move Before:=Sheets(i)
End If
Next j
Next i
End Sub
但是运行的结果是1 10 100 11 12 ...19 2 20 21....
高手指点下错在哪里啊
表名是:超5型仪器（1）.....超5型仪器（100）
还是提示下表越界
Sub paixu()
Dim i%
For i = 1 To Worksheets.Count
Sheets("sheet" & i).Move Before:=Sheets(i)
Next
End Sub
表名是:超5型仪器（1）.....超5型仪器（100）
代码为
Sub paixu()
Dim i%
For i = 1 To Worksheets.Count
Sheets("超5型仪器（" & i & "）").Move Before:=Sheets(i)
Next
End Sub
你的邮箱，发个；例子给你