合并汇总问题求助

tianting_3699

有一张表格，内有好几张工作簿（实际更多），想要汇总数据，网上找了好多宏都不行，用query也不行，求大神帮忙，谢谢~~~
具体在附件里啦

刀羊

用PowerQuery啊，看看祝老师的教程：

Excel多工作表快速汇总，简单才是硬道理
http://club.excelhome.net/thread-1355796-1-1.html

ykqrs

1. Sub kq()
   
2. Dim ws As Worksheet, r%, wos As Worksheet
   
3. Set wos = Sheets("汇总")
   
4. wos.UsedRange.Offset(2).ClearContents
   
5. For Each ws In Worksheets
   
6. If ws.Name <> "汇总" Then
   
7. r = wos.Cells(wos.Rows.Count, 1).End(xlUp).Row + 1
   
8. With ws
   
9. .[a1].CurrentRegion.Offset(2).Copy wos.Cells(r, 1)
   
10. End With
    
11. End If
    
12. Next
    
13. End Sub
    

复制代码

tianting_3699

刀羊 发表于 2019-1-16 13:02
用PowerQuery啊，看看祝老师的教程：

Excel多工作表快速汇总，简单才是硬道理

用了的，还是不行，说是找不到数据源

ykqrs

代码要审核，见附件 人员信息表求助.rar (20.06 KB, 下载次数: 11)

2019-1-16 13:15 上传

点击文件名下载附件

逍遥之浪子

你的包打不开

tianting_3699

ykqrs 发表于 2019-1-16 13:15
代码要审核，见附件

超级好用，谢谢大神

刀羊

tianting_3699 发表于 2019-1-16 13:14
用了的，还是不行，说是找不到数据源

你截个图看看，

tianting_3699

刀羊 发表于 2019-1-16 14:03
你截个图看看，

可能也是我的版本太低了，谢谢版主&#10048;

tianting_3699

刀羊 发表于 2019-1-16 14:03
你截个图看看，

可能是我office版本太低了，谢谢版主