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、点击执行按钮
具体流程如下
此时你会发现 你的工作表中所有的单元格中文字的上下都加了边距,如果觉得边距不够 可以多点几下 【执行】