如何把一个Excel表拆分成多个文件，保留表头

路再见 · 发表于 2019-4-20 01:21

具体就是，我手上有一个Excel表，名字是“主文件.xls” 360截图20190420010430218.jpg

里面是这样的：

可以看到range("A1:D2")是一个表头，下面是依照日期为序列，排列而成的新闻标题串联单。现在的任务是，按照日期，把这个庞大的串联单分割，然后生成多个新的Excel文件，文件存入表头和当天的新闻标题内容，文件名以当天的日期命名。如下图所示：
360截图20190420011319842.jpg

其中两个新生成的文件，内容如下：

360截图20190420011515572.jpg

主文件的表头要保留，但是，其余的内容要按照日期，分配到新文件里面，新文件的名字也要按照当天的日期命名。如果用手动的方法去做，太麻烦了。vba如何实现这些功能？

路再见 · 发表于 2019-4-20 01:24

我把素材发上来，供参考，手动分割，做了5个新文件，感觉太麻烦，接下来还有很多待分割的。

材料.rar (41.23 KB, 下载次数: 12)

路再见 · 发表于 2019-4-20 01:29

再发一次。

changhong8 · 发表于 2019-4-20 07:51

按列拆分，不难，手工活

路再见 · 发表于 2019-4-20 10:41

changhong8 发表于 2019-4-20 07:51
按列拆分，不难，手工活

手工麻烦，或者不用vba，用什么方法可以拆分？

朱荣兴 · 发表于 2019-4-20 10:46

提示: 作者被禁止或删除内容自动屏蔽

朱荣兴 · 发表于 2019-4-20 11:26

提示: 作者被禁止或删除内容自动屏蔽

路再见 · 发表于 2019-4-20 12:43

本帖最后由路再见于 2019-4-20 12:55 编辑

朱荣兴发表于 2019-4-20 11:26
Sub test() '''QQ:705664849
With ThisWorkbook.Worksheets("1989-007")
Application.SheetsInNewWor ...

我还想问问，你去哪里学到这些？我买了本《别怕，Excel vba其实很简单》，看完还是不够。
还有，主文件里面的表头,range("A1:D2")的那个，希望在拆分出来的文件表格里面每个都有保留。

jiminyanyan · 发表于 2019-4-20 13:28

路再见发表于 2019-4-20 12:43
我还想问问，你去哪里学到这些？我买了本《别怕，Excel vba其实很简单》，看完还是不够。
还有，主文件 ...

经常练习，熟能生巧。。。。

chenjx80 · 发表于 2019-4-20 14:03

朱荣兴发表于 2019-4-20 11:26
Sub test() '''QQ:705664849
With ThisWorkbook.Worksheets("1989-007")
Application.SheetsInNewWor ...

朱版主，好啊，代码没有经过测试就发上来了吧？
1. 生成的文件没有保留原表格的格式（后期调整格式也会很累啊）
2. 遇到同名文件没有处理哦

		自动登录	找回密码
密码			免费注册

[求助] 如何把一个Excel表拆分成多个文件，保留表头

最新热点 /1

朱荣兴朱荣兴当前离线性别保密 UID 1318548 阅读权限 0 注册时间 2011-2-2 在线时间小时最后登录 1970-1-1 积分 19282 财富分享技术精华头像被屏蔽 TA的精华主题 TA的得分主题	发表于 2019-4-20 10:46 \| 显示全部楼层 [广告] ★ ChatOffice，能听会写的AI办公，包含百种Excel、Word、PPT工具，兼容WPS，百倍效率！★ 提示: 作者被禁止或删除内容自动屏蔽

	回复举报

朱荣兴朱荣兴当前离线性别保密 UID 1318548 阅读权限 0 注册时间 2011-2-2 在线时间小时最后登录 1970-1-1 积分 19282 财富分享技术精华头像被屏蔽 TA的精华主题 TA的得分主题	发表于 2019-4-20 11:26 \| 显示全部楼层 [广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★使用手册★ 提示: 作者被禁止或删除内容自动屏蔽

	回复举报