用VBA设置列宽和行高

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

　　    Sub SetColumnAndRow()

　　    With ActiveWindow.RangeSelection

　　      .ColumnWidth = 3

　　      .RowHeight = 19

　　    End With

　　    End Sub

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

　　    Sub SetColumnAndRow()

　　    With ActiveWindow.RangeSelection

　　      .Columns.AutoFit

　　      .Rows.AutoFit

　　    End With

　　    End Sub

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

　　    Sub SetDefault()

　　    With ActiveSheet

　　      .Columns.ColumnWidth = .StandardWidth

　　      .Rows.RowHeight = .StandardHeight

　　    End With

　　    End Sub