HOME>TOP>セル

セルの内容に合わせて列の幅・行の高さを調節するには？

キーワード>>列幅・行高・AutoFit

Point：セルに入力された内容の長さがわからないのでに合わせて列の幅・行の高さを調節したい。

Sub Test1()

     Range("A1").Value = "これだけ長い文字列を入れれても一発で幅が変わる。"
     'セルA1に長い文字列を入れる

     Range("B1").Value = " "
     'セルB1にスペースを入れて置く。
     '(隣に文字が入っているとすべて表示されない)


     Rows("1").RowHeight = 70
     '行高をわざと大きくしておく。

     MsgBox "列の幅を調節します。"

     Range("A1").EntireColumn.AutoFit
     '列の幅を調節

     MsgBox "行の高さを調節します。"

     Range("B1").EntireRow.AutoFit
'行の高さを調節

End Sub

掲載サンプルコードの使用に関して、直接・間接
を問わず生じた一切の損害について如何なる責任も負いません。