Excel VBA 基础教程——With和Parent的使用

Sub 过程名()

ThisWorkbook.Activate
'这个工作簿.激活

ThisWorkbook.Sheets("Sheet1").Select
'这个工作簿.工作表Sheet1.选择

ThisWorkbook.Sheets("Sheet1").Range("A1").Select
'这个工作簿.工作表Sheet1.单元格A1.选择

'等同于：

With ThisWorkbook.Sheets("Sheet1")

    .Parent.Activate
    '这个对象的父对象即ThisWorkbook.激活
    
    .Select
    '这个对象即ThisWorkbook.Sheets("Sheet1").选择
    
    .Range("A1").Select
    '这个对象的子对象Range("A1").选择
    'Range("A1")也可以写成[A1]
    
End With

'With就是为了把点前相同的内容写在一个位置方便修改与阅读

End Sub