1、开发工具——VB。
2、输入代码:Sub 复制表() Dim MyBook1 As Workbook Set MyBook1 = Workbooks.Open("C:\Users\Administrator\Desktop\工作表1.xls") Sheets("移动表").Select Sheets("移动表").Copy Before:=Workbooks( _ "工作表2.xls").Sheets(1)MyBook1.CloseEnd Sub。
3、开发工具——宏。
4、执行——复制表。
5、如图,复制完成。