设为首页收藏本站
简字体切换切换到宽版

ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步，快速开始

快捷登录

搜索
ExcelHome技术论坛»论坛 › Excel 技术交流与问答 › Excel VBA程序开发 › 12个月的工资表，如何汇总到一张表上
EH技术汇-专业的职场技能充电站 妙哉！函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 效率神器，一键搞定繁琐工作
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
让更多数据处理，一键完成 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
12345678下一页
返回列表 发新帖
查看: 28406|回复: 78

[求助] 12个月的工资表，如何汇总到一张表上

[复制链接]
kiss8852

TA的精华主题

TA的得分主题
发表于 2017-11-9 21:11 | 显示全部楼层 |阅读模式
[广告] ★Excel Home云课堂 - 专业的职场技能充电站★         ★Excel三大利器★        ★ 笨办法学VBA全系列★
我的有12个月的工作表，每张表上人员顺序不同，并且人员也有增减变动，我想做一张汇总表，表头是姓名、1月应发合计（AR列）、2月应发合计......12约应付合计、全年合计
哪位大神能帮我做下，见附件
在线等，谢谢啦
12个月, 工资, 如何, 汇总, 一张

2015年(1).rar

1.22 MB, 下载次数: 212
回复

举报

kiss8852

TA的精华主题

TA的得分主题
 楼主| 发表于 2017-11-9 21:20 | 显示全部楼层
[广告] ★用Excel做企业管理系统，Excel服务器学习和下载★

12个月的工资表，如何汇总到一张表上



我的有12个月的工作表，每张表上人员顺序不同，并且人员也有增减变动，我想做一张汇总表，表头是姓名、1月应发合计（AR列）、2月应发合计......12约应付合计、全年合计
哪位大神能帮我做下，见附件
在线等，谢谢啦

2015年(1).rar

1.22 MB, 下载次数: 168
回复

举报

microyip

TA的精华主题

TA的得分主题
发表于 2017-11-9 21:35 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册★
字典匹配一下即可解决，论坛里有相类似案例可搜索
回复

举报

mmlzh

TA的精华主题

TA的得分主题
发表于 2017-11-9 22:06 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册★
B2
  1. =IFERROR(VLOOKUP($A2,INDIRECT("'15"&TEXT(COLUMN(A:A),"00")&"'!$B:$BF"),MATCH("应发合计",INDIRECT("'15"&TEXT(COLUMN(A:A),"00")&"'!$B$1:$BF$1"),),0),0)
复制代码
右拉，下拉
自行填写人名。
回复

举报

mmlzh

TA的精华主题

TA的得分主题
发表于 2017-11-9 22:10 | 显示全部楼层
[广告] ★用Excel做企业管理系统，Excel服务器学习和下载★
人名可以把12个表的名字复制到一起，再用EXCEL本身的去重功能处理就行。如果人名有重复的，就用编号，相应公式也得改成按编号来。
回复

举报

ahnyt

TA的精华主题

TA的得分主题
发表于 2017-11-9 22:16 | 显示全部楼层
[广告] ★ SPL 插件强化Excel公式搞定Excel难题，远超VBA/Python ★
就是应发合计，是吧
回复

举报

Gawey

TA的精华主题

TA的得分主题
发表于 2017-11-9 22:45 | 显示全部楼层
[广告] ★ SPL 插件强化Excel公式搞定Excel难题，远超VBA/Python ★
看看是否满足你的需求

2015年(1).zip

1.3 MB, 下载次数: 401

评分

1

查看全部评分

回复

举报

melonc365

TA的精华主题

TA的得分主题
发表于 2017-11-9 22:50 | 显示全部楼层
[广告] ★ SPL 插件强化Excel公式搞定Excel难题，远超VBA/Python ★
看见你这数据就头大，VBA就免了，多表联动还是ACCESS好用，用ACCESS做个了，可以参考核对

工资全年汇总.rar

314.97 KB, 下载次数: 318

评分

1

查看全部评分

回复

举报

佛山小老鼠

TA的精华主题

