紧急求助！！！！！！EXCEL现在有一份连续数据，就是所有人员资料连在一起，如何将它们分成很多页？

显示全部楼层 · 2011-9-12 07:59:35

EXCEL一份全部人员资料有几千人，现在要将它们分成每十人一张表，表还有表头两三行，表后两三行备注说明等，如果只是为了要打印出来那还容易，可以添加标端标题栏，问题是不仅打印要有，就是在输入的时候也要有，请高手帮帮忙，如何将那些连续资料用比较快捷的方法放入已经处理好的表模（每十人一张表）中，谢谢！（有试过分页符好像也不行）万分感谢！！！

千问 · 2011-9-12 07:59:35

请用VB实现
SubCreatePageBreak()
Application.ScreenUpdating=False
CallDeletePageBreak
WithActiveSheet
.ResetAllPageBreaks
.PageSetup.PrintTitleRows=\"\"
rRow=.UsedRange.Rows.Count
Setrng=.Range(\"a1:h6\")
Setrng2=.Range(\"a\"oCountThen
.Rows(i*25k3Then
IfrngIsNothingThen
Setrng=.Range(\"a\"defds123idefds123\":h\"defds123i)
Else
Setrng=Union(rng,.Range(\"a\"defds123idefds123\":h\"defds123i))
EndIf
EndIf
Next
IfNotrngIsNothingThenrng.Delete
EndWith
EndSub

千问 · 2011-9-12 07:59:35

有一点没搞明白，你到底是想要10个人一个工作表还是所有人都在同一个工作表，但是没10个人添加一个表头和表尾的备注？
最好将你的原始资料还有表模发过来看一次，否则很难回答。
[email protected]

千问 · 2011-9-12 07:59:35

这个可以用VBA解决，VBA是宏的高级形式，可以执行VisaulBasic程序代码，从而自动的产生新的sheet，剪切、拷贝、粘贴数据，甚至可以控制自动打印，从而实现你这样复杂一些的要求。用VBA实现你说的功能，需要一些基本的编程知识。

千问 · 2011-9-12 07:59:35

冻结窗格