问将范围的行高设置为721 to

EN

Option Explicit

Sub main()
    Dim extraRowHeight As Double, totalRowsHeight As Double
    Dim myRowsRange As Range
    Const maxRowHeight As Double = 409 '<--| maximum allowed row height

    totalRowsHeight = 721# '<--| set the total rows height you need for the range you are to specifiy right below
    With Worksheets("MyTableSheet") '<--| change "MyTableSheet" with your actual sheet name
        extraRowHeight = totalRowsHeight - .Rows("2:36").Height '<--| calculate the extra height needed for the wanted rows range
        With .Rows(29) '<--| consider the "reservoir" row
            If .RowHeight + extraRowHeight <= maxRowHeight Then '<--| if needed extra height leads to an allowable resulting "reservoir" row height ...
                .RowHeight = .RowHeight + extraRowHeight '<--| ... then adjust "reservoir" row height
            Else
                .RowHeight = maxRowHeight '<--| ... otherwise adjust "reservoir" row to maximum allowable height ...
                MsgBox "you still need to resize some other rows height for " & totalRowsHeight - .Rows("2:36").Height & " pts more" '<--|... and inform how much there still is to go
            End If
        End With
    End With
End Sub