VBA～行の高さを設定しよう～Excel

Rows.RowHeightプロパティ

Rows.RowHeightプロパティを使う方法です。Rows(行番号).RowHeight = 高さで指定した行の高さを変更できます。下のコードを実行すると行1の高さがデフォルトの18.75の倍の37.5になります。

Sub test1()
Rows(1).RowHeight = 37.5
End Sub

Range.RowHeightプロパティ

Range.RowHeightプロパティを使う方法です。Range(セル番地).EntireRow.RowHeight = 高さで指定したセルの行の高さを設定できます。下のコードを実行すると行1の高さがデフォルトの18.75の倍の37.5になります。

Sub test2()
Range("A1").EntireRow.RowHeight = 37.5
End Sub

複数行の高さを設定

複数行の高さを設定したい場合はRows("開始行の番号:終了行の番号").RowHeight= 高さで設定できます。下のコードを実行すると行1から行3の高さがデフォルトの18.75の倍の37.5になります。

Sub test3()
Rows("1:3").RowHeight = 37.5
End Sub

非連続行の高さを設定

非連続行の高さを設定したい場合はRange("1つ目の高さを設定したい行の番号:1つ目の高さを設定したい行の番号,2つ目の高さを設定したい行の番号:2つ目の高さを設定したい行の番号").RowHeight= 高さで設定できます。3つ4つと設定することもできます。下のコードを実行すると行1と行3の高さがデフォルトの18.75の倍の37.5になります。

Sub test4()
Range("1:1,3:3").RowHeight = 37.5
End Sub