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

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

excel 自动换行后批量设置单元格上下边距_第1张图片

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

excel 自动换行后批量设置单元格上下边距_第2张图片

 

具体步骤:

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

excel 自动换行后批量设置单元格上下边距_第3张图片

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、点击执行按钮

具体流程如下

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

你可能感兴趣的:(excel)