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

一、用VBA设置行高和列宽

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

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

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

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

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

Sub SetDefault()
    With ActiveSheet
      .Columns.ColumnWidth = .StandardWidth
      .Rows.RowHeight = .StandardHeight
    End 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