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

yjwdjfqb · 发表于 2015-9-4 09:38

zjdh 发表于 2015-9-4 08:24
运行完
Set WW = Sheets(1).UsedRange
R = WW(1, 1).Column

我加上这一句（下载的附件中，本身没有这一句代码）　　Q = Rng.Column　　得到的结果也是　6

zjdh · 发表于 2015-9-5 09:01

yjwdjfqb 发表于 2015-9-4 09:38
我加上这一句（下载的附件中，本身没有这一句代码）　　Q = Rng.Column　　得到的结果也是　6

你再试试

按同类拆分成工作表或工作簿5.rar (16.79 KB, 下载次数: 11)

yjwdjfqb · 发表于 2015-9-5 15:15

zjdh 发表于 2015-9-5 09:01
你再试试

真的很感激你老师，搞的我很不好意思，一次一次的帮我修改这个程序。
我测试了一下（我用测试表格二，测试的），得到的效果是这样的。
1、拆分的工作表（工作薄）中，单位是正确的；
2、但只有二行数据；
3、一行数据在表头上方，一行数据在表头下方。
请老师看截图：
(如果老师那儿，测试没有问题的话，我就重新安装操作系统，及　OFFICE　程序，再测试下)

zjdh · 发表于 2015-9-5 16:07

我这很正常

zjdh · 发表于 2015-9-5 16:14

要不你再试试这个

按同类拆分成工作表或工作簿6.rar (16.59 KB, 下载次数: 10)

yjwdjfqb · 发表于 2015-9-5 16:39

zjdh 发表于 2015-9-5 16:14
要不你再试试这个

老师辛苦了。
现在肯定很完美了。
我在第一时间下载了下来，经过十几次的反复测试，均很成功。
非常感谢老师。

yjwdjfqb · 发表于 2015-9-6 22:33

zjdh 发表于 2015-9-5 16:14
要不你再试试这个

老师你好，今天在用这个拆分工作时，发现了这个问题。

当被拆分的工作表，不是排在第一个位置时。
如下图这个附件：

我当前需要拆分的是　总数2　工作表，我们在选择拆分字段时，也选择的是，总数2工作表中J5单元格。
然后，在拆分时，就是拆分的　第一个位置的工作表（总数，工作表）
（我试着把代码中的，Sheets (1) 　改成 ActiveSheet　也不行，只有请老师出手了，谢谢你了老师）
这儿老师是否改成，当前操作的工作表。

VBA拆分测试二.rar (8.6 KB, 下载次数: 3)

thzss · 发表于 2015-9-6 23:12

试了一下，还真有这个问题。尝试着对原代码进行简单修改，不知道行不行。我是菜鸟

zjdh · 发表于 2015-9-7 08:19

本帖最后由 zjdh 于 2015-9-7 08:26 编辑

yjwdjfqb 发表于 2015-9-6 22:33
老师你好，今天在用这个拆分工作时，发现了这个问题。

当被拆分的工作表，不是排在第一个位置时。

情况在不断变化！

按同类拆分成工作表或工作簿.rar (16.8 KB, 下载次数: 23)

yjwdjfqb · 发表于 2015-9-7 08:29

下载69楼测试中。。。。

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

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

评分

评分

点评

评分