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

在Excel中，快速准确地调整行高对于清晰展示数据至关重要。通常情况下，您可以使用“自动调整行高”功能来自动调整行的高度以适应单元格内容。然而，在处理合并单元格时，您可能会注意到“自动调整行高”并没有如预期那样起作用。也就是说，Excel的自动调整功能完全忽略了合并单元格，因此在这种情况下，您无法自动调整行高以容纳这些内容。结果是，您通常需要手动为每个合并单元格调整行高，以确保所有内容都可见，这可能既繁琐又容易出错——尤其是当您有许多合并单元格时。

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

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

使用自动换行和手动调整

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

假设您的工作表包含几个具有不同内容量的合并单元格，如下图所示。如果您希望所有数据都能完全显示，而无需手动调整每一行，您可以使用VBA代码解决方案一次性自动将行高调整到适合每个合并单元格的内容。这种方法特别适用于当您的表格中有许多合并区域，或者当合并单元格的内容频繁更新，并且您希望简化调整过程时。

在运行任何VBA之前，请记住将您的工作簿保存为启用宏的文件，以防止未保存的工作丢失。VBA是Excel提供的一种安全方法，但请确保启用了宏并且您的安全设置允许在系统上执行宏。

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

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

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("a1:b2"))这一行，并为每个要自动调整的合并区域更新地址即可。

(2.) 记得将脚本中的Sheet4更改为合并单元格所在工作表的名称。如果您不确定工作表名称，请查看Excel窗口底部的工作表标签(B)。

(3.) 运行宏时，请确保所选范围内不包含任何含有关键或敏感数据的单元格，以避免意外的格式更改。

3. 按F5运行此代码。执行后，所有指定的合并单元格将自动调整其行高以完全显示单元格内容，如下图所示：

该VBA解决方案提供了一种方便、自动的方式来处理合并单元格的尺寸调整。但是，它需要访问开发人员选项卡并获得使用宏的权限——如果在禁用或限制宏的环境中协作，请牢记这一点。

使用自动换行和手动调整

在许多情况下，您可以将自动换行功能与快速手动调整行高相结合，以确保所有内容都能清晰可见，而无需依赖VBA或复杂工具。

步骤1：启用自动换行

1. 选择要格式化的合并单元格。
2. 转到开始选项卡，点击对齐组中的自动换行。

这将使内容能够在合并区域内自动换行至新行。

步骤2：检查显示并根据需要手动调整行高

如果您的文本不是很长，现在可能已经完美地适配在合并单元格内。

如果内容较长且仍然没有完全显示，请手动拖动合并单元格下方的行边界以增加行高，直到所有内容都显示出来。

相关文章：

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