快好知 kuaihz

Excel办公技巧——完整显示跨页合并的单元格

在日常工作中,我们经常会遇到大量合并的单元格,而部分合并的单元格会跨页显示,也即:合并的单元格区域显示在两页中。如下图示:

而我们最终想要的打印效果,如下:

那么,上述效果是如何实现的呢?方法如下:

步骤1:按Alt+F11快捷键打开工程资源管理器窗口,即VBE窗口;

步骤2:依次单击菜单栏上的[插入]---[模块]选项,在模块1中输入以下代码:

Sub 完整显示合并的单元格区域()

Dim P, MergeAddress As String, PageCell As Range, MergeValue

ActiveWindow.View = xlPageBreakPreview

For Each P In ActiveSheet.HPageBreaks

Set PageCell = Cells(P.Location.Row - 1, ActiveCell.Column)

If PageCell.MergeCells And Not Intersect(Cells(P.Location.Row, ActiveCell.Column), PageCell.MergeArea) Is Nothing Then

MergeAddress = PageCell.MergeArea.Address

MergeValue = PageCell.MergeArea(1).Value

PageCell.MergeArea.UnMerge

Range(Range(MergeAddress)(1), PageCell).Merge

With Range(PageCell.Offset(1, 0), Cells(Split(MergeAddress, "$")(4), ActiveCell.Column))

.Merge

.Value = MergeValue

End With

End If

Next

ActiveWindow.View = xlNormalView

End Sub

模块1代码的截图如下:

步骤3:返回工作表界面,因B列是合并的区域,所以,我们首先选择B列数据,然后在模块1代码窗口中,按[执行]按钮,也即达到我们想要的效果。

鸣谢:若喜欢本篇文章,欢迎您的点赞,评论和分享!谢谢!!

本站资源来自互联网,仅供学习,如有侵权,请通知删除,敬请谅解!
搜索建议:合并  合并词条  单元  单元词条  完整  完整词条  技巧  技巧词条  办公  办公词条  
办公

 word排版技巧:如此设置页码,...

编按:在Word中,为文档添加页码一直困扰着许多小伙伴,从论文页码的布局到长文档页码的设置,以及针对一些特殊的格式要求,应该怎么应对?本期小编教大家解决这个问题...(展开)

办公

 word操作技巧:如何只保留下划...

现如今,电脑办公已是常态,了解并能灵活运用Word的使用技巧是作为办公人员必备的技能。因此,今天给大家分享一个Word的常用办公技巧,既能节省时间、提高工作效率...(展开)