第1个回答 2013-07-08
确保真的是数字,比如 382,45等,没有34-1,35/44等之类的文本。飞雪飘 兄的代码可以进一步优化。
同时按Alt和F11进入宏界面,点菜单的插入,模块,粘贴如下代码:
Sub test()
Dim xNum() As Integer
ReDim xNum(Sheets.Count - 1)
Dim i As Integer
For i = 1 To Sheets.Count
xNum(i - 1) = --Sheets(i).Name
Next i
For i = 1 To Sheets.Count - 1
Sheets("" & WorksheetFunction.Small(xNum, i)).Move Before:=Sheets(i)
Next i
End Sub
在此界面直接按F5运行此宏,完成。本回答被网友采纳