Private Sub workbook_beforeprint(cannel As Boolean)
Dim k As Integer
a = Range("h5555").End(xlUp).Row
For k = 1 To a
If Cells(k, 8) = "" Then
Rows(k & ":" & k).Select
Selection.RowHeight = 4.5
End If
Next
End Sub
试试看
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024