|
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件 ★ 免费下载 ★ ★ 使用帮助★
原帖由 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 编辑 ] |
|