把文件夹里多个表格（里面有多个sheet）汇总到汇总表里1个表格

空手道帆

把文件夹里多个表格（里面有多个sheet）汇总到汇总表里1个表格
要求：1.sheet的名称要对应所在表格的名称


这份汇总是我自己手工复制的，把a、b、c三个表里的三个sheet合并汇总到一个表里。
因为一个文件夹里有很多表格，所以希望用宏来处理，还请高手解救一下

空手道帆

就像是这样子

opiona

http://club.excelhome.net/thread-1409141-1-1.html

lwwy1981

空手道帆

lwwy1981 发表于 2020-6-7 10:05

不是这种效果

lwwy1981

空手道帆 发表于 2020-6-7 12:58
不是这种效果

我只是举个例子,想要什么效果可以自己随便选

lwwy1981

f8b1987

大致处理流程：
1.工作簿处理——合并工作簿（多表），选择文件夹，合并
2.合并完成后，运行一下VBA代码

1. Sub 添加工作簿名称工作表名称()
   
2.         Dim sht As Worksheet
   
3.         On Error Resume Next
   
4.         For Each sht In Worksheets
   
5.                 With sht
   
6.                         .Columns("A:B").Insert Shift:=xlToRight
   
7.                         .Cells(1, 1) = Left(.Name, InStr(1, .Name, "_") - 1)
   
8.             .Cells(2, 1) = Left(.Name, InStr(1, .Name, "_") - 1)
   
9.                         .Cells(1, 2) = Mid(.Name, InStr(1, .Name, "_") + 1, Len(.Name))
   
10.             .Cells(2, 2) = Mid(.Name, InStr(1, .Name, "_") + 1, Len(.Name))
    
11.                 End With
    
12.         Next sht
    
13. End Sub
    

复制代码

3.合并工作表，不保留标题的话，对应选择标题行数，保留就选0行。


Excel工作圈系列小工具5.2.zip (119.13 KB, 下载次数: 14)

2020-6-7 14:03 上传

点击文件名下载附件

jjmysjg

谢谢分享，学习了

约定的童话

空手道帆 发表于 2020-6-7 12:58
不是这种效果

8楼答案解决了吗？