按多条件拆分工作表？

百佳 · 发表于 2009-3-18 01:04

谢谢，学了

45522596 · 发表于 2009-4-1 11:39

厉害呀学习中

ABBY08 · 发表于 2009-4-10 22:27

如何将多工作表生成按摘要生成几张表呀

wskcel · 发表于 2009-6-4 16:24

谢谢zhaogang1960老大，代码很实用。第39行加入数据后为什么不能拆分？代码End(3)中的3是什么意思？

zhaogang1960 · 发表于 2009-6-4 16:41

原帖由 wskcel 于 2009-6-4 16:24 发表
谢谢zhaogang1960老大，代码很实用。第39行加入数据后为什么不能拆分？代码End(3)中的3是什么意思？

楼主的要求比较特殊，要保留数据区下面的一个合并区域，这个合并区域和数据区域保留一个空行，所以39行不在数据区内
原代码的Set rng2 = Range("A40:E42")有问题，应该是Set rng2 = Range("A" & [a65536].End(xlUp).Row).Resize(3, 5)
End(3)相当于End(xlUp)

sunxh · 发表于 2009-8-7 12:05

请教zhaogang1960，如何保持拆分后工作表打印格式与原表一致！

zhaogang1960 · 发表于 2009-8-7 12:46

可以不使用Sheets.Add方法，用Sheets("总表").Copy，保留表头，清除新复制工作表数据区域，再把字典条目存放的区域复制到新表的数据区，即：t(i).Copy .Range("a3")

cjd2008 · 发表于 2009-8-29 22:09

向高手致敬。。。

023yhg · 发表于 2009-9-29 14:32

向高手学习了

markpony · 发表于 2009-10-8 15:17

向VBA的高手致敬

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

[求助] 按多条件拆分工作表？

请教zhaogang1960，如何保持拆分后工作表打印格式与原表一致！

回复 17楼 sunxh 的帖子