KutoolsforOffice — 一套方案，五大工具。事半功倍。

如何在 Excel 中自动调整合并单元格的行高？

作者Xiaoyang修改日期

在 Excel 中，快速准确地调整行高对于清晰呈现数据至关重要。通常，您可以使用自动调整行高功能，让行高自动适应单元格内容。然而，在处理合并单元格时，您可能会发现该功能无法按预期工作——Excel 的自动调整行高会完全忽略合并区域，导致无法自动适配内容高度。因此，您往往需要手动调整每个合并单元格的行高，以确保所有内容完整可见。这一过程不仅繁琐，还容易出错，尤其是在面对大量合并单元格时。

本文介绍了几种实用方法，可有效帮助您自动调整合并的行高，节省时间并保持工作表整洁易读：

使用 VBA 代码自动调整合并的行高

使用自动换行和手动调整

使用 VBA 代码自动调整合并的行高

假设您的工作表包含多个内容长度不一的合并单元格，如下方截图所示。若希望所有数据完整可见，又不想逐行手动调整行高，可借助 VBA 代码一键自动调整每个合并单元格所在行的行高，使其完美适配内容。当工作表中存在大量合并区域，或合并单元格内容频繁更新、您希望大幅简化调整流程时，此方法尤为高效实用。

在运行任何 VBA 代码前，请务必将工作簿另存为启用宏的文件，以免丢失未保存的工作。VBA 是 Excel 提供的安全功能，但请确保已启用宏，并且您的系统安全设置允许执行宏。

示例数据

1. 按住 ALT + F11 键，即可打开 Microsoft Visual Basic for Applications 窗口。

2. 单击插入 > 模块，然后将以下代码复制并粘贴到模块窗口中：

VBA 代码：自动调整多个合并的行高 
Option Explicit
Public Sub AutoFitAll()
  Call AutoFitMergedCells(Range("a1:b2"))
   Call AutoFitMergedCells(Range("c4:d6"))
    Call AutoFitMergedCells(Range("e1:e3"))
End Sub
Public Sub AutoFitMergedCells(oRange As Range)
  Dim tHeight As Integer
  Dim iPtr As Integer
  Dim oldWidth As Single
  Dim oldZZWidth As Single
  Dim newWidth As Single
  Dim newHeight As Single
  With Sheets("Sheet4")
    oldWidth = 0
    For iPtr = 1 To oRange.Columns.Count
      oldWidth = oldWidth + .Cells(1, oRange.Column + iPtr - 1).ColumnWidth
    Next iPtr
    oldWidth = .Cells(1, oRange.Column).ColumnWidth + .Cells(1, oRange.Column + 1).ColumnWidth
    oRange.MergeCells = False
    newWidth = Len(.Cells(oRange.Row, oRange.Column).Value)
    oldZZWidth = .Range("ZZ1").ColumnWidth
    .Range("ZZ1") = Left(.Cells(oRange.Row, oRange.Column).Value, newWidth)
    .Range("ZZ1").WrapText = True
    .Columns("ZZ").ColumnWidth = oldWidth
    .Rows("1").EntireRow.AutoFit
    newHeight = .Rows("1").RowHeight / oRange.Rows.Count
    .Rows(CStr(oRange.Row) & ":" & CStr(oRange.Row + oRange.Rows.Count - 1)).RowHeight = newHeight
    oRange.MergeCells = True
    oRange.WrapText = True
    .Range("ZZ1").ClearContents
    .Range("ZZ1").ColumnWidth = oldZZWidth
  End With
End Sub

注意事项：

(1.) 如需调整其他合并区域，只需多次复制 Call AutoFitMergedCells(Range("a 1:b 2")) 这一行代码，并为每个要自动调整的合并区域更新对应的地址即可。

(2.) 请记得将脚本中的 Sheet 4 修改为与包含合并数据的工作表名称一致。如果不确定工作表名称，请查看 Excel 窗口底部的工作表标签。

（3.） 运行宏时，请确保所选区域未意外包含含有关键或敏感数据的单元格，以免触发意外的格式更改。

