excel学习库

大家好，今天跟大家分享如何利用vba代码在Excel工作簿中将工作表标签进行倒序排列。

应用案例

在下图所示的Excel工作簿“工作簿1.xlsx”中有6张工作表，工作表标签从左到右依次为“6月”“5月”“4月”“3月”“2月”“1月”，接下来我们想将所有工作表标签顺序倒过来，使从左到右依次为“1月”“2月”“3月”“4月”“5月”“6月”。

操作步骤

1 打开Excel工作簿“工作簿1.xlsx”，在“开发工具”选项卡“代码”功能组中单击“Visual Basic”按钮。

2 在弹出的VBA编辑器窗口中，单击“插入”按钮，在弹出的菜单中选择“模板”选项，此时，窗口中会新增一个“工作簿1.xlsx-模块1（代码）”窗口。

3 在新增的“工作簿1.xlsx-模块1（代码）”窗口中输入如下代码：

Sub 工作表倒序排列()

Dim ws As Excel.Sheets, w As Object, i As Integer

Set ws = ActiveWorkbook.Sheets

For i = 1 To ws.Count

Set w = ws(ws.Count)

w.Move Before:=ws(i)

Next i

End Sub

4 单击窗口上方的“运行子过程/用户窗体”按钮（方向向右的绿色三角符号）运行代码。

5 此时，可见工作簿中原有6张工作表已全部进行了倒序排列，变成了我们想要的从左到右“1月”“2月”“3月”“4月”“5月”“6月”依次排列的顺序。