如何在 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 。

方法三：自动调整多列宽度

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

该特定宏会自动将 B 到 D 范围内每列的宽度调整为显示每列中最长单元格所需的宽度。

以下示例展示了如何在 Excel 中使用以下数据集来实际使用这些方法：

示例 1：更改列的宽度

我们可以创建以下宏将 B 列的宽度更改为 20：

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

当我们运行这个宏时，我们会收到以下输出：

请注意，只有 B 列（“Points”列）的宽度更改为 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：如何删除列