Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
查看: 2790|回复: 6

[已解决]救急:如何提取符合条件的数据到新文件(文件名按特定格式区分)

[复制链接]
发表于 2017-8-17 19:51 | 显示全部楼层 |阅读模式
本帖最后由 qiaodong64 于 2017-8-18 07:36 编辑

             文件中  M列表示“年”,N列表示“月”。我想按月份提出相应的数据(包括首行数据在内)到新的excel文件,文件名表示为197901、197902、197903.....197912。各位大虾,求助!求助!求助!






最佳答案
2017-8-17 23:11
本帖最后由 chart888 于 2017-8-17 23:30 编辑

见附件

示例

示例
2.png

1979.zip

473.34 KB, 下载次数: 24

发表于 2017-8-17 22:00 | 显示全部楼层
用VBA?,给个思路,先建立以197901。。。12的工作表,查询N列中的数据是1的第一行和最后一行(if 循环判断),把符合条件的行放到197901工作表里,,,,以此类推,不会VBA的话,也可以手动,貌视不多,只是一次性的话,手动还快点
回复

使用道具 举报

 楼主| 发表于 2017-8-17 22:02 | 显示全部楼层
星以天寒 发表于 2017-8-17 22:00
用VBA?,给个思路,先建立以197901。。。12的工作表,查询N列中的数据是1的第一行和最后一行(if 循环判断) ...

数据量太大了,我上传的文件是删除了好多的
回复

使用道具 举报

 楼主| 发表于 2017-8-17 22:05 | 显示全部楼层
星以天寒 发表于 2017-8-17 22:00
用VBA?,给个思路,先建立以197901。。。12的工作表,查询N列中的数据是1的第一行和最后一行(if 循环判断) ...

VB的话我解决不了 “文件名命名的问题”。  
回复

使用道具 举报

发表于 2017-8-17 23:11 | 显示全部楼层    本楼为最佳答案   
本帖最后由 chart888 于 2017-8-17 23:30 编辑

见附件

1979.zip

385.41 KB, 下载次数: 30

回复

使用道具 举报

发表于 2017-8-17 23:40 | 显示全部楼层
共参考:

Sub 批量新建指定名称的工作表()

Dim i As Integer

For i = 1 To 10   '根据实际情况修改i大小,工作簿里如果有一张表,就设置为1,2张就设置为2.。。。

Worksheets.Add after:=Worksheets(i)

ActiveSheet.Name = 197900 + i

Next

End Sub
回复

使用道具 举报

 楼主| 发表于 2017-8-18 07:35 | 显示全部楼层

多谢帮忙
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-3-29 16:13 , Processed in 0.453816 second(s), 13 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表