Excel批量颠倒工作表的顺序！

Excel情报局

OFFICE知识共享青年

用1%的Excel基础搞定99%的日常工作

做一个有文艺范的Excel公众号

Excel是门手艺 玩转需要勇气

表哥带你玩转Excel

有温度的公众号

自我提升也是一种修养

2020年9月6日

庚子年七月十九

周日

要熬不住了，
想换个城市，換个圈子，換个不一样的生活，
可人一旦长大了，顾忌东西太多了，
开始我不相信，现在我深有体会。

Excel如何批量颠倒工作表的顺序？如下图，Excel工作簿中如何将工作表名称的顺序由“A部门”、“B部门”、“C部门”、“D部门”调整为“D部门”、“C部门”、“B部门”、“A部门”。

如果工作表数量少的情况下，我们可以选择手动调整工作表顺序。

Excel手动调整工作表顺序的方法。

鼠标单击要移动的Excel工作表表名，在工作表名上按住鼠标的左键不放，看到出现一个向下的实心黑三角，左右拖动来实现工作表位置的移动。

用VBA代码的方法批量一次性颠倒工作表顺序，效果如下面所示。 

实现效果的VBA代码如下：

Sub sheet_transpose()

On Error Resume Next

For i = 1 To Worksheets.Count - 1

Sheets(1).Move after:=Sheets(Worksheets.Count - i + 1)

Next

End Sub

快捷键Alt+F11建，调出VBA窗口，复制粘贴上面的代码，最后点击运行按钮即可。

相互尊重，抱团成长。

隔三差五学个Excel小知识，忘记一天工作的烦恼，只要坚持，最后可能不会得到最好的结果，但一定不会收获最坏的结果。赖床舒服，但可能迟到；熬夜很爽，但伤身体。自律或许并不容易，但你越懒惰越放纵自己，就越可能错过美好的人和事。如果生活注定充满艰辛，那就学着做拯救自己的那个英雄。趁年轻不妥协，向前奔跑！从今天开始改变，对平庸生活奋力回击。