Excelで結合されたセルの行の高さを自動調整するにはどうすればよいですか？

Excelでは、を使用して行の高さをセルの内容に合わせてすばやく調整できます。 行の高さを自動調整 機能ですが、この関数はマージされたセルを完全に無視します。 つまり、適用することはできません 行の高さを自動調整 結合されたセルの行の高さを変更する機能を使用するには、結合されたセルの行の高さをXNUMXつずつ手動で調整する必要があります。 この記事では、この問題を解決するための簡単な方法をいくつか紹介します。

マージされたセルの行の高さをVBAコードで自動調整

マージされたセルの行の高さをVBAコードで自動調整

次のスクリーンショットに示すように、いくつかのセルが結合されたワークシートがあり、コンテンツ全体を表示するためにセルの行の高さを変更する必要がある場合、以下のVBAコードは、複数の結合されたセルの行の高さを自動調整するのに役立ちます。次のように：

1。 を押し続けます Alt + F11 キー、そしてそれは開きます Microsoft Visual Basic forApplicationsウィンドウ.

2に設定します。 OK をクリックします。 インセット > モジュール、次のコードをに貼り付けます モジュールウィンドウ.

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で列幅を自動調整するにはどうすればよいですか？