#整体增加相同行高的宏命令#
Sub HeightTo()
Application.ScreenUpdating = False
rh = InputBox("请输入待增行高值:", , 4)
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 + rh
End If
Next i
Application.ScreenUpdating = True
End Sub