excel怎么自动设置行高

别再手动拖拽了，那简直是上个世纪的活儿。每次看到同事把鼠标指针小心翼翼地移动到两行之间，变成那个上下箭头的小图标，然后一点一点地拖，我就替他着急。尤其是当一个表格里有成百上千行数据，有的内容多，有的内容少，那行高参差不齐的鬼样子，简直就是一场视觉灾难，足以逼死任何一个有强迫症的人。

那种感觉，就像你精心打扮准备出门，结果发现袜子穿反了，一只黑一只白，尴尬又抓狂。一个格式混乱的Excel表格，传递给别人的信息就是：我不专业，我不在乎，我甚至有点乱。

所以，今天咱们就来掰扯掰扯，怎么让Excel这个小机灵鬼自己动起来，把行高伺候得服服帖帖。

最基础的入门级操作：双击大法

这招，估计很多人都知道。但知道不等于会用，更不等于用得好。

操作很简单：把你的鼠标光标，移动到你想要调整的那一行的行号下方，就是那个数字的下面，光标会变成一个带上下箭头的十字。这时候，快速双击鼠标左键。

“啪嗒”一声，奇迹发生了。这一行的行高，会瞬间根据这一行里内容最多的那个单元格，自动调整到最合适的高度。不多一分，不少一毫。如果想一次性搞定整个表格，那就更简单了，直接点击表格左上角，行号和列标交汇处的那个全选三角区，选中整个工作表，然后把鼠标移动到任意两行行号之间，双击。

整个世界，瞬间清净了。

但，为什么我说这是入门级呢？因为“双击大法”有个致命的弱点，它在某些情况下会彻底失灵。最常见的就是遇到了合并单元格。一旦你的表格里有那该死的合并单元格，双击这招往往就只对它“看不见”的、未合并的单元格起作用，那个合并后的大块头，它根本不理你。结果就是，你以为你搞定了，其实合并单元格里的文字还是被截断了半截，像个犹抱琵琶半遮面的姑娘，就是不让你看全。

进阶玩法：功能区里的“官方正解”

双击不好使了怎么办？别慌，我们还有更“官方”的办法。Excel的开发者早就想到了这一点，只是把这个功能藏得有点深。

跟我来：

1. 首先，还是选中你想要调整行高的那些行。可以是一行，可以是几行，也可以是全选。
2. 然后，在顶部的菜单栏里，找到【开始】选项卡。
3. 目光向右移动，找到那个叫【单元格】的功能区。
4. 里面有个【格式】按钮，毫不犹豫地点下去。
5. 一个下拉菜单弹出来，里面就躺着我们今天的主角——【自动调整行高】。

点击它。

看到了吗？效果和双击一模一样，甚至更强大。因为它在处理某些特殊情况时，比双击更稳定。这才是解决行高问题的“阳关大道”。不过，你得承认，这个操作路径确实有点长，点来点去的，没那么潇洒。

别忘了这个黄金搭档：自动换行

聊了半天自动调整行高，很多人却忽略了一个至关重要的前提，或者说，一个必须并肩作战的战友——自动换行。

想象一个场景：你的一个单元格里，塞了三百字的小作文。如果你不设置“自动换行”，那这三百个字就会像一列长长的火车，一往无前地冲出单元格的边界，侵占隔壁单元格的地盘。这时候，你再怎么【自动调整行高】，Excel也只会认为“哦，这只是一行文字嘛”，然后给你一个标准单行的高度。文字被遮挡的命运，丝毫没有改变。

所以，正确的姿势是：

先选中需要处理的单元格或列，点击【开始】选项卡下的【自动换行】按钮。让文字在一个单元格内，根据列宽，自己乖乖地折叠成好几行。

做完这一步，再用我们上面说的【自动调整行高】或者双击大法，Excel才能正确识别出这个单元格需要多高，从而给你一个完美的行高。

记住，【自动换行】是因，【自动调整行高】是果。没有前者，后者就是无源之水。它们俩，是一对密不可分的黄金搭档，谁也离不开谁。

终极必杀技：VBA，一劳永逸的黑魔法

好了，现在我们来聊点刺激的。

如果你每天都要处理大量的、格式极其不规范的表格，每次都要手动去点【格式】-【自动调整行高】，是不是也觉得烦了？尤其是当表格里有合并单元格，上述所有方法都显得力不从心的时候，怎么办？

这时候，就得请出我们办公室老油条压箱底的宝贝了——VBA（Visual Basic for Applications）。

别被这个名字吓到，你不需要懂编程，你只需要会复制粘贴。VBA，这玩意儿，简直就是Excel里的黑魔法，能让它做到很多常规操作做不到的事情。

对于自动调整行高，特别是对付顽固的合并单元格，我们可以用一段简单的代码来一劳永逸。

操作步骤如下：

1. 按下键盘上的快捷键 Alt + F11，你会进入一个看起来很高级的界面，这就是VBA编辑器。
2. 在左侧的“工程”窗口，找到你的工作簿名字，找到你当前的工作表（比如Sheet1），然后双击它。
3. 右边会弹出一个空白的窗口，这就是写代码的地方。
4. 把下面这段代码，原封不动地复制进去：

```vb Sub AutoFitMergedCells() Dim MergedCell As Range Dim ActiveSheet As Worksheet

Set ActiveSheet = ActiveSheet

' 先取消所有单元格的自动换行，再重新设置，这是为了触发更新
ActiveSheet.Cells.WrapText = False
ActiveSheet.Cells.WrapText = True

' 遍历工作表中所有已使用的单元格
For Each MergedCell In ActiveSheet.UsedRange
    ' 判断单元格是否为合并单元格
    If MergedCell.MergeCells Then
        ' 如果是合并单元格，则自动调整其行高
        MergedCell.MergeArea.Rows.AutoFit
    End If
Next MergedCell

' 最后，对所有行再进行一次标准的自动行高调整，确保没有遗漏
ActiveSheet.Rows.AutoFit

End Sub ```

1. 粘贴好之后，别急着关。看到上面菜单栏里那个绿色的“运行”小三角按钮了吗？或者直接按键盘上的 F5 键。

点击运行。

现在，回到你的Excel表格看看。

是不是所有行，包括那些之前死活不听话的合并单元格，都根据内容的多少，自动调整到了最完美的行高？文字不多，行高就收紧；文字堆成山，行高就自动撑开。整个表格，前所未有的清爽、整洁、专业。

这段代码的逻辑，简单粗暴地翻译一下就是：告诉Excel，你给我好好检查一下这个表里每一个单元格，只要你发现它是合并的，就给我强制让它根据内容调整行高！最后再全局检查一遍，一个都别放过！

你可以把这段代码保存在你的“个人宏工作簿”里，以后任何一个Excel文件需要处理，都可以随时召唤这个“魔法”，一键搞定。这，才是真正意义上的自动化。

从简单的双击，到功能区的按钮，再到VBA的终极解决方案，我们处理的不仅仅是行高，更是我们对待工作的态度。一个干净整洁的表格，不仅愉悦了自己，也尊重了每一个阅读它的人。别再让那些参差不齐的行高，拉低你辛辛苦苦做出来的数据的价值了。