5.3.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("工資表").MoveEnd Sub

複製工作表是指將工作表進行備份，以便於使用者對備份檔案進行操作時，不會損壞原有檔案。 在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

VBA程式設計神器 VBA程式碼助手 可以極大提高程式設計速度，降低程式設計門檻歡迎使用

VBA密碼破解 程式碼混淆保護加密 程式碼庫輸入提示

本提示資料庫可完全自定義!