CountA()只到空行，还要往下找非空行，直到没有非空行为止，才可得正确的总行数。

感谢版主《吹水佬》百忙之中的回帖，第一是高度，第二是热心。
目前也实验了多次，发现因为不会调用VBA的set语句，总是达不到完美
所以，最后一步就是人工调整一下，只需要将虚线分页符往下拉到实线分页符位置就可以了，将就吧，又是工作，又是家庭的，实在是没有精力了
再次感谢各位的无私奉献，还发现我自己对VBA真是啥也不懂，各位如果有VBA的系统学习资料请不吝推荐一下。

多年前一直在梅子VFP论坛学习，这星期回去发现实行会员收费制了，我以前是会员，现在不是，也无法阅览贴子，感觉心中的某一块阵地又缺失了一角。

EXCEL计算行数没有通用绝对准确的方法，要看EXCEL表而定，如果分页有规律，就可准确找到设置分页符的行。

学习了