如何使用 vba 自动调整列（带有示例）

您可以使用 VBA 中的AutoFit方法自动调整 Excel 工作表中一列或多列的宽度。

以下是在实践中使用此方法的常见方法：

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

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

以下示例展示了如何在实践中使用AutoFit方法。

示例：如何使用 VBA 自动调整列

假设我们在 Excel 中有以下数据集，其中包含有关各种篮球运动员的信息：

假设我们想要自动调整从 A 到 D 的每一列的宽度，使其达到显示每列中最长单元格所需的宽度。

我们可以创建以下宏来执行此操作：

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

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

请注意，每列的宽度已自动调整为显示每列中最长的单元格所需的宽度。

请注意，如果要自动调整特定工作表中的每一列，可以使用以下语法：

 SubAutoFitColumns ()
ThisWorkbook.Worksheets(" Sheet1 ").Cells.EntireColumn.AutoFit
End Sub

这个特定的宏会自动将Sheet1中每列的宽度调整为显示每列中最长单元格所需的宽度。

请注意，所有没有数据的列的宽度将保持不变。

注意：您可以在此处找到 VBA 中AutoFit方法的完整文档。

其他资源

以下教程说明如何在 VBA 中执行其他常见任务：

VBA：如何计算使用的列数
VBA：如何查找最后使用的列
VBA：如何删除列