工作表的复制，移动和选定

复制：Worksheets.Copy 方法 (Excel)将工作表复制到工作簿中的另一位置。语法Worksheets.Copy(Before、After)参数名称必需/可选数据类型说明Before可选Variant将要在其之前放置所复制工作表的工作表。After可选Variant将要在其之后放置所复制工作表的工作表。备注如果既不指定 Before 也不指定 After，则 Microsoft Excel 将新建一个工作簿，其中包含复制的工作表。例：Sub sample_Copy() '复制工作表 Sheet1，并将其放置在工作表 Sheet3 之后 Worksheets('Sheet1').Copy After:=Worksheets('Sheet3')End Sub

移动：Worksheets.Move 方法 (Excel)将工作表移到工作簿中的其他位置。语法Worksheets.Move(Before、After)参数名称必需/可选数据类型说明Before可选Variant在其之前放置移动工作表的工作表。After可选Variant在其之后放置移动工作表的工作表。备注如果既不指定 Before 也不指定 After，Microsoft Excel 将新建一个工作簿，其中包含所移动的工作表。例Sub sample_Move()    '此示例将当前活动工作簿的 Sheet1 移到 Sheet3 之后。    Worksheets('Sheet1').Move Before:=Worksheets('Sheet3')End Sub

选定：Worksheets.Select 方法 (Excel)选定工作表。语法Worksheets.Select(Replace)参数名称必需/可选数据类型说明Replace可选Variant仅用于工作表。为 当前所选内容替换为指定的对象。False 来扩展当前选定内容以包括任何以前选定的对象和指定的对象。例Sub sample_Select1()    '同时选定Sheet1，Sheet2，Sheet3    Worksheets('Sheet1').Select Replace:=False Worksheets('Sheet2').Select Replace:=False Worksheets('Sheet3').Select Replace:=FalseEnd Sub执行效果

如果不使用Replace参数，效果会怎样呢？Sub sample_Select1() '选定Sheet1，选定Sheet2，选定Sheet3 Worksheets('Sheet1').Select Worksheets('Sheet2').Select Worksheets('Sheet3').SelectEnd Sub执行效果