【VBA】列幅を自動調整する

指定した列の列幅を自動調整する

ここでは例として、
　・シート「sample」のB列の列幅
を自動調整します。

Sub sample()
    'B列の列幅を自動調整
    Worksheets("sample").Columns("B").AutoFit
End Sub

上記を実行すると、B列の列幅のみが自動調整されます。

全ての列の列幅を自動調整する

ここでは例として、
　・シート「sample」の全ての列の列幅
を自動調整します。

Sub sample()
    '全ての列幅を自動調整
    Worksheets("sample").Cells.EntireColumn.AutoFit
End Sub

上記を実行すると、シート「sample」の全ての列の列幅が自動調整されます。

参考

上記のVBAコードで使用した以下の詳細は、公式サイトをご確認ください。

●「Worksheetsオブジェクト」
「Worksheetオブジェクト」のコレクションです。
「Worksheets(“シート名”)」により、シートの「Worksheetオブジェクト」を取得します。

●「Worksheetオブジェクト」の「Columns」プロパティ

●「Rangeオブジェクト」の「AutoFit」メソッド

●「Worksheetオブジェクト」の「Cells」プロパティ

●「Rangeオブジェクト」の「EntireColumn」プロパティ