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