Excel使用宏将表格的行增加固定的高度

1.打开excel表格“视图”
2.录制一个空白宏 
3.编辑宏
 Sub singleRowAdd()
'
' singleRowAdd 宏
' 给整个表单数据行添加指定高度
'
    For i = 1 To ActiveSheet.UsedRange.Rows.Count
        Cells(i, 1).RowHeight = Cells(i, 1).RowHeight + 10
    Next

End Sub

4.执行宏