行の高さを変更・自動調整・取得する方法

Contents
• 今回の目標
• RowHeight ／ AutoFit について
• 行の高さを変更する
• 行の高さを取得する
• 複数の行の高さを変更する
• セルが含まれる行の高さを変更する
• 全ての行の高さを変更する
• セルの内容に合わせて行の高さを自動調整する
• 関連リンク

この記事では、行の高さを特定の数値に変更したり、セル内の文字や改行などの内容に合わせて変更する方法を解説します。
このプロパティは Double 型で、整数だけでなく小数も指定できます（例：12.5 など）。

目標リスト

• 行の高さを特定の長さへ変更する
• 行の高さを取得する
• 行の高さを自動で調整する

行の高さを取得する

RowHeight を使い、行の高さを取得します。

Sub RowHeightChange2()
    '２行目の高さを 36 に変更する
    Rows("2").RowHeight = 36
    '２行目の高さをイミディエイトウィンドウに表示する
    Debug.Print Rows("2").RowHeight
End Sub

複数の行の高さを変更する

Rows に複数の行を指定して、RowHeight を設定すると、まとめて変更できます。

サンプルコード

Sub RowHeightChange3()
    '２行目から４行目の高さを 42 に変更する
    Rows("2:4").RowHeight = 42
End Sub

【実行結果】
（下の画像のように、２行目から４行目の高さを 42 に変更します）

セルが含まれる行の高さを変更する

Range オブジェクトの EntireRow プロパティを経由してから、 RowHeight プロパティに代入することで、参照元のセルが含まれる行の高さを変更できます。
指定したセルが属する行全体の高さを変更できます。 例えば、Cells(2, 3) は、セルC2を指すため、２行目全体の高さを変更します。

サンプルコード

Sub RowHeightChange4()
    'セルC2 の行（=２行目）の高さを変更する
    Cells(2, 3).EntireRow.RowHeight = 50
End Sub

【実行結果】
（下の画像のように、セルC2 の行（=２行目）の高さを変更します）

全ての行の高さを変更する

Rowsの引数を指定せずに、RowHeight プロパティを続けることで、全ての行の高さを変更できます。
この方法ではシート全体の行の高さが変更されるため、特定の行だけを変更したい場合は範囲を指定してください。

サンプルコード

Sub RowHeightChange5()
    '全ての行の高さを 10.5 に変更する
    Rows.RowHeight = 10.5
End Sub

【実行結果】
（下の画像のように、全ての行の高さを 10.5 に変更します）

セルの内容に合わせて行の高さを自動調整する

AutoFit メソッドを使用することで、行の高さをセル内の文字や改行などの内容に合わせて、行の高さを自動で調整します。 複数の行を自動調整すると、各行ごとに内容に応じた高さに設定されます。

サンプルコード

Sub RowHeightChange6()
    '全ての行の高さを 10.5 に変更する
    Rows.RowHeight = 10.5
    'セルA1、A2にテキストを入力する
    Range("A1") = "Sample"
    Range("A2") = "ExcelVBA"
    '１行目から２行目の行の高さを自動調整する
    Rows("1:2").AutoFit
End Sub

【実行結果】
（下の画像のように、１行目と２行目の行の高さを自動で調整します）

• 列の幅を変更・自動調整・取得する方法

• 【セルの操作】Rangeについて