如何将多个不同的excel文件放在一个excel文件里

如何将多个不同的excel文件放在一个excel文件里

将要合并的文件copy到一个新文件夹（只有这些Excel，且若打开某一文件，数据就能看见——即不用点其他sheet），建一新Excel，也存到该文件夹。仅打开该新Excel，按Alt+F11，点菜单的插入，模块，粘贴如下代码：
Sub Find()
Application.ScreenUpdating = False
Dim MyDir As String
MyDir = ThisWorkbook.Path & "\"
ChDrive Left(MyDir, 1) 'find all the excel files
ChDir MyDir
Match = Dir$("")
Do
If Not LCase(Match) = LCase(ThisWorkbook.Name) Then
Workbooks.Open Match, 0 'open
ActiveSheet.Copy Before:=ThisWorkbook.Sheets(1) 'copy sheet
Windows(Match).Activate
ActiveWindow.Close
End If
Match = Dir$
Loop Until Len(Match) = 0
Application.ScreenUpdating = True
End Sub

在此界面之间按F5运行此宏，所有表格复制到一个Excel里了。
注意：本操作只合并EXCEL中打开时看到的SHEET。即想要合并哪个sheet,就要在哪个sheet打开时点保存。

在Excel左下角有sheet1、2、3工作表选项卡，如果当前在sheet1工作，需要新
建一个表格，你直接点击sheet2就切换到2工作表了，很方便的。如果需要新增
工作表，按Shfit+F11或点击sheet3旁边的插入新工作表即可。

先打开第一个文件，按住键盘的“Ctrl”键再点击工作表的名称（如“sheet”）向右拖动复制另外一个内容一样但名称不同的工作表（名称可以修改），你有多少个文件就复制多少个表，然后依次打开你的第二个文件，第三个文件。。。，并全选这些内容复制-粘贴到刚刚在第一个文件复制出来的表里边，这样反复制作后就合成一个文件了。

我暂时保留我的看法！

1）把几个excel文件同时都打开；

2）逐个excel文件，sheet标签处右键菜单---移动或复制选项---选中要导入那个excel文件，哪个sheet中，即可。