VBAでセルの高さと幅を自動調節する

手動で、セルの高さと幅を自動調節するには
セルとセルの境界線にマウスのカーソルを移動させ
下の画像のカーソルになったらダブルクリックします。

例えば、
A列を自動調整したい場合は
A列とB列の間の境界線をダブルクリックします。

1行目の高さを自動調整したい場合は
1行目と2行目の間の境界線をダブルクリックします。

VBAで自動調節するときは
AutFit メソッドを使います。
とりわけ説明することもないので
そのままコードを羅列します。

Sub macro100301a()
'列幅を自動調整する
    Columns("A").AutoFit
End Sub

いちいち範囲を指定するのがめんどくさいような、
１回だけの作業ならこれでもいいのではないでしょうか。

Sub macro100301b()
'すべての列幅を自動調整する
    Columns.AutoFit
End Sub

行の自動調整も同様です。

Sub macro100301c()
'行高さを自動調整する
    Rows(1).AutoFit
End Sub

Sub macro100301d()
'すべての行高さを自動調整する
    Rows.AutoFit
End Sub

次に、Rangeを使って範囲を指定します。

Range("A1:C3").AutoFit

で実行すると次のようなエラーになります。

正しくは次のコードのようにしてください。

Sub macro100301e()
'Rangeを使って
'高さと幅を自動調整する
    Range("A1:C5").Rows.AutoFit
    Range("A1:C5").Columns.AutoFit
End Sub

最後に、UsedRangeを使って
使用しているセルの高さ幅の自動調整をします。

Sub macro100301f()
'使っているセルの高さと幅を自動調整する
    With ActiveSheet.UsedRange
        .Rows.AutoFit
        .Columns.AutoFit
    End With
End Sub

実行前のシートの状態

実行後のシートの状態

使用しているRange("A1:D4")の範囲のセルの
高さと幅が自動調整されました。