VBA～列の幅を設定しよう～Excel

Columns.ColumnWidthプロパティ

Columns.ColumnWidthプロパティを使う方法です。Columns(列番号).ColumnWidth = 幅で指定した列の幅を変更できます。下のコードを実行するとA列の幅が4.25になります。

Sub test1()
Columns(1).ColumnWidth = 4.25
End Sub

Range.ColumnWidthプロパティ

Range.ColumnWidthプロパティを使う方法です。Range(セル番地).EntireColumn.ColumnWidth = 幅で指定したセルの列の幅を設定できます。下のコードを実行するとA列の幅が4.25 になります。

Sub test2()
Range("A1").EntireColumn.ColumnWidth = 4.25
End Sub

複数列の幅を設定

複数列の幅を設定したい場合はColumns("開始列のアルファベット:終了列のアルファベット").ColumnWidth= 幅で設定できます。下のコードを実行するとA列からC列の幅が4.25になります。

Sub test3()
Columns("A:C").ColumnWidth = 4.25
End Sub

非連続列の幅を設定

非連続列の幅を設定したい場合はRange("1つ目の幅を設定したい列のアルファベット:1つ目の幅を設定したい列のアルファベット,2つ目の幅を設定したい列のアルファベット:2つ目の幅を設定したい列のアルファベット").ColumnWidth= 幅で設定できます。3つ4つと設定することもできます。下のコードを実行するとA列とC列の幅が4.25になります。

Sub test4()
Range("A:A,C:C").ColumnWidth = 4.25
End Sub