excel 自动换行后批量设置单元格上下边距

excel 自动换行后 单元格的上下边距挨的很紧，看起来很不舒服 如下图

现在教大家 如何批量设置 单元格中有多行文本后的上下间距，设置成功后 如下图所示：

 

具体步骤：

1、鼠标悬停在 excel 中的任意sheet（页签）上，右键 选择 查看代码

2、在弹出的 Visual Basic 编辑器弹框左侧选择 对应的工作表

3、右侧粘贴代码如下：（注意：事例代码中的 52 指的是工作表中的 行数最大值，我的表中共52行，所以这里写52）

Sub userset()
Dim i&, r As Range
Set r = Range("a1")
For i = 1 To 52 '52是行数最大值
r.Cells(i).RowHeight = r.Cells(i).RowHeight + 5
Next i
End Sub

4、点击执行按钮

具体流程如下

此时你会发现 你的工作表中所有的单元格中文字的上下都加了边距，如果觉得边距不够 可以多点几下 【执行】