如何自动适应Excel中合并单元格的行高？

如何自动适应Excel中合并单元格的行高？

在Excel中，我们可以使用来快速调整行高以适合单元格内容 自动调整行高 功能，但此功能将完全忽略合并的单元格。 也就是说，您无法应用 自动调整行高 要调整合并单元格的行高的功能，您需要手动调整合并单元格的行高。 在本文中，我可以介绍一些解决此问题的快速方法。

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

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

假设我有一个包含一些合并单元格的工作表，如下面的屏幕快照所示，现在我需要调整单元格行高的大小以显示整个内容，下面的VBA代码可以帮助您自动调整多个合并单元格的行高，请执行如下：

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.）在上面的代码中，您可以添加新范围，只需复制 调用AutoFitMergedCells（Range（“ a1：b2”）） 多次编写脚本，然后将合并的单元格范围更改为所需的范围。

（2.）并且您应该更改当前工作表名称 Sheet4 到您使用的工作表名称。

3。 然后按 F5 键来运行此代码，现在，您可以看到所有合并的单元格已自动适应其单元格内容，请参见屏幕截图：

相关文章：

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