[分享]工作表按条件分开！(可以为表内，也可为表外）2005-10-21更新

Long_III · 发表于 2005-8-2 12:29

以下是引用clc907在2005-7-27 11:29:00的发言：
求助：现有一Excel表（总表），20行20列，若想从第5列开始自动提取一列与前四列生成一张张新表（共计生成17张新表），行数保持不变，该如何处理，谢谢，叩谢。

这样分表就不需要筛选了，代码也相对简单了很多，不过想问问，是分开在一个个新的工作簿里，还是在原先的那个工作簿了啊？

对了，新表的命名怎么命？按列吗，如果出现重复怎么办？能否上传个附件

[此贴子已经被作者于2005-8-2 12:31:40编辑过]

ruanyb0721 · 发表于 2005-8-2 16:07

好东西，这表对搞统计的很实用！

[em08]

conghr · 发表于 2005-8-2 22:12

一意孤行的作品，大家看看如何？棒极了，很简洁。

LoH3sneS.rar (20.12 KB, 下载次数: 172)

[此贴子已经被作者于2005-8-2 22:14:19编辑过]

Long_III · 发表于 2005-8-4 10:21

TO clc907，大致做了一个，代码很简单，如下：（自己也可以修改哦）

Private Sub CommandButton1_Click() Dim wb As Workbook Dim i% Application.ScreenUpdating = False For i = 5 To 20 Set wb = Workbooks.Add '增加新的工作簿 Application.Union(Columns("A:D"), Columns(i)).Copy wb.Sheets(1).Range("a1") '复制内容 wb.SaveAs ThisWorkbook.Path & "/" & Cells(1, i) '按列标题给新工作簿命名 wb.Close '关闭新工作簿 Next Application.ScreenUpdating = True End Sub

NVWWAlQE.rar (9.41 KB, 下载次数: 133)

郁闷的拖鞋 · 发表于 2005-8-21 10:27

实在获益良多，学习中[em02]

烈火飞鸿 · 发表于 2005-9-14 09:36

tty7855 · 发表于 2005-9-14 10:47

感谢龙三兄，真不错。

chat163 · 发表于 2005-9-14 11:43

感谢龙三兄，真不错。

kw868 · 发表于 2005-9-15 16:19

不懂用！请龙兄写点使用说明！朦胧觉得应该是有个可以把好几个工作簿汇总到一个工作簿的好东西，我一直在找一个这样的工具！可是现在有了我却不懂怎么用！还是要龙兄指导！

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