14、利用 VBA 子过程对 Excel 工作表排序

利用 VBA 子过程对 Excel 工作表排序

1. 前期思考与任务规划

在开始编写 VBA 代码对 Excel 工作表进行排序之前，我们需要思考一些关键问题：
- 开启宏录制器，拖动工作表到新位置，查看该操作生成的代码。
- 右键单击工作表标签选择“移动或复制”，录制此操作的宏，对比其生成的代码与手动移动工作表生成的代码是否不同。
- 要知道当前活动工作簿中工作表的数量，可通过 VBA 获取该信息。
- 需获取所有工作表的名称，同样可借助 VBA 实现。
- Excel 有对工作表单元格数据进行排序的命令，考虑能否将工作表名称转移到某个区域并使用该排序功能，或者 VBA 是否有可利用的排序方法。
- 为了能在其他工作簿中测试代码，需将宏存储在个人宏工作簿中。同时，创建一个用于测试的虚拟工作簿。

为了完成对工作表排序的任务，VBA 需要执行以下步骤：
1. 识别活动工作簿。
2. 获取工作簿中所有工作表的名称列表。
3. 统计工作表的数量。
4. 对工作表名称进行排序。
5. 重新排列工作表，使其与排序后的工作表名称相对应。

2. 初步录制宏

宏录制器是编写 VBA 程序的好帮手。我们可以按以下步骤操作：
1. 开启宏录制器，并指定将宏放置在个人宏工作簿中。
2. 开始录制宏后，将 Sheet3 拖动到 Sheet1 之前，然后停止录制。
录制的宏代码如下：

Sub Macro1()
    Sheets("Sheet3").Select