Excelでセルを取得して、ラップされたテキストの内容に合わせてセルの高さを自動的に調整するにはどうすればよいですか？[複製]

Excelにテキストコンテンツがラップされたセルがあり、セルの書式を設定して、複数行にわたるコンテンツに合わせてセルの高さが調整されるようにします。どうすればこの動作を実現できますか？

http://support.microsoft.com/kb/149663から

セル内のすべてのテキストに合わせて行の高さを調整するには、次の手順を実行します。

行を選択します。

Microsoft Office Excel 2003およびそれ以前のバージョンのExcelでは、[書式]メニューの[行]をポイントし、[自動調整]をクリックします。

Microsoft Office Excel 2007で、[ホーム]タブをクリックし、[セル]グループの[書式]をクリックして、[行の高さの自動調整]をクリックします。

すべての行が選択されている場合にも機能します

試して

列を選択->列を右クリック->セルの書式設定->配置タブ->テキストの折り返し

自動結合は結合されたセルでは機能しないことに注意してください。手動で行う必要があります。

このマイクロソフトの回答を参照してください。

Excelで結合されたセルを含む行または列に対してAutoFit機能を使用することはできません。

自動的に実行されない場合は、行番号（例：1から2）の間の小さな線にカーソルを置き、ダブルクリックすると、行のサイズが変更されます（例では、小さな線のすぐ上にあります：1）すべてが見えるように（垂直方向から）。

マクロを知っていますか？次のコードを入れます

Application.ActiveCell.WrapText = True

Worksheet_SelectionChangeサブルーチン内。

VBAソリューションでは、次のものを使用します。

 Call Application.ActiveCell.AutoFit

期待どおりに機能させるための唯一の方法は、CTRL-Aでシート全体を強調表示し、ツールバーの[テキストの折り返し]ボタンをクリックしてから選択し直すことです。他の設定は変更されませんが、各行はコンテンツの「適切な」高さになります。

範囲内のセル（B2：B1500）のヘッダー行のサイズを変更する次のVBコードを作成しました。これは、2014年12月28日を超える日付値により、タイムシートでこれらの日付が入るという警告がヘッダーに表示されるためです2015年の週1：

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim KeyCells As Range

    ' The variable KeyCells contains the cells that will
    ' cause an Action when they are changed.
    Set KeyCells = Range("B2:B1500")

    If Not Application.Intersect(KeyCells, Range(Target.Address)) _
           Is Nothing Then

        ' Change the height of the header row when one of the defined cdlls is changed
        Rows("1:1").EntireRow.AutoFit

    End If
End Sub