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

cnlijian · 发表于 2006-3-30 19:51

很好的合并程序,谢谢!

wdqwuxi · 发表于 2006-4-7 16:21

楼主好：

非常好，帮助我减少了很多工作。而且同事们也觉得非常有用，都变成标准工具了。

[此贴子已经被作者于2006-4-10 20:21:49编辑过]

kailee · 发表于 2006-4-7 18:09

我已经用上了，解决了大问题！太感谢了，也感谢家园提供了这么一个温暖的地方！如此好的帖子理应置顶啊？

zhaodx · 发表于 2006-4-13 14:04

非常不错!我得研究研究...

Long_III · 发表于 2006-4-13 14:34

回复一下203楼sunsoncheng朋友提出的问题

关于直接写cells()和.cells()有些区别，有时又是一致的。在这个代码里，复制总表后（也就是copy后），就产生新的表，此时模块里直接输入cells()，表示是当前工作表的单元格，我在里面又用了with结构，所以在这里时

For i = 2 To irow
Cells(i, ICol) = "'" & Cells(i, ICol) '在原工作表生成文本符号

因为这是copy之后，activesheet为表2，故这里省略.跟加.是没有区别的，这句也可以改为.Cells(i, ICol) = "'" & .Cells(i, ICol) 跟上面的效果一样（说句实话，如果用with结构了，还是用有点比较好，兄台真是心细啊）

后面循环时，在sheets.add之后，此时，当前活动工作表就是新增加的这个表，故后面的

irow1 = [a1].CurrentRegion.Rows.Count '表示的是add的新表

另外一个问题，之所以要增加文本符号，兄台可以删除这样的看看，也就会产生早先出现的问题，数字、日期等非文本的分开，会出现问题。

表的关系搞清楚之后，我想就很容易理解增加的文本符号是在原始表里，还是后来复制出来的表了

ynztwxqy · 发表于 2006-4-13 16:24

极品

不好意思，提一个问题，还能不能每次分表接着上回的，而不删除。

zhuang9503 · 发表于 2006-4-19 11:57

非常感謝樓主提供無私的分享與幫忙，這正是我工作中經常要用到的，我是一名菜鳥，每次碰到這中情況都是用復制-粘貼。可惜我的系統是繁體版的，下載的後都亂碼的，不能用。請教：我該怎麼辦才能用上呢？

zbajsgamr · 发表于 2006-4-20 12:22

闲时再回来

26090099 · 发表于 2006-4-23 09:10

dingyige

一拼老输 · 发表于 2006-4-23 12:18

太实用了，最适合学校总年级成绩表分为班级成绩表

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

暈!系統的繁體版的