如何在VBA中自动调整行/列? |
您所在的位置:网站首页 › excel列宽自动调整快捷键 › 如何在VBA中自动调整行/列? |
关键点 在 VBA 中,您可以使用AutoFit 方法自动调整行、列,甚至整个工作表。您需要指定范围,然后您可以使用 AutoFit 方法。自动调整列假设您想自动调整 A 列,代码如下所示: Range("A1").EntireColumn.AutoFit![]() 在上面的代码行中,您使用 EntireColumn 属性来引用单元格 A1 的整个列。 由于您使用的是电子表格,因此您还可以使用 columns 属性并编写如下代码。 Columns(1).AutoFit![]() 同样,您可以编写代码来自动调整线条。假设您想自动调整第 5 行,代码为: Range("A5").EntireRow.AutoFit![]() 如果你想使用 row 属性,你可以使用如下代码。 Rows(5).AutoFit![]() 现在假设您只想自动调整包含数据的列和行。在 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![]() |
CopyRight 2018-2019 办公设备维修网 版权所有 豫ICP备15022753号-3 |