如何在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
什么是VBA
相关教程
- 在 Excel 中使用 VBA 计算行数
- Excel VBA 字体(颜色、大小、类型和粗体)
- Excel VBA 隐藏和显示列或行
- Excel VBA 范围 – 使用范围和单元格
- 在 Excel 中使用 VBA 将边框应用于单元格