Question

EXCEL里怎么让工作表按升降序来？

各位网友你们好，一个工作簿里有一百多个工作表，我想让工作表的顺序倒过来，举个例子：先前的顺序sheel1,sheel2,...sheel100,倒过来sheel100,sheel99....sheel1,怎么操作？

Answer 1

手工……开玩笑。
用宏编程，从1循环到99。先移sheet2到sheet1左边，再移sheet3到sheet2左边..，

Dim i As Integer
For i = 1 To 99
Sheets("Sheet" & i + 1).Move Before:=Sheets("Sheet" & i)
Next

追问

怎么操作？你说的太专业了看不明白，我相信你是有办法的

追答

编一个宏，代码我已经写给你了，粘贴进去，运行。

Sub movesheets()

Dim i As Integer

For i = 1 To Worksheets.Count - 1

    Sheets("Sheet" & i + 1).Move Before:=Sheets("Sheet" & i)

Next

End Sub

附件是如何插入和运行宏的全操作视频

追问

还是不行，是不是工作表命名有中文的原因？

追答

Sorry，我理解错误！以为你要按sheet名称排序。如果你只是要把工作表顺序倒过来，还是比较容易的：

Sub movesheets()

Dim i As Integer

For i = 1 To Worksheets.Count - 1

    Sheets(i + 1).Move Before:=Sheets(1)

Next

End Sub

 

Answer 2

将以下代码复制入工具--宏--visual Basic编辑器：
Public Sub 工作表倒序()
Dim i, iSheet As Integer
iSheet = Worksheets.Count
For i = 1 To iSheet - 1
Worksheets(iSheet).Move before:=Worksheets(i)
Next i
End Sub
运行宏“工作表倒序”，即可。

追问

还是不行，是不是工作表命名有中文的原因？

Answer 3

是这个不？

追问

你没有明白我的意思

追答

嘿嘿看懂了~这个我还真没办法，应该只能自己手动拖了。

Answer 4

没有批量的排序的，只能拖至或者右键点移动或者复制工作表的那个工具了