如何将多张分表汇总到一张表中？

唯一恒久远

各位大佬，我们公司每天都要统计员工招聘情况，请问如何将各区域招聘情况汇总到一张表中？并能根据各区域招聘情况的变化，总表也能随之变化，谢谢各位大佬！！！
2022年人员信息统计表（合并）1.rar (29.26 KB, 下载次数: 13)

2021-12-21 17:29 上传

点击文件名下载附件
2022年人员信息统计表（合并）1.rar

梦回茶山

Sub lll()
  Dim sht As Worksheet
  Dim i, k, m As Integer
  
  Worksheets("实现效果").Range("a3:af10000").Clear
  For Each sht In Sheets
  If sht.Name <> "实现效果" Then
    k = Sheets("实现效果").Cells(Rows.Count, 2).End(xlUp).Row
    i = sht.Cells(Rows.Count, 2).End(xlUp).Row
    sht.Range("b3:ae" & i).Copy Worksheets("实现效果").Range("b" & k + 1)
  End If
  Next
  For m = 1 To k
  Worksheets("实现效果").Range("a" & m + 2) = m
  Next
End Sub

用户沈

百度一下 "Power Query合并表格"

哚儿

PQ，数据源有更新的话，就刷新一下即可
2022年人员信息统计表（合并）1.zip (47.24 KB, 下载次数: 41)

2021-12-21 17:29 上传

点击文件名下载附件
2022年人员信息统计表（合并）1.zip

学会放下自己

大佬，你是怎么实现这个效果的？没有看到函数写法呢？求解？谢谢大佬！

疯了吧

POWER QUERY做的

换个角度

谢谢大佬！我对VB还不太熟悉，还要加强学习这方面知识

卟傑

大佬，你好！上午学习了下PQ用法，但实际操作过程中出现了几个问题，不能做出和大佬一样的效果，麻烦大佬指导下！
1.首行出现的Column1.2...这一行怎么可以不出现
2.序号，分配单位这一标题行重复出现，怎么可以只出现在首行
3.右侧出现了错误，要怎样避免
4.我是新建了一个表格来完成合并的，要怎样在原表上完成合并呢？
问题有点多，麻烦大佬啦！