【Excel VBA】自动调整列宽和行高

自动调整列宽和行高

说明

平常使用Excel的时候，会通过“自动调整列宽”和“自动调整行高”功能，自动调整列宽和行高以适应显示需求。在VBA中如何通过代码实现呢？

代码code

Cells.EntireColumn.AutoFit '所有单元格列宽自动调整
Cells.EntireRow.AutoFit '所有单元格行高自动调整

Columns(1).EntireColumn.AutoFit '仅针对第1列进行列宽自动调整
Rows(1).EntireRow.AutoFit '仅针对第1行进行行高自动调整

Cells(2, 3).EntireColumn.AutoFit '仅对C2单元格(行2、列3）所在的列即第3列进行列宽自动调整
Cells(2, 3).EntireRow.AutoFit '仅对C2单元格(行2、列3）所在的行即第2行进行行高自动调整

解析

这里展示了3种自动调整的方式，代码中除了完成了列宽行高的自动调整功能之外，还展示了行、列、单元格的选取方式。

我个人的编程习惯是尽可能避免使用Range方式，因为使用Range时参数中列标是使用字母的方式，这样在写循环的时候是相当不方便的。