如何把几个文件合在一个excel

如何把几个文件合在一个excel

一、新建一个文件夹,把要合并的表格都放在这个文件夹里;二、打开一个表格,点击数据,功能栏找到获取数据并点击;三、选择自文本,然后选择从文件夹,选择我们新建的文件夹点击打开;四、弹窗中,我们点击组合下拉菜单,选择合并和加载;五、选择工作表1.点击确定,这样多个表格内的数据就合并到一个表格内了。

小编还为您整理了以下内容,可能对您也有帮助:

怎样才能将多个Excel表格的内容合并到一个表格里面?

有多种方法可以将多个Excel表格的内容合并到一个表格里面,以下是其中两种常见的方法:

方法一:使用Excel自带的合并工具

1. 打开一个新的Excel文档,点击“数据”选项卡,在“来自其他来源”一栏中选择“从文本/CSV”选项;

2. 选择要合并的第一个Excel表格,点击“打开”;

3. 在“文本导入向导”中,选择“分隔符”选项,并勾选“制表符”和“逗号”;

4. 点击“下一步”,在“列数据格式”中选择“文本”;

5. 点击“完成”,将数据导入到新的Excel文档中;

6. 重复以上步骤,将其他Excel表格的数据分别导入到新的Excel文档中;

7. 最后,将所有数据复制到同一个工作表中即可。

方法二:使用VBA宏

1. 打开一个新的Excel文档;

2. 点击“开发工具”选项卡,选择“Visual Basic”;

3. 在Visual Basic编辑器中,点击“插入”选项卡,选择“模块”;

4. 将以下代码复制到模块中:

Sub MergeAllWorkbooks()

Dim SummarySheet As Worksheet

Dim FolderPath As String

Dim NRow As Long

Dim FileName As String

Dim WorkBk As Workbook

Dim SourceRange As Range

Dim DestRange As Range

Application.ScreenUpdating = False

Set SummarySheet = ThisWorkbook.Worksheets.Add

FolderPath = InputBox("请输入要合并的文件夹路径:")

If Right(FolderPath, 1) <> "\" Then FolderPath = FolderPath + "\"

FileName = Dir(FolderPath & "*.xls*")

Do While FileName <> ""

Set WorkBk = Workbooks.Open(FolderPath & FileName)

Set SourceRange = WorkBk.Worksheets(1).UsedRange

If NRow = 0 Then

Set DestRange = SummarySheet.Range("A1")

SourceRange.Copy DestRange

Else

Set DestRange = SummarySheet.Range("A" & NRow + 1)

SourceRange.Copy DestRange

End If

NRow = SummarySheet.UsedRange.Rows.Count

WorkBk.Close False

FileName = Dir()

Loop

SummarySheet.Columns.AutoFit

Application.ScreenUpdating = True

End Sub

5. 点击“运行”按钮,输入要合并的Excel表格所在的文件夹路径;

6. 程序将自动遍历该文件夹下的所有Excel表格,将它们的数据合并到新的Excel文档中;

7. 最后,保存新的Excel文档即可。

以上两种方法都能够将多个Excel表格的内容合并到一个表格里面,使用VBA宏的方法相对来说更加自动化和快捷,但需要一定的编程知识。

如何将多个excel文件快速合并到一个excel中呢?

操作设备:戴尔电脑

操作系统:win10

操作软件:Excel2016

1、将需合并的Excel文件放在同一个文件夹中。

2、打开新建的Excel文件,按 Alt + F11 键,打开宏,选择视图→代码窗口。

3、将下面的代码拷贝粘贴到代码窗口中:

Sub sheets2one()

'定义对话框变量

Dim cc As FileDialog

Set cc = Application.FileDialog(msoFileDialogFilePicker)

Dim newwork As Workbook

Set newwork = Workbooks.Add

With cc

If .Show = -1 Then

Dim vrtSelectedItem As Variant

Dim i As Integer

i = 1

For Each vrtSelectedItem In .SelectedItems

Dim tempwb As Workbook

Set tempwb = Workbooks.Open(vrtSelectedItem)

tempwb.Worksheets(1).Copy Before:=newwork.Worksheets(i)

newwork.Worksheets(i).Name = VBA.Replace(tempwb.Name, ".xls", "")

tempwb.Close SaveChanges:=False

i = i + 1

Next vrtSelectedItem

End If

End With

Set cc = Nothing

End Sub

4、点击菜单“运行”—“运行子过程/用户窗体”。

5、在弹出选择对话框中,选择要批量合并的Excel文件,点击“确定”即可合并为一个Excel工作簿。

6、点击“确定”后,运行合并即可。

多个Excel文件怎样合并成一个?

把多个相同格式的Excel表格数据快速的合并到一张表格中,可通过使用“数据链接”功能实现。

具体操作步骤如下:

1、在电脑中打开EXCEL表格,点击数据标签页中的“获取外部数据”,在弹出的选项中点击选择“现有连接”。

2、在弹出的对话框中,点击左下角的浏览更多。

3、找到并点击选择需要合并的表格,然后点击打开。

4、在多个sheet表格中,点击选择需要合并的表格,然后点击确定。

5、弹出导入数据对话框,可使用默认设置,点击下方的确定按钮,重复步骤3、4即可合并多个表格数据。

6、返回EXCEL表格,发现把多个相同格式的Excel表格数据快速的合并到一张表格中操作完成。

如何将多个excel文件的数据汇总到一个表格文件里?

1、首先我们打开需要汇总的excel表格,在表格的下面,重命名一个表格,我们暂且命名为“汇总”。然后我们点击打开数据中的“合并计算”选项。然后我们在弹出来的窗口中的点击引用位置后面的图标。

2、如果是相同格式的Excel表格,可以利用VBA快速将几个工作表中的数据全部汇总到一个工作表中。

3、,新建一个空白的Excel文件,点击数据工具栏,依次选择“新建查询”-“从文件”-“从文件夹”。2,在弹出的对话框中点击浏览选择销售数据所在的文件夹,也可以直接在地址栏中输入文件夹的地址,输入好以后点击确定。

4、打开EXCEL表格,创建一张汇总表格,点击功能区“数据-合并计算”。弹出“合并计算”窗口,点击引用位置右侧的箭头图标,选择需要合并的明细数据。

5、打开excel表格,点击菜单栏的【数据】选项。在下方,找到【合并表格】选项并点击。选择合并方式为【多个工作表合并成一个工作表】。之后,点击【添加文件】选项。选择其他的excel表格,点击【打开】。