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