Sub 表和格()

    '定义工作表

    Dim ws As Worksheet

    'get sheet by name【看到的表名，或序号1,2,3，...】，要加Set

    Set ws = Worksheets("表")

    Set ws = Worksheets(1)

    '1，2：单元格内容(页面对应Range，坐标对应Cells)

    Debug.Print ws.Range("B1")

    Debug.Print ws.Cells(, )
　　
    tmp = Cells(1, 1).Value ' 3：变量不用定义，当前写代码的Sheet

End Sub

Sub 遍历所有表()

    For Each ws In Worksheets

        Debug.Print ws.Name

    Next

End Sub

Sub 遍历部分表()

    For i =  To  'i不用定义

        Dim ws As Worksheet

        Set ws = Worksheets(i)

        Debug.Print ws.Name

    Next

End Sub

Sub Book_Sheet()

    Debug.Print "↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓"

    '当前文件

    Debug.Print "文件名  ：" & ThisWorkbook.Name

    Debug.Print "文件路径：" & ThisWorkbook.FullName

    '活动工作簿

    Debug.Print "活动工作薄工作表数：" & ActiveWorkbook.Sheets.Count

    Debug.Print "活动工作薄名      ：" & ActiveWorkbook.Name

    '当前活动工作表

    Debug.Print "当前工作表名             :" & ActiveSheet.Name

    Debug.Print "当前工作表中已使用的行数 :" & ActiveSheet.UsedRange.Rows.Count '至少为1，用的行会越过

    Debug.Print "A列数据区域最后一行的行号:" & ActiveSheet.Range("A65536").End(xlUp).Row 'End(xlUp)：最后一行向上找

End Sub