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

关键点

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

自动调整列

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

 Range("A1").EntireColumn.AutoFit
VBA 自动调整列

在上面的代码行中,您使用 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
自动调整整数工作表代码

添加评论

您的电子邮箱地址不会被公开。 必填项已用 * 标注