一、开发者工具- 录制宏- 停止录制
二、开始者工具- 宏 - 编缉  修改为如下代码
Sub 宏1()
For i = 1 To ActiveSheet.UsedRange.Rows.Count
Cells(i, 1).RowHeight = Cells(i, 1).RowHeight + 5
Next
End Sub

    注:默认情况下,Excel中的行高列宽单位为磅。如果要设置行高以毫米为单位,该如何处理呢?
点击工作表右下角的【页面布局】视图按钮,然后再设置行高列宽,单位就是cm了,这里可以精确到0.02厘米。