怎么把多个excel文件合成一个

把多个excel文件合成一个文件的步骤如下：

1、首先将这些excel文件都复制到一个文件夹下。注意，文件夹下不要有其他的excel文件。

2、切换到数据菜单，点击新建查询，选择从文件下的从文件夹。

3、输入刚刚的文件夹路径，点击确定。

4、点击合并下的合并和加载选项。

5、选择要合并的工作表名称，最后点击确定。

6、这就完成了多个excel文件的合并。

怎么把多个excel文件合成一个excel

如何快速合并多个Excel 文件成为一个工作簿？

使用一个VBA就可以进行实现，按照下列步骤进行操作即可成功

前提条件：

1）在电脑桌面位置建立一个文件夹，将需要合并的excel文件都放在这个文件夹下。

2）在文件夹内新建一个Excel文件，然后打开此工作薄。

3）在工作表标签位置点击右键，选择“查看代码”。

4）在打开的VBA编辑窗口中粘贴以下代码：

Private Sub Workbook_Open()Dim FilePath As String, FileName As String, sht As Worksheet, Item As Integer, arr()FilePath = ThisWorkbook.PathSet at = ThisWorkbookSet ata = at.Worksheets(1)kkk = 2FilePath = FilePath & IIf(Right(FilePath, 1) = "\", "", "\")Application.ScreenUpdating = FalseFileName = Dir(FilePath & "*.xls*")DoIf Len(FileName) = 0 Then Exit DoIf FileName <> ThisWorkbook.Name ThenSet booka = Workbooks.Open(FilePath & FileName)xx = booka.Worksheets.CountFor i = 1 To xxSet ta = booka.Worksheets(i)xxx = ta.UsedRange.Rows.Countyyy = ta.UsedRange.Columns.Countta.Activateta.Range(ta.Cells(2, 1), ta.Cells(xxx, yyy)).Selectta.Range(ta.Cells(2, 1), ta.Cells(xxx, yyy)).Copyata.Activateata.Range(ata.Cells(kkk, 1), ata.Cells(xxx, yyy)).Selectata.Range(ata.Cells(kkk, 1), ata.Cells(kkk, yyy)).PasteSpecial Paste:=xlPasteValueskkk = kkk xxx - 1NextApplication.DisplayAlerts = Falsebooka.CloseEnd IfFileName = DirLoopnum = ata.UsedRange.Rows.CountMsgBox "当前工作簿下的全部工作表已经合并完毕！共计" & num & "条数据", vbInformation, "提示"End Sub

5）关闭VBA编辑窗口。

6）在excel中，工具---宏---宏,选“工作薄间工作表合并”,然后“执行”。

7）等待执行即可。