[已解决]按某列数据拆分工作表的代码(求修改)

yuhe0008 · 发表于 2012-10-22 19:46

复件库存.rar (40.75 KB, 下载次数: 23)

hwc2ycy · 发表于 2012-10-22 23:43

yuhe0008 发表于 2012-10-22 19:46

这个方法我也想到过，想着还要另外再导出工作表为工作簿，就直接全用V了。

qjsu · 发表于 2012-10-23 00:22

yuhe0008 发表于 2012-10-22 19:40
何须VBA?
添一辅助列，用数据透视表就可以完成了

弄个上来看看，光说木有用啊，亲

徐淑颖 · 发表于 2012-10-23 09:32

hwc2ycy 发表于 2012-10-22 18:49

哇，好长的代码啊，谢谢美女！{:221:}我去试试

徐淑颖 · 发表于 2012-10-23 09:40

hwc2ycy 发表于 2012-10-22 18:49

美女，还有个小问题；就是怎么导出来以后格式就变了啊！ {:021:}那么多表重新弄格式很麻烦啊，

徐淑颖 · 发表于 2012-10-23 09:41

yuhe0008 发表于 2012-10-22 19:46

谢谢老师，你的方法能用；不过还是要复制粘贴，应为表太多了，还要设置格式；估计到时候不太实用啊{:021:}

hwc2ycy · 发表于 2012-10-23 09:45

徐淑颖发表于 2012-10-23 09:40
美女，还有个小问题；就是怎么导出来以后格式就变了啊！那么多表重新弄格式很麻烦啊，

格式你要设成啥样，这都可以加代码的，亲。

hwc2ycy · 发表于 2012-10-23 09:48

呵呵。
你是复制粘贴的方法。单元格操作。
我是一次读取所有的数据，通过字典实现分类，再按类别分别写入新工作簿，改工作名，保存指定名字。

徐淑颖 · 发表于 2012-10-24 09:49

hwc2ycy 发表于 2012-10-22 16:56
小虎子，

漂亮的女人，我的问题还没解决呢；有时间帮我弄下呗，我就想所有子工作表的有效单元格都加上边框；然后行高列宽合适的就行了；{:221:}我的数据不太多，不超过10000行的，速度也无所谓

迅岐同心 · 发表于 2014-6-7 07:40

如果按附件中的第三列进行拆分代码怎样修改，敬请赐教！

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