Excel精英培训网

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

[已解决]跟据某一列的不重复数据生成新的工作簿

[复制链接]
发表于 2014-2-28 11:23 | 显示全部楼层 |阅读模式
本帖最后由 ghostjiao 于 2014-2-28 11:38 编辑

大家好,请教一个自动生成包含明细信息工作簿的问题,请大家多多指导,多谢!{:021:}

空口不好描述,请大家看一下附件吧,里面也有相应说明{:091:}

生成明细工作簿.rar

23.99 KB, 下载次数: 11

excel精英培训的微信平台,每天都会发送excel学习教程和资料。扫一扫明天就可以收到新教程
发表于 2014-2-28 11:34 | 显示全部楼层    本楼为最佳答案   
回复

使用道具 举报

 楼主| 发表于 2014-2-28 11:38 | 显示全部楼层
爱疯 发表于 2014-2-28 11:34
http://www.excelpx.com/thread-297695-1-1.html

{:021:}好厉害,求拜师,求学习啊{:021:}
回复

使用道具 举报

发表于 2014-2-28 11:39 | 显示全部楼层
分商品


分商品.zip

37.9 KB, 下载次数: 12

评分

参与人数 1 +3 收起 理由
ghostjiao + 3 多谢,最多只能给这么多了

查看全部评分

回复

使用道具 举报

发表于 2014-2-28 11:40 | 显示全部楼层
没什么,我也是一路错一路改,慢慢学习的。

其中肯定还有不妥的地方,还请多提建议
回复

使用道具 举报

 楼主| 发表于 2014-2-28 11:41 | 显示全部楼层
eikok 发表于 2014-2-28 11:39
分商品

多谢多谢,非常感谢
回复

使用道具 举报

发表于 2014-2-28 11:46 | 显示全部楼层
ghostjiao 发表于 2014-2-28 11:41
多谢多谢,非常感谢

也是在excel精英培训论坛里看到的给你转过来
回复

使用道具 举报

发表于 2014-2-28 11:47 | 显示全部楼层
  1. Sub Macro1()
  2. Dim arr, d, sht As Worksheet, i&
  3. Set d = CreateObject("scripting.dictionary")
  4. Set sht = ThisWorkbook.Sheets(1)
  5. arr = Range("a1").CurrentRegion
  6. Application.ScreenUpdating = False
  7. Application.DisplayAlerts = False
  8. Application.SheetsInNewWorkbook = 1
  9. For i = 2 To UBound(arr)
  10.     If Not d.exists(arr(i, 4)) Then
  11.         d(arr(i, 4)) = ""
  12.         sht.[d1].AutoFilter Field:=4, Criteria1:=arr(i, 4)
  13.         With Workbooks.Add
  14.             sht.[a:f].Copy .Sheets(1).[a1]
  15.             .SaveAs Filename:=ThisWorkbook.Path & "" & arr(i, 4) & ".xls"
  16.             .Close 1
  17.         End With
  18.         ActiveSheet.ShowAllData
  19.     End If
  20. Next
  21. Application.SheetsInNewWorkbook = 3
  22. Application.DisplayAlerts = True
  23. Application.ScreenUpdating = True
  24. End Sub
复制代码
回复

使用道具 举报

发表于 2014-2-28 11:47 | 显示全部楼层
………………

新建文件夹.zip

37.04 KB, 下载次数: 9

评分

参与人数 1 +3 收起 理由
ghostjiao + 3 多谢!

查看全部评分

回复

使用道具 举报

 楼主| 发表于 2014-2-28 12:05 | 显示全部楼层
dsmch 发表于 2014-2-28 11:47
………………

多谢,大家都是高手{:321:}向高手学习
回复

使用道具 举报

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

本版积分规则

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

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

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

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