批量合并Excel工作簿到单一Sheet：高效整理与统计

在Excel中，合并多个工作簿到一个sheet是一项常见的操作，尤其是在数据整理和分析时。本篇教程将指导你如何使用宏代码实现这一功能，确保所有表格的表头都得以保留。 首先，你需要在一个指定的文件夹中收集你要合并的Excel文件，这一步是为了便于管理文件并确保所有操作在同一位置进行。准备工作完成后，创建一个新的Excel文件作为目标文件，以便接收合并后的数据。 接下来，通过点击新文件的Sheet1表的右键，进入代码视图。在这里，你可以看到一个名为"合并当前目录下所有工作簿的全部工作表"的宏，该宏使用VBA（Visual Basic for Applications）脚本来完成任务。这段代码分为几个关键步骤： 1. 定义变量：`MyPath`存储当前工作簿路径，`MyName`用于遍历文件夹中的Excel文件名，`AWbName`保存当前活动工作簿的名称，`Wb`是工作簿对象，`Num`用于计数合并的工作簿数量，`BOX`是一个字符串变量。 2. 使用`Dir`函数循环遍历文件夹中的所有`.xls`文件，排除当前活动工作簿。对于每个找到的文件，打开它，获取其工作表的数量，并将文件名的扩展名去除后写入目标表的第一列。 3. 使用嵌套循环，将每个工作簿的工作表复制到目标工作簿的Sheet1的最后一行。`Wb.Sheets(G).UsedRange.Copy`用于复制源工作表的数据，`Cells(.Range("B65536").End(xlUp).Row+1,1)`确定目标位置。 4. 在复制完所有工作表后，关闭源工作簿，同时在`WbN`中添加换行符和工作簿名。 5. 当所有文件处理完毕后，显示一个消息框，告知用户合并的工作簿数量和结果。 6. 最后，设置`Application.ScreenUpdating`为`True`，恢复屏幕更新，用户可以看到处理过程的实时反馈。 执行这段宏后，所有的数据就会被合并到新Excel文件的Sheet1中，你可以根据需要进行进一步的数据整理、排序、筛选或数据分析。这种方法适用于处理相对较小的数据集，如果文件较多，可能需要稍加等待。运行完毕后，记得检查Sheet1的输出，开始你的数据处理工作。