Excel VBA编程-一键自动调整行高和列宽(按内容自适应,AutoFit)

写在前面

上篇我们学会了用 RowHeight 和 ColumnWidth手动填数字来设行高和列宽。但手动填数字有两个麻烦：内容太长会显示不全，内容太短又白白浪费空间。

今天学一个更省事的办法——AutoFit（自动适配）。它让 Excel 自己量一量单元格里的字，把行高、列宽自动调到"刚好放下内容"的大小，相当于你手动双击列标之间的分隔线。

今天的知识点：AutoFit（按内容自动适配）

一句话记住：AutoFit 就是"让 Excel 自己量尺寸"。

• 调列宽：Columns("A").AutoFit —— 这一列自动变宽到能放下最长的内容。
• 调行高：Rows("2:10").AutoFit —— 这几行自动调高到能放下内容。
• 整张表一键适配：Cells.EntireColumn.AutoFit 适配所有列，Cells.EntireRow.AutoFit 适配所有行。

两个避坑点（来自实战经验）：

1. 先写完数据，再点 AutoFit。 AutoFit 是"一次性测量"，只量它运行那一刻的内容。如果你先适配、后填数据，列就还是窄的，内容照样被截断。所以记住口诀：写数据 → 最后再 AutoFit。
2. 合并过的单元格，行高可能"不听话"。 如果某行里有合并单元格，AutoFit 调行高时常常量不准。遇到这种情况先取消合并，或手动设行高。

【SVG 示意图】

案例一（简单）：一键让固定几行的行高自动适配

功能说明：选中固定的第 2 行到第 10 行，让它们的行高根据内容自动调整，不用你手动拖。适合表格里某几行字多、显示不全时快速修整。

Sub 自动适配行高()    ' 让第2行到第10行的行高，按内容自动调整    Rows("2:10").AutoFit    MsgBox "第2到10行的行高已自动适配内容！", vbInformationEnd Sub

操作步骤：

1. 按 Alt + F11 打开 VBA 编辑器。
2. 在左侧工程窗口右键你的工作簿 →「插入」→「模块」。
3. 把上面的代码完整粘贴进去，关闭 VBA 编辑器。
4. 回到 Excel，按 Alt + F8，选择「自动适配行高」，点击「运行」。
5. 第 2 到 10 行的高度会自动变化，弹出提示框即成功。

案例二（中等）：输入框自选列字母，自动适配那一列宽度

功能说明：运行时弹出一个输入框，你输入想调整的列字母（比如 C），VBA 就把那一列的宽度自动适配到刚好放下内容。想调哪一列，自己说了算。

Sub 自选列自动适配宽度()    Dim 列字母 As String    列字母 = InputBox("请输入要自适应宽度的列字母，例如 C：", "自动适配列宽")    If 列字母 = "" Then Exit Sub    Columns(列字母).AutoFit    MsgBox "第 " & 列字母 & " 列已按内容自动调宽！", vbInformationEnd Sub

操作步骤：

1. 按 Alt + F11 打开 VBA 编辑器，插入一个模块。
2. 粘贴上面的代码，关闭编辑器。
3. 按 Alt + F8，运行「自选列自动适配宽度」。
4. 在弹出的框里输入列字母（如 C、E），点「确定」。
5. 对应列的宽度立即自动变宽/变窄到合适大小。

小提示：如果直接关掉输入框不填，代码会安全退出，不会报错。

案例三（实用小案例）：一键把整张表行和列全部自动适配并报告

功能说明：自动找到数据的最后一行、最后一列，然后把每一行、每一列都自动适配，最后弹窗告诉你一共适配了多少行、多少列。一张大表，点一下就整整齐齐。

Sub 整表自动适配()    Dim 末行 As Long, 末列 As Long    Dim i As Long, j As Long    末行 = Cells(Rows.Count, 1).End(xlUp).Row    末列 = Cells(1, Columns.Count).End(xlToLeft).Column    ' 逐行适配行高    For i = 1 To 末行        Rows(i).AutoFit    Next i    ' 逐列适配列宽    For j = 1 To 末列        Columns(j).AutoFit    Next j    MsgBox "已自动适配 " & 末行 & " 行、" & 末列 & " 列！", vbInformationEnd Sub

操作步骤：

1. 按 Alt + F11 打开 VBA 编辑器，插入一个模块。
2. 粘贴上面的代码，关闭编辑器。
3. 回到 Excel，按 Alt + F8，运行「整表自动适配」。
4. 稍等片刻，所有行高、列宽都会自动调好，并弹出「已自动适配 N 行、M 列」的提示。

小提示：如果表里某行有合并单元格，那一行的行高可能调不准，建议先取消合并再运行。

知识点小结

1. AutoFit 是什么：让 Excel 按内容自动量出行高、列宽，等于手动双击分隔线。
2. 怎么用：Columns(字母).AutoFit 调列宽，Rows(区间).AutoFit 调行高；整表可用 Cells.EntireColumn.AutoFit。
3. 关键顺序：先写数据，最后再 AutoFit，否则量的是空表，内容照样被截断。
4. 避坑：合并单元格会让行高自适应失效；AutoFit 是一次性测量，数据变动后要重新运行。

下一篇预告

下次我们学「一键批量按清单重命名工作表（让表名一目了然）」——用 For Each 遍历所有表，再给每张表改个清楚的名字，工作簿再也不乱。

往期精选

• Excel VBA编程-一键批量设置行高和列宽（让表格更整齐）
• Excel VBA编程-一键批量隐藏或显示指定的行（让报表更清爽）
• Excel VBA编程-一键批量清除批注（删除多余评论）
• Excel VBA编程-一键给单元格批量添加批注（加评论说明）
• Excel VBA编程-一键把整本工作簿导出成一个 PDF（所有表合一）

公众号：西哥的AI幻觉 ｜ 作者微信：LekonWang（VBA 交流 / 商务合作）

温馨提示：以上代码请保存在 .xlsm 格式的文件中（启用宏的工作簿），才能正常运行。AutoFit 是一次性适配，数据有变动后重新运行即可。