合并excel不同工作簿同名工作表

今天跟大家分享一下如何合并excel不同工作簿同名工作表,如何将不同工作簿同名表组合成一个工作簿。

1.如下图两个工作簿有两个名称相同的工作表,现在我们想要将相同名称工作表组合成一个工作簿。

2.首先点击下图选项

3.点击【汇总拆分】-【汇总大师】

4.鼠标单击【同名表重组到一簿】,然后选择【开始】

5.将这两个文件拖动到处理框中,然后选择【下一步】、【下一步】

6.勾选【提取全部】,然后点击下一步

7.点击【浏览】设置保存位置,最后点击【开始】

8.完成效果如下图

  • 0
    点赞
  • 1
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
可以使用以下 VBA 代码来实现: ``` Sub MergeExcelSheets() ' 定义变量 Dim folderPath As String Dim fileName As String Dim currentWorkbook As Workbook Dim targetWorkbook As Workbook Dim currentWorksheet As Worksheet Dim targetWorksheet As Worksheet ' 打开目标工作簿 Set targetWorkbook = ThisWorkbook ' 选择包含要合并工作簿的文件夹 folderPath = Application.GetFolder("请选择包含要合并工作簿的文件夹") ' 循环遍历文件夹中的所有Excel文件 fileName = Dir(folderPath & "\*.xlsx") Do While fileName <> "" ' 打开当前工作簿 Set currentWorkbook = Workbooks.Open(folderPath & "\" & fileName) ' 循环遍历当前工作簿中的所有工作 For Each currentWorksheet In currentWorkbook.Worksheets ' 检查是否存在同名工作 If targetWorkbook.Worksheets(currentWorksheet.Name) Is Nothing Then ' 如果不存在,则复制当前工作到目标工作簿中 currentWorksheet.Copy after:=targetWorkbook.Sheets(targetWorkbook.Sheets.Count) Else ' 如果存在,则将当前工作的数据复制到目标工作中 Set targetWorksheet = targetWorkbook.Worksheets(currentWorksheet.Name) currentWorksheet.UsedRange.Copy Destination:=targetWorksheet.Range("A1") End If Next ' 关闭当前工作簿 currentWorkbook.Close SaveChanges:=False ' 继续处理下一个文件 fileName = Dir Loop ' 提示合并完成 MsgBox "已完成合并!" End Sub ``` 在运行代码之前,需要将目标工作簿打开,并将其保存到一个已知的位置。代码会提示您选择包含要合并工作簿的文件夹。它将遍历该文件夹中的所有 Excel 文件,并将它们的指定工作合并到目标工作簿中的同名工作中。如果目标工作簿中不存在同名工作,则会将当前工作复制到目标工作簿中。

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

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

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

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

抵扣说明:

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

余额充值