Excel解决打印行高不完整

  Excel解决打印时行高打印不完整；通过对不同行数的单元格进行行高调整，解决Excel行内容打印不完整问题；对行高大于14的行，行高加10，对行高大于28的行，行高加20，对行高大于41的行，行高加40；作用于选中的单元格

代码

宏代码执行前需选中需要执行操作的单元格；

Sub AdjustRowHeightBasedOnSelection()
    Dim rng As Range
    Dim row As Range

    Set rng = Selection ' 使用当前所选单元格范围进行调整行高

    For Each row In rng.Rows
        If row.RowHeight > 14 Then
            row.RowHeight = row.RowHeight + 10
        End If
        If row.RowHeight > 28 Then
            row.RowHeight = row.RowHeight + 20
        End If
        If row.RowHeight > 41 Then
            row.RowHeight = row.RowHeight + 40
        End If
    Next row
End Sub

使用

在Excel软件中，点击文件——选项——自定义功能区——勾选开发工具；

在开发工具选项卡，点击宏进行添加宏;

将代码贴入代码窗口;执行前选中需要执行的单元格，点击绿色小三角形执行即可；

上方具体数据可根据实际需要进行相关修改