[已解决]VBA按同类拆分成工作表、工作薄

zjdh · 发表于 2015-9-2 15:34

本帖最后由 zjdh 于 2015-9-2 15:46 编辑

39楼的附件可以提高速度5、6 倍！

yjwdjfqb · 发表于 2015-9-2 16:31

zjdh 发表于 2015-9-2 15:24
这个是用数组的，你试试是否快点。

需要拆分的表格.rar (11.82 KB, 下载次数: 16)

zjdh · 发表于 2015-9-2 17:25

本帖最后由 zjdh 于 2015-9-5 13:51 编辑

请试用62楼附件

yjwdjfqb · 发表于 2015-9-2 17:48

zjdh 发表于 2015-9-2 17:25
再作修改

老师你好，拆分后，有的单位，还是乱的，如图：
麻烦老师斧正下！　用42楼的附件测试的

zjdh · 发表于 2015-9-2 18:36

本帖最后由 zjdh 于 2015-9-5 13:52 编辑

请试用62楼附件

yjwdjfqb · 发表于 2015-9-2 18:52

zjdh 发表于 2015-9-2 18:36
43楼的附件没有问题啊

找不到是什么问题呢，会不会，是我版本问题呢！

zjdh · 发表于 2015-9-2 19:12

你再下载一次试试

yjwdjfqb · 发表于 2015-9-2 19:19

zjdh 发表于 2015-9-2 19:12
你再下载一次试试

老师我把我电脑中，以前的这个文件全部删除了（怕混淆用到以前的文件测试）

重新下载43楼的附件测试，还是同样的问题。

thzss · 发表于 2015-9-3 15:10

WIN7+OFFICE 2003下测试43楼附件正常，可以正常拆分为表，也可以拆分为簿，不过原工作表中如果有其他表会被删除

zjdh · 发表于 2015-9-3 20:06

thzss 发表于 2015-9-3 15:10
WIN7+OFFICE 2003下测试43楼附件正常，可以正常拆分为表，也可以拆分为簿，不过原工作表中如果有其他表会被 ...

主要是怕已拆分成工作表后，又一次拆分相同字段而数据重复，若不需要可以将以下语句注销掉：
For I = Sheets.Count To 2 Step -1
Sheets(I).Delete
Next

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