如何：以编程方式在工作簿中移动工作表
可以通过编程方式更改工作簿中工作表相对于其他工作表的位置。如果不为移动的工作表指定位置，Excel 将创建新的工作簿来容纳它。
**适用于：**本主题中的信息适用于 Excel 2013 和 Excel 2010 的文档级项目和应用程序级项目。有关更多信息，请参见按 Office 应用程序和项目类型提供的功能。
在文档级自定义项中移动工作表
将工作簿中的工作表的总数分配给一个变量，然后移动第一个工作表，使其成为最后一个工作表。
Dim totalSheets As Integer = Application.ActiveWorkbook.Sheets.Count Globals.Sheet1.Move(After:=Globals.ThisWorkbook.Sheets(totalSheets))int totalSheets = this.Application.ActiveWorkbook.Sheets.Count; Globals.Sheet1.Move(Globals.ThisWorkbook.Sheets[totalSheets]);
在应用程序级外接程序中移动工作表
将工作簿中的工作表的总数分配给一个变量，然后移动第一个工作表，使其成为最后一个工作表。
Dim totalSheets As Integer = Application.ActiveWorkbook.Sheets.Count CType(Application.ActiveSheet, Excel.Worksheet).Move(After:=Application.Worksheets(totalSheets))int totalSheets = this.Application.ActiveWorkbook.Sheets.Count; ((Excel.Worksheet)Application.ActiveSheet).Move( this.Application.Worksheets[totalSheets]);