唯一恒久远 发表于 2021-12-21 17:29:00

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

各位大佬，我们公司每天都要统计员工招聘情况，请问如何将各区域招聘情况汇总到一张表中？并能根据各区域招聘情况的变化，总表也能随之变化，谢谢各位大佬！！！

梦回茶山 发表于 2022-1-25 19:58:34

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

用户沈 发表于 2022-1-31 06:46:14

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

哚儿 发表于 2022-2-3 11:36:51

PQ，数据源有更新的话，就刷新一下即可

学会放下自己 发表于 2022-2-17 03:36:33

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

疯了吧 发表于 2022-2-21 05:53:35

POWER QUERY做的

换个角度 发表于 2022-3-14 19:12:40

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

卟傑 发表于 2022-3-29 23:52:45

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