[已解决]请问:为什么按列拆分只复制表头,而不复制其中的内容

liumiaomiao

将年龄段(即E列)拆分成新的工作表后,出现了以年龄命名的工作表,如:2  3  4 ...,但是这些工作表只复制了表头,而没有复制年龄是2  3   4...周岁的个人数据,请问:哪里出现了问题,怎么修改?谢谢
(要求出现图片所示的效果)




求助.rar (19.01 KB, 下载次数: 3)

2013-10-25 22:44 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

danio112

2013-10-25 23:27

关键是这句有问题：
fzlastrow = xinbiao.Cells(Rows.Count, 1).End(xlUp).Row
因为你的表头有合并单元格！本来该把数据复制到第五行，但它只能复制到第四行，第三第四行又是合并单元格（A3），于是每次赋值都在原地踏步踏，所有看不到结果。去掉A3单元格的合并单元格去掉就可以了。或者按附件中修改即可。

如果要把原来的数据整行复制过去，jiubiaocolumn = Application.WorksheetFunction.CountA(jiubiao.Rows(2)) 直接等于16就行了嘛。因为你的rows(2)也有合并单元格，不用计数，一看就知道是4个嘛
见附件

跳转到最佳答案楼层

danio112

关键是这句有问题：
fzlastrow = xinbiao.Cells(Rows.Count, 1).End(xlUp).Row
因为你的表头有合并单元格！本来该把数据复制到第五行，但它只能复制到第四行，第三第四行又是合并单元格（A3），于是每次赋值都在原地踏步踏，所有看不到结果。去掉A3单元格的合并单元格去掉就可以了。或者按附件中修改即可。

如果要把原来的数据整行复制过去，jiubiaocolumn = Application.WorksheetFunction.CountA(jiubiao.Rows(2)) 直接等于16就行了嘛。因为你的rows(2)也有合并单元格，不用计数，一看就知道是4个嘛
见附件

liumiaomiao

danio112 发表于 2013-10-25 23:27
关键是这句有问题：
fzlastrow = xinbiao.Cells(Rows.Count, 1).End(xlUp).Row
因为你的表头有合并单元格 ...

请问:如果要把拆分的结果放到以"文化户口册"命名的文件夹中去,应该修改哪里呢?
谢谢

danio112

liumiaomiao 发表于 2013-10-26 07:04
请问:如果要把拆分的结果放到以"文化户口册"命名的文件夹中去,应该修改哪里呢?
谢谢

ThisWorkbook.SaveAs ThisWorkbook.Path & "\文化户口册\名字.xlsm"

运行到最后时，添加上面一句代码就能保存了，红色部份的路径和名字可自己修改一下