J_Style的博客

1. 先ALT+F112. 在打开的页面菜单中点击<插入>-<模块>，然后将下面的代码粘贴进去Sub 重组跨页合并() '将跨页的合并单元格重新合并从而适应分页打印 Dim p, MerageAddress As String, PageCell As Range, MergeValue Application.ScreenUpdating = False ActiveWindow.View = xlPageBreakPreview '进入分页预览，