一、开发者工具- 录制宏- 停止录制
二、开始者工具- 宏 – 编缉  修改为如下代码
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厘米。