Question

怎么把一个excel的工作表的内容拷贝到另外一个新建工作表中

怎么把一个excel的工作表的内容拷贝到另外一个新建工作表中，记得一定要另外一个已经新建好了的工作表。

Answer 1

点击行号上面那个空格（即1上面那个，也就是A左边那个），就会选择了整个表，然后“复制”，去到新表“粘贴”，就可以了。

其实还有一个方法的，就是先别新建表。在旧表那里右击表下面的标签，选“移动或复制工作表”，然后选要新建工作表的工作簿和位置，将最下面的“建立副本”勾选上。就可以了。

Answer 2

'下面代码把c:\1.xls中Sheet1工作表的内容拷贝到另外一个新建工作表中，并保存为“c:\2.xls”

Private Sub Command1_Click()
Dim S() As String, i As Integer, j As Integer
Dim xlApp
Dim xlBook
Dim xlSheet
Set xlApp = CreateObject("Excel.Application") '创建EXCEL对象
xlApp.DisplayAlerts = False '不显示对话框
Set xlBook = xlApp.Workbooks.open("c:\1.xls") '打开已经存在的EXCEL工件簿文件
xlApp.Visible = True '设置EXCEL对象可见（或不可见）
Set xlSheet = xlBook.Worksheets("Sheet1") '设置活动工作表
xlSheet.Cells.Select
xlSheet.Cells.Copy
xlApp.Workbooks.Add
xlApp.ActiveSheet.Paste
xlApp.Application.CutCopyMode = False
xlApp.ActiveWorkbook.SaveAs FileName:="c:\2.xls" '保存工作表,结束时一定别忘了保存
xlBook.Close (True) '关闭工作簿 这里的True表示退出时保存修改
xlApp.Quit '结束EXCEL对象
Set xlApp = Nothing '释放xlApp对象
End Sub

Answer 3

鼠标放在excel最左面的序号栏上，把工作表中的相应的内容选取--复制，然后在新工作表上用同样方法选取粘贴位置，粘贴就ok了。

注意一点，新工作表中选取粘贴位置时，所选的位置一定要比复制的东西的位置大，刚好也行，但是不能小。

这是我自己最爱用的方法，你看行不？

Answer 4

把两个工作簿都打开，右键单击要复制的工作簿，选择移动或者复制工作表，在复制的选项上打勾，选择复制的位置，下拉选项中就有你已经建好的工作簿了，确认就OK

Answer 5

格式一样的话 你把要拷的单元格都一次性选中 然后复制 到建好的表中的第一个单元格点右键粘贴