PowerQuery-合并工作簿

PowerQuer合并多个工作簿操作步骤

一、导入数据
数据——>获取数据——>来自文件(根据实际来源导入数据)
在这里插入图片描述
转化数据进行处理
在这里插入图片描述

二、处理数据
删除列
在这里插入图片描述
新增自定义列
在这里插入图片描述
自定义列保留Data数据
在这里插入图片描述
取消勾选使用原始列名作为前缀(后面会将第一行作为标题)
在这里插入图片描述
将第一行用作标题并删除前两列
在这里插入图片描述
过滤掉异常值
在这里插入图片描述

三、保存数据
关闭上载到额excel进行后续操作
在这里插入图片描述

  • 2
    点赞
  • 1
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
在 VBA 中合并多个工作簿可以通过以下步骤实现: 1. 打开一个新的空白工作簿 2. 创建一个变量来存储所有要合并工作簿的文件名(路径) 3. 循环遍历每个文件名,打开工作簿并将其内容复制到新工作簿中 4. 关闭所有要合并工作簿 下面是一个示例代码: ```vb Sub MergeWorkbooks() Dim MyPath As String Dim FilesInPath As String Dim MyFiles() As String Dim SourceWorkbook As Workbook Dim DestWorkbook As Workbook Dim LastRow As Long '设置要合并工作簿所在的文件夹路径 MyPath = "C:\Users\Username\Desktop\Workbooks\" '获取所有要合并工作簿的文件名 FilesInPath = Dir(MyPath & "*.xlsx") Do While FilesInPath <> "" If FilesInPath <> ThisWorkbook.Name Then ReDim Preserve MyFiles(0 To UBound(MyFiles) + 1) MyFiles(UBound(MyFiles)) = MyPath & FilesInPath End If FilesInPath = Dir() Loop '打开新工作簿并复制所有工作簿的内容到其中 Set DestWorkbook = Workbooks.Add(xlWBATWorksheet) For Each File In MyFiles Set SourceWorkbook = Workbooks.Open(File) LastRow = DestWorkbook.Sheets(1).Cells(Rows.Count, 1).End(xlUp).Row SourceWorkbook.Sheets(1).Range("A1").CurrentRegion.Copy _ DestWorkbook.Sheets(1).Range("A" & LastRow + 1) SourceWorkbook.Close SaveChanges:=False Next File '保存合并后的工作簿并关闭 DestWorkbook.SaveAs Filename:=MyPath & "MergedWorkbooks.xlsx" DestWorkbook.Close SaveChanges:=True End Sub ``` 在上面的代码中,将要合并工作簿所在的文件夹路径存储在变量 `MyPath` 中。然后使用 `Dir` 函数获取所有要合并工作簿的文件名,并将它们存储在数组 `MyFiles` 中。接下来,使用 `Workbooks.Add` 方法打开一个新的工作簿,并使用 `For Each` 循环遍历数组中的每个文件名。在循环中,使用 `Workbooks.Open` 方法打开每个工作簿,并将其内容复制到新工作簿中。最后,使用 `SaveAs` 方法将新工作簿保存到指定路径,并使用 `Close` 方法关闭它。

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

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

抵扣说明:

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

余额充值