スキルアップ・問題解決なら、モーグにおまかせ！

セルの内容に合わせて列幅や行の高さを最適化するにはAutoFitメソッドを使用します。複数の列を指定した場合でも、それぞれの列において最適な列幅に設定します。
また、指定するオフジェクトは行または列を表すものでなければなりません。
次のサンプル1はA列からE列の幅を最適化します。

●サンプル1●

Sub AutoFitSamp1()
    Columns("A:E").AutoFit
'   Range("A:E").AutoFit               '----この記述は×
'   Range("A:E").EntireColumn.AutoFit  '----こちらは○
End Sub

サンプル1では最適化する際「１番広い列幅のセル」の値で最適化している為、1行目のタイトルなど(この場合はA列とします)の参照させたくないセル幅を参照せずに最適化する場合は、サンプル2のようなコードを記述します。

●サンプル2●

Sub AutoFitSamp2()
    Range("A3:E9").Columns.AutoFit	'----1行目は参照していません
'   Range("A3:E9").EntireColumn.AutoFit	'----1行目は参照してしまうので×
End Sub

参照させたくないセル幅を参照せずに、セルA3:E9が最適化されます。