Sub selectAll()
    ' ActiveSheet 选中当前活动的Sheet
    ' Cells 单元格对象
    ' Select 选中
    ' 选中全部单元格
    ActiveSheet.Cells.Select
    ' 选中指定单元格
    ActiveSheet.Range("A1:B3").Select
    Selection.NumberFormatLocal = "@"
End Sub