VBA_Excel_教程：表，格

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(1, 1)
　　
    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 = 1 To 2 '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