如何处理合并单元格的跨页效果不好的问题

ningyong58

图示是合并单元格在跨页时,数据分布


图示是合并单元格后,跨页结果,打印后前后看起来效果不好.
请问各位大侠的解决方案是什么??
详见附件
BasAndClsStandardPrograme.rar (14.25 KB, 下载次数: 13)

2010-2-2 16:49 上传

点击文件名下载附件

[ 本帖最后由 ningyong58 于 2010-2-2 16:58 编辑 ]

蓝桥玄霜

依次选择分页线，判断.Location 单元格位置是不是合并单元格？如果是，则向上移位，到不是合并单元格至。

ningyong58

原帖由 蓝桥玄霜 于 2010-2-2 17:10 发表
依次选择分页线，判断.Location 单元格位置是不是合并单元格？如果是，则向上移位，到不是合并单元格至。

谢谢回复.
表中的单元格行距是根据内容自动调整选择
如何确定当前页最后一行的.location是个要点了.

买买头

又学了一招，看来多逛逛没错

ningyong58

这个帖子用了HPageBreaks(i + 1).Location.Row - 1,确定页分界
http://club.excelhome.net/viewth ... 2%A2%2B%BF%E7%D2%B3
Sub hb()
qsh = 3
Dim arr
ReDim arr(HPageBreaks.Count)
Application.DisplayAlerts = False
For i = 0 To UBound(arr) - 1
    arr(i) = HPageBreaks(i + 1).Location.Row - 1
   
Next i
arr(i) = Range("B65536").End(xlUp).Row
K = 0
For i = 3 To Range("B65536").End(xlUp).Row
    If Cells(i + 1, 2) <> Cells(qsh, 2) And i < arr(K) Then
        Range("B" & qsh & ":B" & i).Merge
        qsh = i + 1
    ElseIf i = arr(K) Then
        Range("B" & qsh & ":B" & i).Merge
        qsh = i + 1
        K = K + 1
    End If
Next i
Application.DisplayAlerts = True
End Sub
慢慢消化.