Excel合并多个工作簿数据

1.新建Excel,选择数据,【获取数据】【从文件夹】

 

2.选择对应的文件夹导入进来,这里的文件夹就是你要合并的工作簿都在里面的文件夹

 

3.选择【转换数据】

 

 

4.双击中【content字段】右上角的符号,选择参数1,确定

 

 

5.数据源默认就展开,点击数据项详情,选择需要的列,确定(会遇到重复数据情况,最后一列true/false选择其一即可去重)

6.数据源默认就展开,把各个工作表数据合并在一起,如无其他调整直接选择【关闭并上载至】。

Ps:后续可将合并数据放置于待合并文件夹,刷新已合并的数据文件即可。

 

 

 

  • 0
    点赞
  • 2
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
以下是一个 VBA 宏示例,可用于合并不同 Excel 文件中的多个工作簿: ```VBA Sub MergeWorkbooks() Dim Path As String, Filename As String, Sheet As Worksheet Dim LastRow As Long, LastColumn As Long, StartRow As Long, StartColumn As Long Dim DestSheet As Worksheet, DestWorkbook As Workbook, SourceWorkbook As Workbook '设置目标工作簿工作表 Set DestWorkbook = ThisWorkbook Set DestSheet = DestWorkbook.Worksheets("Sheet1") '设置源工作簿的路径 Path = "C:\MyFolder\" '循环遍历所有源工作簿 Filename = Dir(Path & "*.xlsx") Do While Filename <> "" '打开源工作簿并复制数据 Set SourceWorkbook = Workbooks.Open(Path & Filename, ReadOnly:=True) For Each Sheet In SourceWorkbook.Worksheets LastRow = Sheet.Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row LastColumn = Sheet.Cells.Find("*", SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column StartRow = DestSheet.Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row + 1 StartColumn = DestSheet.Cells.Find("*", SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column + 1 Sheet.Range(Sheet.Cells(1, 1), Sheet.Cells(LastRow, LastColumn)).Copy DestSheet.Cells(StartRow, StartColumn) Next Sheet '关闭源工作簿 SourceWorkbook.Close False '获取下一个源工作簿的文件名 Filename = Dir() Loop End Sub ``` 在上面的代码中,您需要设置以下内容: - `Path` 变量:指定源工作簿所在的文件夹路径。 - `DestWorkbook` 变量:指定目标工作簿。 - `DestSheet` 变量:指定目标工作表。 请注意,上述代码假定所有源工作簿中的工作表都应合并到目标工作簿的 Sheet1 工作表中。如果您需要将它们合并到不同的工作表中,请使用不同的变量和循环来遍历它们。
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值