TA的得分主题
发表于 2017-11-10 00:10 | 显示全部楼层
[广告] ★会Excel,就能做支持PC、手机、Web、App、Windows、安卓、IOS、Linux信息一体化的各种管理系统 ★
  1. Option Explicit
  2. Sub 多表提取()
  3.     Dim arr1, Dic, arr2(1 To 10000, 1 To 13), Dic1, a, x, k, 位置, kk
  4.     Set Dic = CreateObject("Scripting.Dictionary")
  5.     Set Dic1 = CreateObject("Scripting.Dictionary")
  6.     For a = 1 To Sheets.Count - 1
  7.         arr1 = Sheets(a).Range("A1").CurrentRegion
  8.         For x = 2 To UBound(arr1)
  9.             If Not Dic1.exists(arr1(x, 2)) Then
  10.                         kk = kk + 1
  11.                         Dic1(arr1(x, 2)) = kk
  12.                          arr2(kk, 1) = arr1(x, 2)
  13.                 End If
  14.             If Not Dic.exists(arr1(x, 2)) Then
  15.                 Dic(arr1(x, 2)) = ""
  16.                 位置 = Application.Match("应发合计", Sheets(a).Range("A1").EntireRow, 0)
  17.                 arr2(Dic1(arr1(x, 2)), a + 1) = arr1(x, 位置)
  18.             Else
  19.                 arr2(Dic1(arr1(x, 2)), a + 1) = arr2(Dic1(arr1(x, 2)), a + 1) + arr1(x, 位置)
  20.             End If
  21.         Next x
  22.         Dic.RemoveAll
  23.     Next a
  24.     Sheets("汇总").Range("A2:M10000").Clear
  25.     Sheets("汇总").[A2].Resize(kk, 13) = arr2
  26. End Sub
  27. Sub 清空()
  28.      Sheets("汇总").Range("A2:M10000").Clear
  29. End Sub
复制代码

2015年(1).rar

1.31 MB, 下载次数: 231
回复

举报

佛山小老鼠

TA的精华主题

TA的得分主题
发表于 2017-11-10 00:12 | 显示全部楼层
[广告] ★ SPL 插件强化Excel公式搞定Excel难题，远超VBA/Python ★
  1. Option Explicit
  2. Sub 多表提取()
  3.     Dim arr1, Dic, arr2(1 To 10000, 1 To 13), Dic1, a, x, k, 位置, kk
  4.     Set Dic = CreateObject("Scripting.Dictionary")
  5.     Set Dic1 = CreateObject("Scripting.Dictionary")
  6.     For a = 1 To Sheets.Count - 1
  7.         arr1 = Sheets(a).Range("A1").CurrentRegion
  8.         For x = 2 To UBound(arr1)
  9.             If Not Dic1.exists(arr1(x, 2)) Then
  10.                         kk = kk + 1
  11.                         Dic1(arr1(x, 2)) = kk
  12.                          arr2(kk, 1) = arr1(x, 2)
  13.                 End If
  14.             If Not Dic.exists(arr1(x, 2)) Then
  15.                 Dic(arr1(x, 2)) = ""
  16.                 位置 = Application.Match("应发合计", Sheets(a).Range("A1").EntireRow, 0)
  17.                 arr2(Dic1(arr1(x, 2)), a + 1) = arr1(x, 位置)
  18.             Else
  19.                 arr2(Dic1(arr1(x, 2)), a + 1) = arr2(Dic1(arr1(x, 2)), a + 1) + arr1(x, 位置)
  20.             End If
  21.         Next x
  22.         Dic.RemoveAll
  23.     Next a
  24.     Sheets("汇总").Range("A2:M10000").Clear
  25.     Sheets("汇总").[A2].Resize(kk, 13) = arr2
  26. End Sub
  27. Sub 清空()
  28.      Sheets("汇总").Range("A2:M10000").Clear
  29. End Sub
复制代码

2015年(1).rar

1.31 MB, 下载次数: 304
回复

举报

下一页 »
12345678下一页
返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2024-9-30 00:29 , Processed in 0.043493 second(s), 13 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

沪公网安备 31011702000001号 沪ICP备11019229号-2

本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！     本站特聘法律顾问：李志群律师

快速回复 返回顶部 返回列表