使用VBA，轻松拆分 Excel 大数据

工作中拿到一个大表格 Excel 文件，要求每 XX 行拆分为一个小的 Excel 文件进行分发。

方法很多，最简单还是用 Excel 自带的VBA模块来解决！

示例文件 20.xlsx 如下，存有20条ID记录：

按 alt+F11，切换到VBA界面：

双击示例文件 20.xlsx 的sheet1，输入以下代码：

注意 Each_Rows = 2 'num 指定的是计划每个文件存放的记录数，

此处为2，即20个记录，拆为10个文件，每个文件存放2条；

按 F5 执行代码：

在20.xlsx 文件所在文件夹即可看到已经拆分好的文件：

任意打开一个，

正是我们想要的结果，标题行也保留了！