如何自動適應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中自動調整列寬？