Excel 如何插入分页符以将某些数据范围保持在一起？

我正试着为我的公司做一份月度报告，但我对它的美感感到困惑。我的表（包含更多数据）如下所示：

textwise如下所示（如果图片不可用）

客户1-2018年-33

客户2-2017-###-###

----------------2018年-###-###

客户3-2018-###-### 等

但是有时在客户数据的中间有一个分页，这样标题就出现在第一页上，而最后一行出现在新页上。p> 我试图想出一个代码来判断数据范围是否会被分割，但我不能。我原以为行号可能会出现分页符（我就是这样分组数据的），但一张工作表的第101行有分页符（因为该数据从第46行开始），另一张工作表的第106行有分页符

我尝试过做类似的事情：

If i >= 102 And start.row <= 101 Then
Worksheets(storenumber).HPageBreaks.Add before:=Rows(start.row)
Else
If i >= 176 And start.row <= 166 Then
Worksheets(storenumber).HPageBreaks.Add before:=Rows(start.row)
End If
End If

---

如果i>=102且start.row=176且start.row此代码似乎适合我：

Option Explicit

Sub BreakPagesCleanly()
Dim pb As HPageBreak
Dim rng As Range
Dim i As Long

ActiveWindow.View = xlPageBreakPreview
ActiveSheet.ResetAllPageBreaks
For Each pb In ActiveSheet.HPageBreaks
    If pb.Location.Value = "" Then
        'go back to the last value
        Set rng = pb.Location.End(xlUp)
        ActiveSheet.HPageBreaks.Add before:=rng
        DoEvents 'Seems to be required to give Excel time to catch up
    End If
Next pb

End Sub

这是前视图与后视图的对比：

您在“i”上存储了什么？您的图像显示Cust5，然后是空白，然后是Cust5。但是其他的只有CustX在第一行，然后是空白。这是个错误吗？@Morg这就是你想要的那种东西吗？