调整EXCEL行内边距

1. 打开要设道置单元格上下边距的文档，
2. 按alt+F11，打开VBA编辑器，
3. 双击左侧树形内图中的“Thisworkbook”,
4. 在右侧的窗口中输入下面的程容序段：

sub userset()
Dim i&, r As Range
Set r = Range("a1")
For i = 1 To 10
r.Cells(i).RowHeight = r.Cells(i).RowHeight + 5
Next i
End Sub