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

具体流程如下

 

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

 

在进行Excel文档中内容编辑的时候，往往一个单元格中的字数较多，排列就会不太美观，是否有部分像在Word中一样，可以进行行间距和字间距的调整呢？

方法1：通过调整单元格对齐方式来设置行间距和字间距

说明：这种方式没有固定的行间距，以单元格行高作为主要条件，当行高增加，内容间行距就跟随增加，不利于多个单元格内容整体对称性，但我们还是得学会它。

 

这种方法使用效果不太理想，下面我们介绍第二种方式。

方法2：借助“拼音指南”单纯调整行间距

说明：拼音指南是将每一个文字上方留出一定大小的间隙，可以在此区域输入拼音，从而达到不用单独另外插入一行输入拼音，我们看下效果。

如果我们不输入拼音，正好可以利用这个间隙作为间距，我们可以选择一个单元格（不用双击处于编辑状态），鼠标点击开始-->拼音

 

 

这样效果就出来了，其他单元格都可以同步这样设置，不影响行高的调整。