如何将多个文件合并在一个excel文件中?

Question

如题所述

Answer 1

在excel表格中点击【数据】中的【合并表格】，选择合并方式为【多个工作表合并成一个工作表】。点击【添加文件】，添加完成点击【开始合并】，在【报告】页可看到合并的数据情况。点击【总表】，即可看到合并后的表格内容，详细步骤：

1、打开excel表格，点击菜单栏的【数据】选项。

2、在下方，找到【合并表格】选项并点击。

3、选择合并方式为【多个工作表合并成一个工作表】。

4、之后，点击【添加文件】选项。

5、选择其他的excel表格，点击【打开】。

6、添加完成后，点击【开始合并】选项。

7、合并完成后，在【报告】页可看到合并的数据情况。

8、点击【总表】，即可看到合并后的表格内容。

Answer 2

Sub test()Dim str As StringDim wb As WorkbookDim sht As Worksheetstr = Dir("E:\data\*.xls*")For i = 1 To 100
Set wb = Workbooks.Open("E:\data\" & str) '文件汇总
For Each sht In wb.Sheets
sht.Copy after:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count) 'ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count).Name = Split(wb.Name, ".")(0) & sht.Name
ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count).Name = sht.Name Next

wb.Close str = Dir
If str = "" Then
Exit For
End If
NextEnd Sub