在EXCEL里怎样把工作簿里的表单个移出

如果，我想把一表工作簿的表一个一个的移出来，想用一个很简单的方法
我这个工作簿里有很多工作表啊，可不可以不用复制粘贴呢，其它的省事点的办法

将一个EXCEL中的多个sheet表拆分为多个EXCEL表:
按 alt + f11,双击工程资源管理器里面的sheet1(sheet1),在右侧的代码区粘贴如下代码。运行。等候一会就OK了。

Sub SaveToWbk()
Dim sht As Worksheet
For Each sht In Sheets
sht.Copy
ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "" & ActiveSheet.Name
ActiveWorkbook.Close
Next
End Sub

复制，粘贴

两个工作簿不同的数据用相同的格式？可以把需要的格式的工作簿里面全选复制在另一个工作簿里选择性粘贴，选格式，就行。（我用的office2010）

复制 粘贴 打开 删除 那就不知道了

剪切 粘贴 粘贴后用鼠标左键点击粘贴完的表格右下角的粘贴图标，选择后有你想要的效果