（智能间距换行均满足）Excel中单元格批量调整行间距，行高自动适应内容，且自动换行

提示：文章写完后，目录可以自动生成，如何生成可参考右边的帮助文档

@TOC

---

一、操作步骤

1.打开EXCEL，选中要调整的单元列，点击开始菜单中的自动换行，换行成功后，点击格式中的自动调整行高

2.按alt+F11 键（部分电脑是 Fn+alt+F11）打开VBA编辑器，找到 Thisworkbook 双击，在弹出的代码框输入代码

在这里插入图片描述

输入下面代码
代码如下（示例）：
此处可按照自己需求更改（第四行 For i = 1 To 10 代码，表示调整范围为第一行到第十行，可自行调整， 第五行代码 r.Cells(i).RowHeight = r.Cells(i).RowHeight + 5 ，表示行高为5，可自行调整）

sub userset()
Dim i&, r As Range
Set r = Range("a1")
For i = 1 To 10
r.Cells(i).RowHeight = r.Cells(i).RowHeight + 5
Next i
End Sub

3.上面代码复制后，点击对话框菜单中的运行，点击运行子过程/用户窗体，关闭弹框，回到数据表，数据表中内容已经自动适应行高，自动换行，且同样行间距大小

在这里插入图片描述