批量合并当前目录下xlsx工作簿的所有工作表到单个Excel

本资源是一份VBA宏脚本，用于在Microsoft Excel中合并当前目录下所有.xlsx格式的工作簿中的所有工作表到一个单一的工作簿中。以下是该脚本的重要知识点： 1. **VBA编程**: - 该脚本是用Visual Basic for Applications (VBA) 编写的，适用于Excel，它是一种强大的内部语言，允许用户扩展Excel的功能。 2. **目录遍历**: - `MyPath` 变量存储了活动工作簿所在目录，`Dir` 函数用于查找指定路径下的所有.xlsx文件名。 - 使用 `Do While` 循环遍历目录中的每个工作簿，直到没有更多文件。 3. **打开并操作工作簿**: - `Workbooks.Open` 方法用于打开其他工作簿，如果工作簿名称不等于当前活动工作簿，则执行合并操作。 - `Sheets.Count` 获取每个工作簿的工作表数量。 4. **数据复制和粘贴**: - 使用 `.UsedRange.Copy` 复制源工作表的数据到目标工作簿的第一个空行，`Cells(.Range("B65536").End(xlUp).Row+2,1)` 定位了粘贴的位置。 - `WbN` 变量存储合并后的工作簿列表，每添加一个工作簿，就用回车符(`Chr(13)`)分隔。 5. **关闭工作簿**: - 合并完成后，使用 `Wb.Close False` 关闭已处理的工作簿，`False` 参数表示不保存更改。 6. **最终输出和提示**: - 在循环结束后，显示一个消息框，显示合并的工作簿数量和列表，`vbInformation` 指定了消息类型，用户可以看到合并过程的结果。 通过执行这段代码，用户可以有效地将多个Excel工作簿中的工作表合并到一个文件中，且能保持原数据结构，限制在1048576行内。这对于数据分析、报告汇总等场景非常实用。然而，需要注意的是，如果文件数量巨大或者文件本身过大可能会影响性能。在实际应用中，根据具体需求对文件数量和行数进行适当的优化是必要的。