[VBA] 设置行高和列宽，以及全选单元格

一、用VBA设置行高和列宽

　　1、将选定区域内各单元格的行高和列宽设置为指定的数值：  

Sub SetSpecified()With ActiveWindow.RangeSelection.ColumnWidth = 2.RowHeight = 10End With
End Sub

　　2、将选定区域内各单元格的行高和列宽调整为最合适的值：  

Sub SetAutoFit()With ActiveWindow.RangeSelection.Columns.AutoFit.Rows.AutoFitEnd With
End Sub

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

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

 二、用VBA全选单元格

　　1、选择所有单元格（Cells是所有单元格的集合）

Sub SelectAllCells()Cells.Select
End Sub

　　2、选择所有行（Rows是所有行的集合）

Sub SelectAllRows()Rows.Select
End Sub

　　3、选择所有列（Columns是所有列的集合）

Sub SelectAllColumns()Columns.Select
End Sub