如何在vba中自动调整行/列？

关键点

• 在 VBA 中，您可以使用AutoFit 方法自动调整行、列，甚至整个工作表。
• 您需要指定范围，然后您可以使用 AutoFit 方法。

自动调整列

假设您想自动调整 A 列，代码如下所示：

 Range("A1").EntireColumn.AutoFit

在上面的代码行中，您使用 EntireColumn 属性来引用单元格 A1 的整个列。

由于您使用的是电子表格，因此您还可以使用 columns 属性并编写如下代码。

 Columns(1).AutoFit

自动拟合直线

同样，您可以编写代码来自动调整线条。假设您想自动调整第 5 行，代码为：

 Range("A5").EntireRow.AutoFit

如果你想使用 row 属性，你可以使用如下代码。

 Rows(5).AutoFit

自动调整UsedRange（行和列）

现在假设您只想自动调整包含数据的列和行。在 VBA 中，有一个名为“已使用范围”的属性可供您使用。所以代码是这样的。

 ActiveSheet.UsedRange.EntireColumn.AutoFit ActiveSheet.UsedRange.EntireRow.AutoFit

如果您想使用特定的电子表格，代码就是。

 Worksheets("Sheet1").UsedRange.EntireColumn.AutoFit Worksheets("Sheet1").UsedRange.EntireRow.AutoFit

自动调整整个工作表

如果您想引用工作表中的所有列和行，可以使用“CELLS”属性。这是代码。

 Worksheets("Sheet1").Cells.EntireColumn.AutoFit Worksheets("Sheet1").Cells.EntireRow.AutoFit

或者你也可以使用VBA的WITH语句来编写如下代码。

 With Worksheets("Sheet1").Cells .EntireColumn.AutoFit .EntireRow.AutoFit End With