<font color=#999AAA >提示：文章写完后，目录可以自动生成，如何生成可参考右边的帮助文档
</font>
@TOC
<hr style=" border:solid; width:100px; height:1px;" color=#000000 size=1">
一、操作步骤
1.打开EXCEL，选中要调整的单元列，点击开始菜单中的自动换行，换行成功后，点击格式中的自动调整行高
2.按alt+F11 键（部分电脑是 Fn+alt+F11）打开VBA编辑器，找到 Thisworkbook 双击，在弹出的代码框输入代码
在这里插入图片描述
输入下面代码
<font color=#999AAA >代码如下（示例）：
此处可按照自己需求更改（第四行 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.上面代码复制后，点击对话框菜单中的运行，点击运行子过程/用户窗体，关闭弹框，回到数据表，数据表中内容已经自动适应行高，自动换行，且同样行间距大小
在这里插入图片描述
