在本文中，我们将通过Microsoft Excel 2010中的VBA学习升序排序表。在处理多张纸时，您发现纸的排列不正确。您想快速创建一个宏，该宏将在运行宏时自动以升序对工作表进行排序。

要按升序对工作表进行排序，请遵循以下提到的步骤：

img1

按Alt + F11启动VB编辑器屏幕从“插入”菜单中，选择“模块”。

  • 在“模块”中，键入以下代码行：

img2

子SortingSheetsInAscending（）

如果ActiveWorkbook没有内容，则将Dim作为整数，n作为Integer，将SheetsCounter作为整数，如果ActiveWorkbook.ProtectStructure则退出Sub如果MsgBox ActiveWorkbook.Name＆“受到保护”，vbCritical，“排序表”

如果MsgBox（“ Sort Sheets？”，vbQuestion + vbYesNo）<> vbYes退出子结尾，然后退出子Application.EnableCancelKey = xlDisabled SheetsCounter = Sheets.Count for i = 2 To SheetsCounter For n = 1 To SheetsCounter If Sheets（n） .Name> Sheets（i）。先命名Sheets（i）。在以下位置移动：= Sheets（n）

如果下一个n下一个i结束Sub

  • 通过按F5键从模块运行宏。

img3

或者，按Alt + F11并返回Excel，将宏作为按钮或图标分配给任何Excel对象，或者按Alt + F8选择宏，然后单击“运行”。

您会发现工作表按字母数字顺序排列。

img4