3. 按 F5 运行此代码，即可自动调整所有指定合并单元格的行高，完整显示内容，如下图所示：

使用 VBA 代码自动调整合并单元格行高的结果

此 VBA 解决方案提供了一种便捷的自动化方式，用于调整合并单元格的尺寸。但请注意，该方法需要访问“开发工具”选项卡，并具备运行宏的权限——在宏被禁用或受限的协作环境中，请务必留意这一点。

使用自动换行和手动调整

在多种场景下，您可结合使用自动换行与快速手动调整行高功能，轻松确保所有内容清晰可见，无需依赖 VBA 或复杂工具。

步骤 1：启用自动换行
  1. 请选择您要设置格式的合并单元格。
  2. 转到开始选项卡，然后单击对齐方式组中的自动换行。

这将使内容在合并区域内自动换行。

步骤 2：检查显示效果，必要时手动调整行高

如果文本不长，现在可能已经完美适配到合并单元格内部了。

若内容较长仍未完全显示，请手动拖动合并单元格下方的行边界，调高行高，直至所有内容清晰可见。

？重要提示：Excel 无法自动调整合并的行高；自动换行选项仅启用换行，但不会自动调整行高。因此，在启用自动换行后，您可能仍需手动微调行高。

相关文章：

如何在 Excel 中自动调整列宽？

最佳办公效率工具

🤖KUTOOLS AI 助手：基于以下内容革新数据分析：智能执行   |  生成代码|  创建自定义公式  |  数据分析及生成图表|  调用 Kutools Functions……
热门功能：查找、高亮或标记重复项   |  删除空白行   |  合并列或单元格且不丢失数据   |  不使用公式的四舍五入……
高级 LOOKUP：多条件 VLookup  |  多值 VLookup  |   跨多工作表 VLookup   |   模糊查找……
高级下拉列表：快速创建下拉列表   |  级联下拉列表   |  多选下拉列表……
列管理器：添加指定数量的列|移动列|切换隐藏列的可见性状态|比较区域与列……
特色功能：网格聚焦   |  设计视图   |增强编辑栏   | 工作簿和表管理器   |  资源库（自动文本）|  日期提取   |  汇总工作表  |  加密/解密单元格   | 按列表发送邮件   |  超级筛选   |   特殊筛选（筛选粗体单元格/斜体/删除线……） ......
精选 15 工具集：12 文本工具（添加文本，删除特定字符，……）|   50+ 图表 类型（甘特图，……）|   40+ 实用公式（基于生日计算年龄，……）|   19 插入工具（插入二维码，从路径插入图片，……）|   12 转换工具（小写金额转大写，汇率转换，……）|   7 合并和拆分工具（高级合并行，分割单元格，……）|……更多
在您的首选语言中使用 Kutools – 支持英语、西班牙语、德语、法语、中文及 40+ 种其他语言！

使用 Kutools for Excel 大幅提升您的 Excel 技能，体验前所未有的高效。Kutools for Excel 提供 300 多项高级功能，助您提升生产力、节省时间。立即点击此处，获取您最需要的功能……

Office Tab 为 Office 带来标签式界面，让您的工作更轻松

  • 在 Word、Excel、PowerPoint、Publisher、Access、Visio 和 Project 中启用标签式编辑和阅读。
  • 在同一个窗口的新标签页中打开并创建多个文档，而非在新窗口中。
  • 将您的工作效率提升 50%，每天减少数百次鼠标点击！

所有 Kutools 插件，一个安装程序

Kutools for Office 套件捆绑了适用于 Excel、Word、Outlook 和 PowerPoint 的插件以及 Office Tab Pro，非常适合需要跨多个 Office 应用高效协作的团队。

ExcelWordOutlookTabsPowerPoint
  • 一体化套件— Excel、Word、Outlook 和 PowerPoint 插件 + Office Tab Pro
  • 一个安装程序，一个许可证— 几分钟内完成设置（支持 MSI）
  • 协同效果更佳— 在多个 Office 应用中实现高效协同
  • 30 天全功能试用— 无需注册，无需信用卡
  • 超值之选— 比单独购买插件更省钱