Excel中利用VBA设置列宽和行高

Excel中利用VBA设置列宽和行高

如果要用VBA来设置区域的行高和列宽，可以用Range.ColumnWidth 属性和Range.RowHeight 属性，例如下例将选定的区域中各单元格的列宽和行高调整为指定的数值：

Sub SetColumnAndRow()With ActiveWindow.RangeSelection.ColumnWidth = 3.RowHeight = 19End WithEnd Sub

如果要将选定区域内的各单元格的列宽和行高调整为最合适的值，可以用下面的代码：

Sub SetColumnAndRow()With ActiveWindow.RangeSelection.Columns.AutoFit.Rows.AutoFitEnd WithEnd Sub

下面的代码将活动工作表中的所有单元格的行高和列宽恢复为默认值：

Sub SetDefault()With ActiveSheet.Columns.ColumnWidth = .StandardWidth.Rows.RowHeight = .StandardHeightEnd WithEnd Sub

版权声明：本文内容由网络用户投稿，版权归原作者所有，本站不拥有其著作权，亦不承担相应法律责任。如果您发现本站中有涉嫌抄袭或描述失实的内容，请联系我们jiasou666@gmail.com 处理，核实后本网站将在24小时内删除侵权内容。