Excel VBA编程移动和复制工作表

2022-05-19 23:03:13 文档大全网 [ 字体：小中大 ] [ 阅读： ]

【#文档大全网# 导语】以下是®文档大全网的小编为您整理的《Excel VBA编程移动和复制工作表》，欢迎阅读！
复制,编程,移动,工作,Excel
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