excel 自动换行后 单元格的上下边距挨的很紧，看起来很不舒服 如下图
现在教大家 如何批量设置 单元格中有多行文本后的上下间距，设置成功后 如下图所示：
具体步骤：
1、鼠标悬停在 excel 中的任意sheet（页签）上，右键 选择 查看代码
2、在弹出的 Visual Basic 编辑器弹框左侧选择 对应的工作表
3、右侧粘贴代码如下：（注意：事例代码中的 52 指的是工作表中的 行数最大值，我的表中共52行，所以这里写52）
Sub userset()Dim i&, r As RangeSet r = Range("a1")For i = 1 To 52 '52是行数最大值r.Cells(i).RowHeight = r.Cells(i).RowHeight + 5Next iEnd Sub
4、点击执行按钮
具体流程如下
此时你会发现 你的工作表中所有的单元格中文字的上下都加了边距，如果觉得边距不够 可以多点几下 【执行】
