Public Sub AutoSetRowHeight(ByVal sht As Worksheet, Optional RowsInOnePage As Long) Dim BreakRow As Range '水平分页符位置 Dim SumHeight As Double '累计首页行高 Dim AverageHeight As Double Dim RestHeight As Double Dim i As Long '行号 With sht '获取第一页与第二页分页符所在的单元格 Set