菜鸟谈VBA最最基础入门《原创》

lisuya · 发表于 2009-8-28 20:57

谢谢楼主的无私奉献

沧海一滴 · 发表于 2009-8-28 21:55

谢谢老师无私精辟的回复，思路果然大开了！！！

cyber520 · 发表于 2009-8-28 22:27

感谢楼主的无私奉献

zhyhang · 发表于 2009-8-29 00:03

谢谢楼主的无私奉献及辛勤劳动。

mybadboy · 发表于 2009-8-29 07:03

谢谢分享，DDDD

宝贝有酒窝 · 发表于 2009-8-29 09:35

学到了增加新工作表的做法……幸福……

stella_xiaoxia · 发表于 2009-8-29 10:47

LZ能不能帮我看下，为什么这样写不能实现花名册分类，谢谢啊

moon2778 · 发表于 2009-8-29 12:37

原帖由 stella_xiaoxia 于 2009-8-29 10:47 发表
LZ能不能帮我看下，为什么这样写不能实现花名册分类，谢谢啊

楼主周末放假，弱弱的看了一下，原因有3
1、按扭未指定宏。
2、你的分表的每108行都有数据，造成在计算分表最后一行的行数时不能实现你想要的效果。
3、 Sheets("外在本就读花名册").Cells(i, 1).Resize(1, 12).Copy _
         Sheets("站街").Cells([A65536].End(xlUp).Row + 1, 1)
这句应该改为
   Sheets("外在本就读花名册").Cells(i, 1).Resize(1, 12).Copy _
         Sheets("站街").Cells(Sheets("站街").[A65536].End(xlUp).Row + 1, 1)
因为copy后段的[a65536]未指定工作表范围，他会默认为当前激活的表，那就可能是表1了，所以要加上分表名称。
在我的电脑上，我将这3点修改后，基本就正确了，你试试吧。

[ 本帖最后由 moon2778 于 2009-8-29 12:46 编辑 ]

stella_xiaoxia · 发表于 2009-8-29 14:31

原帖由 moon2778 于 2009-8-29 12:37 发表

楼主周末放假，弱弱的看了一下，原因有3
1、按扭未指定宏。
2、你的分表的每108行都有数据，造成在计算分表最后一行的行数时不能实现你想要的效果。
3、 Sheets("外在本就读花名册").Cells(i, 1).Resize(1 ...

谢谢moon2778，按照你说的，改了之后可以了。。。

richore · 发表于 2009-8-29 15:05

谢谢，一定好好学习

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

菜鸟谈VBA最最基础入门《原创》

回复 256楼 ggsmart 的帖子

感谢

谢谢分享