如何把排好序的名单按序列号一页一页显示

haisz

经常制表过程中，人员名单按姓氏音序排列后，为了方便制成下图左边的排列情况，即序列号从上到下跨多页显示，这样便于随时调整行高，不影响序列号。但在实际以纸质方式呈现又不方便查看，如达到下图右边的序号情况，但在任意调整行高又不影响序号，会自动改变序号。请高手们指点一下，谢谢！

两蛋一瓜

借用WORD中“布局-栏”功能实现，看下面动画

ggmmlol

这个需要用VBA解决。
调整行高后，可以用VBA查出当前页面设置下的分页符位置，从而得出每页包含的数据行数，据此分栏填写数据。