如何将excel中多个工作簿(sheet)合并到一个工作簿里

Question

不要那种选择复制粘贴的，都需要哪些选项或者设置能把多了工作簿（sheet)合并到一张工作簿（sheet),麻烦大家提供详细的解释说明，本人比较白目，十分感谢了
问下2楼的,VBA在excel能找到么，我用的是2003的，没有找到这个函数，另外你发的那堆代码应该在哪里输入呢，不好意思，我不太明白，谢谢了

Answer 1

打开工作簿，按ALT+F8，在“宏名”里输入字符，如“ABC”。

然后单击“创建”。

会看到如下字符“：

Sub ABC()

End Sub

在两行中间复制进代码，

然后运行即可。

用VBA。 

这个问题以前好像回答过，代码如下： 

Application.ScreenUpdating = False 

MyPath = ActiveWorkbook.Path 

MyName = Dir(MyPath & "\" & "*.xls") 

AWbName = ActiveWorkbook.Name 

Num = 0 

Do While MyName <> "" 

If MyName <> AWbName Then 

Set Wb = Workbooks.Open(MyPath & "\" & MyName) 

Num = Num + 1 

With Workbooks(1).ActiveSheet 

.Cells(.Range("A65536").End(xlUp).Row + 2, 1) = Left(MyName, Len(MyName) - 4) 

For G = 1 To Sheets.Count 

Wb.Sheets(G).UsedRange.Copy .Cells(.Range("A65536").End(xlUp).Row + 1, 1) 

Next 

WbN = WbN & Chr(13) & Wb.Name 

Wb.Close False 

End With 

End If 

MyName = Dir 

Loop 

Range("A1").Select 

Application.ScreenUpdating = True 

MsgBox "共合并了" & Num & "个工作薄下的全部工作表。如下：" & Chr(13) & WbN, vbInformation, "提示"

Answer 2

你所的sheet是工作表
如你sheet1，sheet2有数据，各有2列数据
现在将它们合并到sheet3
在sheet3中
A1=Sheet1!A1,向右填充一各单元格，再向下填充
A3=Sheet1!A1,向右填充一各单元格，再向下填充

Answer 3

右击sheet的标签，选择移动或者复制到