Excel自动行高加高留白

先设置自动行高：开始-格式-自动调整行高，alt + F11 打开VBA，点击打开左侧工作表sheet1，粘贴以下代码，点击运行。
Sub HeightTo()
Application.ScreenUpdating = False
For i = 1 To ActiveSheet.UsedRange.Rows(ActiveSheet.UsedRange.Rows.Count).Row
If Application.WorksheetFunction.CountA(Rows(i)) > 0 Then
Rows(i).RowHeight = Rows(i).RowHeight + 4
End If
Next i
Application.ScreenUpdating = True
End Sub