Vba で列幅を変更する方法 (例付き)

VBA を使用して Excel の列幅を変更するには、次の方法を使用できます。

方法 1: 列の幅を変更する

 SubChangeColumnWidth ()
Columns(" B ").ColumnWidth = 20
End Sub

この特定のマクロは、列 B の幅を20に変更します。

注: Excel のデフォルトの列幅は8.29です。

方法 2: 複数の列の幅を変更する

 SubChangeColumnWidth ()
Columns(" B:D ").ColumnWidth = 20
End Sub

この特定のマクロは、 B から D までの範囲のすべての列の幅を20に変更します。

方法 3: 複数の列の幅を自動的に調整する

 SubChangeColumnWidth ()
Columns(" B:D ").AutoFit
End Sub

この特定のマクロは、B ～ D の範囲の各列の幅を、各列の最も長いセルを表示するのに必要な幅に自動的に調整します。

次の例は、Excel の次のデータ セットでこれらの各メソッドを実際に使用する方法を示しています。

例 1: 列の幅を変更する

次のマクロを作成して、列 B の幅を 20 に変更できます。

 SubChangeColumnWidth ()
Columns(" B ").ColumnWidth = 20
End Sub

このマクロを実行すると、次の出力が表示されます。

列 B (「ポイント」列) の幅のみが 20 に変更され、他のすべての列の幅は同じままであることに注意してください。

例 2: 複数の列の幅を変更する

次のマクロを作成して、列 B ～ D の幅を 20 に変更できます。

 SubChangeColumnWidth ()
Columns(" B:D ").ColumnWidth = 20
End Sub

このマクロを実行すると、次の出力が表示されます。

B から D までの各列の幅は 20 に変更されていますが、列 A の幅は同じままであることに注意してください。

例 3: 複数の列の幅を自動的に調整する

次のマクロを作成して、各列の幅を A から D まで自動的に調整し、各列に最も長いセルを表示するのに必要な幅になるようにします。

 SubChangeColumnWidth ()
Columns(" A:D ").AutoFit
End Sub

このマクロを実行すると、次の出力が表示されます。

各列の幅は、各列に最も長いセルを表示するために必要な幅になるように自動的に調整されていることに注意してください。

追加リソース

次のチュートリアルでは、VBA で他の一般的なタスクを実行する方法について説明します。

VBA: 使用されている列の数を数える方法
VBA: 最後に使用された列を見つける方法
VBA: 列を削除する方法