这段vba代码怎么改成JSA~~求助大神

hjfvba666

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

LIUZHU

上附件，直接讲你需要解决的问题吧

hjfvba666

LIUZHU 发表于 2022-9-1 17:36
上附件，直接讲你需要解决的问题吧

已上传附件~~~就是解决打印的时候，合并单元格跨页打印问题。比如我这个附件的第一列，我调好格式后准备打印，发现合并单元格因为跨页，会出现空白且少了一条线的情况，需要手动去调整，之前就是用vba实现比较自动化的。简单来说就是要每一页都能完整显示合并单元格内容，且该合并的还是合并。