给excel单元格添加上下边框距离

前20行代码添加单元格上、下边框距离

Sub padding()
For i = 1 To 20
    Range("a1").Cells(i).RowHeight = Range("a1").Cells(i).RowHeight + 10
Next
End Sub