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

この記事では
　・指定した列の列幅を自動調整
　・全ての列の列幅を自動調整
する方法を記載します！

指定した列の列幅を自動調整する
全ての列の列幅を自動調整する
参考

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

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

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

「Columns」に自動調整したい列を指定します。
※上記は「B列」を指定しています。
※「Columns(“B:F”)」のように複数の列の指定もできます。

「AutoFit」メソッドによって自動調整されます。

上記の処理は
　・「Worksheets(“シート名”)」から「Worksheetオブジェクト」を取得して、
　・「Worksheetオブジェクト」の「Columns」プロパティで「Rangeオブジェクト」を取得して、
　・「Rangeオブジェクト」の「AutoFit」メソッドで自動調整する
という流れです。

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

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

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

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

「Worksheets(“XXX”).Cells.EntireColumn」によって、そのシートの「全ての列」を指定できます。

上記の処理は
　・「Worksheets(“シート名”)」から「Worksheetオブジェクト」を取得して、
　・「Worksheetオブジェクト」の「Cells」プロパティで「Rangeオブジェクト」を取得して、
　・「Rangeオブジェクト」の「EntireColumn」プロパティでさらに「Rangeオブジェクト」を取得して、
　・「Rangeオブジェクト」の「AutoFit」メソッドで自動調整する
という流れです。

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