Excel VBA 43 Excelで選択した行の高さを一括変更

書式設定で処理出来ますが、Excelで選択した行の高さを一括変更します。

Sub SetSelectedRowsHeight()

Dim rng As Range

Dim row As Range

Dim height As Double

' ユーザーに行の高さを入力させる

height = InputBox("設定する行の高さを入力してください",

        "行高さ設定", 20)

' ユーザーがキャンセルした場合は処理を中断

If height = 0 Then Exit Sub

' 選択範囲を取得

Set rng = Selection

' 選択範囲の各行に適用

For Each row In rng.Rows

row.RowHeight = height

Next row

MsgBox "選択範囲の行の高さを " & height &

        " に設定しました。", vbInformation, "設定完了"

End Sub

変更したい行を選択し・・・

マクロを起動すると変更したい行の入力パレットが表示されます。値20はデフォルトの幅です。

任意変更して［OK］すれば・・・

指定した行に変更されます。