行の高さ、列幅を自動調整で設定する。

VBAで入力値に合わせた高さ、幅に行と列を自動調整させるにはRowsプロパティ、ColumnsプロパティのAutoFitメソッドを利用して設定することができます。

自動調整でもセルに設定できる行／列の最大値を超えるを文字が入力された場合はその最大値までしか自動調整されません。
（※）高さ、列の最大値は「高さ：408.75」、「幅：255」となります。(Excel2016調べ)

　●行の高さを自動調整

'******************************************************************
'　行高の自動調整
'******************************************************************
Sub rowAutoFit()

    '1行目の高さを自動調整する
    Sheets("Sheet1").Rows(1).AutoFit
    
    '3-4行目の高さを自動調整する
    Sheets("Sheet1").Rows("3:4").AutoFit

End Sub

　■実行前

　■実行結果

　●列幅を自動調整

'******************************************************************
'　列幅の自動調整
'******************************************************************
Sub colAutoFit()

    'A列の列幅を自動調整する
    Sheets("Sheet1").Columns("A").AutoFit

    'D-F列の列幅を自動調整する
    Sheets("Sheet1").Columns("C:E").AutoFit

End Sub

　■実行前

　■実行結果