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

thzss

zjdh 发表于 2015-9-3 20:06
主要是怕已拆分成工作表后，又一次拆分相同字段而数据重复，若不需要可以将以下语句注销掉：
For I = Sh ...

谢谢，感觉现在是一个比较完美的工具了

zjdh

yjwdjfqb 发表于 2015-9-2 19:19
老师我把我电脑中，以前的这个文件全部删除了（怕混淆用到以前的文件测试）

重新下载43楼的附件测试， ...

你只能逐句调试啦，看问题处在哪一句。
主要看运行到以下语句时的情况
Set WW = Sheets(1).UsedRange
R = WW(1, 1).Column

R是否为数据区的第一列序号

zjdh

yjwdjfqb 发表于 2015-9-2 19:19
老师我把我电脑中，以前的这个文件全部删除了（怕混淆用到以前的文件测试）

重新下载43楼的附件测试， ...

请试用62楼附件

yjwdjfqb

zjdh 发表于 2015-9-3 22:36
算了专为你做一个把

非常感谢老师无私耐心的帮我解决问题！
经多次测试，好像是这样的，数据区域的上方，和左则，不能有空行。
如图：如果有空行就会拆分不正确
已经很感激老师了！

zjdh

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

请试用62楼附件

zjdh

yjwdjfqb 发表于 2015-9-3 23:20
非常感谢老师无私耐心的帮我解决问题！
经多次测试，好像是这样的，数据区域的上方，和左则，不能有空行 ...

可是在我这儿，针对这种情况完全可以达到拆分的要求，看来是环境问题啦，你逐句调试一下，看看问题出现在哪里，可对症修改。

zjdh

请试用62楼附件

zjdh

yjwdjfqb 发表于 2015-9-3 23:20
非常感谢老师无私耐心的帮我解决问题！
经多次测试，好像是这样的，数据区域的上方，和左则，不能有空行 ...

我估计是
Set Rng = Application.InputBox("请选择拆分的字段", "选择", , , , , , 8)
没起作用
看看在你这特殊表格中运行完以下语句的结果
If Rng Is Nothing Then Exit Sub
Q = Rng.Column
RW = Rng.Row

Q  应该=6
RW  应该=5

zjdh

运行完
Set WW = Sheets(1).UsedRange
R = WW(1, 1).Column
CL = Q - R + 1
后

R 应该 =4
CL  应该=3

yjwdjfqb

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

老师你好，我这儿测试了下。

还是跟你57楼的动画一样，性别拆分时，有混淆

我测试测试后：　RW＝5　　　R＝4　　CL＝3　　但在代码中没有找到　Q = Rng.Column　这一句，请老师再看看！