Excel VBA编程 移动和复制工作表 对工作表的移动和复制操作不仅可以在同一个工作簿的内部进行，也可以在不同的工作簿之间进行移动或复制操作。 1．移动工作表 移动工作表是指将工作表移到工作簿中的其他位置。在VBA中，可以使用WorkSheet.Move方法来移动工作表。 语法：表达式.Move(Before, After) 其中，在Move方法中，主要包含两个参数，其功能如下： Before 在其之前放置移动工作表的工作表。如果指定了After，则不能指定Before。 After 在其之后放置移动工作表的工作表。如果指定了Before，则不能指定After。 例如，移动“工资表”工作表至Sheet3工作表之后，可以输入以下代码： Sub 移动工作表() Sheets("工资表").Select Sheets("工资表").Move After:=Sheets(3) End Sub 另外，如果既不指定Before也不指定After，Microsoft Excel将新建一个工作簿，其中包含所移动的工作表。例如，输入以下代码，即可新建一个工作簿，且该工作表中包含有“工资表”工作表。 Sub A() Sheets("工资表").Move End Sub 2．复制工作表 复制工作表是指将工作表进行备份，以便于用户对备份文件进行操作时，不会损坏原有文件。在VBA中，使用Sheets.Copy方法可以将工作表复制到工作簿的另一位置。 语法：表达式.Copy(Before, After) 其中，在Copy方法中，包含的两个参数与在Move方法中的参数相似，其参数功能如下： Before 将要在其之前放置所复制工作表的工作表。如果指定了After，则不能指定Before。 After 将要在其之后放置所复制工作表的工作表。如果指定了Before，则不能指定After。 例如，复制“工资表”表格至Sheet3工作表之后，可以输入以下代码： Sub 复制工作表() Sheets("工资表").Select Sheets("工资表").Copy After:=Sheets(3) End Sub 另外，用户还可以在不同的工作簿之间进行复制。例如，将当前工作簿中的“工资表”工作表复制到打开的Book1工作表中，可以输入以下代码： Sub 复制工作表至Book1中() Sheets("工资表").Copy After:=Workbooks("Book1").Sheets(1) End Sub 本文来源：https://www.wddqw.com/doc/e8465692ce2f0066f533228b.html