VBA_Excel_教程：表，格

Posted 2020-08-21 Andy 胡

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