excel合并多个工作表_excel多个工作表合并一个表 Merge Excel Files

办公小伙伴必备一款小巧精致的工具,真的非常好用,大大提高效率 如一些繁琐的excel工作簿竟然有150多个sheet页工作表,需要每一页每一页的筛查数据...这样你是不是回崩溃,但是你真是手工一页一页的最起码一个星期,但是有这款Merge Excel Files 也是就是一个小时工作量就完成了!

使用说明:针对很多sheet页,每一页数据类似,适合综合分析的场景最适合不过,下图就是使用方式

420857de16d95e7f961f993ae439ae65.png

7bacf1b635e9b11686f7e279fd02b9a9.png

下载地址:https://590m.com/file/9996522-450598858

  • 0
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
您可以使用VBA编写一个宏来合并多个Excel文件的不同工作到同一个Excel文件中。以下是一个示例代码: ```VBA Sub MergeWorksheets() Dim path As String Dim currentWB As Workbook, targetWB As Workbook Dim currentWS As Worksheet, targetWS As Worksheet Dim currentRow As Long, lastRow As Long '选择目标工作簿 Set targetWB = Application.Workbooks.Open("C:\TargetWorkbook.xlsx") '选择源工作簿所在文件夹 path = Application.GetOpenFilename(filefilter:="Excel Files (*.xls*),*.xls*", Title:="Select Files to Merge", MultiSelect:=True) '循环遍历每个源工作簿中的每个工作 For i = LBound(path) To UBound(path) Set currentWB = Application.Workbooks.Open(path(i)) For Each currentWS In currentWB.Worksheets '在目标工作簿中添加新工作 Set targetWS = targetWB.Worksheets.Add(After:=targetWB.Worksheets(targetWB.Worksheets.Count)) '将当前工作的数据复制到目标工作簿的新工作中 currentWS.UsedRange.Copy targetWS.Range("A1") '调整目标工作的格式 With targetWS .Cells.EntireColumn.AutoFit lastRow = .Cells.Find("*", searchorder:=xlByRows, searchdirection:=xlPrevious).Row .ListObjects.Add(xlSrcRange, Range("A1:D" & lastRow), , xlYes).Name = "Table1" .ListObjects("Table1").TableStyle = "TableStyleMedium2" End With Next currentWS '关闭源工作簿 currentWB.Close False Next i '保存目标工作簿 targetWB.Save '关闭目标工作簿 targetWB.Close End Sub ``` 在运行此宏之前,请确保将目标工作簿的文件路径更改为您要将工作合并到的实际文件路径。您还可以根据需要进行其他格式更改。
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

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

抵扣说明:

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

余额充值