Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
12
返回列表 发新帖
楼主: 厦门行

请教全年12个月工资表汇总

[复制链接]
 楼主| 发表于 2010-8-13 22:29 | 显示全部楼层

继续请教各位高手        
excel精英培训的微信平台,每天都会发送excel学习教程和资料。扫一扫明天就可以收到新教程
回复

使用道具 举报

发表于 2010-8-14 11:19 | 显示全部楼层
回复

使用道具 举报

发表于 2010-8-15 11:57 | 显示全部楼层

用透视表解决

先用透视表,人员名单就会一次显示出来。 rt7WXfDn.rar (40.86 KB, 下载次数: 272)
回复

使用道具 举报

发表于 2012-3-6 13:26 | 显示全部楼层
学习学习
回复

使用道具 举报

发表于 2016-1-16 20:41 | 显示全部楼层
楼主有没有学会啊,有学会了的话教下我,我也面临同样困扰
回复

使用道具 举报

发表于 2017-1-16 09:55 | 显示全部楼层
fjmxwrs 发表于 2010-8-12 20:32
在汇总表中输入姓名即自动统计该姓名项目

这个用的是什么,求高人指点
回复

使用道具 举报

发表于 2017-1-18 07:45 | 显示全部楼层
在打开公式————合并计算————将各个表格数据添加————最后“标签位置”为最左列,大功告成!
回复

使用道具 举报

发表于 2017-4-6 16:21 | 显示全部楼层
厦门行 发表于 2010-8-12 21:05
年底时,单位需要所有人员的情况,所以最好一下子出来所有人员的汇总。就是发到8月份工资了,汇总表里就自 ...

好久没来了,今天上来看到有人提到这个问题,重新写了一个汇总的代码,一个按钮搞定

  1. Sub test()
  2.     Dim arr, brr(), d1 As Object
  3.     Dim x&, y&, i&, str1$
  4.     Dim she1 As Worksheet
  5.     Set d1 = CreateObject("Scripting.Dictionary")
  6.     Set d2 = CreateObject("Scripting.Dictionary")
  7.     For Each she1 In Worksheets
  8.         If she1.Name <> "汇总" Then
  9.             arr = she1.Range("A4:Y" & she1.Range("A65536").End(xlUp).Row)
  10.             For x = 1 To UBound(arr) - 1
  11.                 str1 = arr(x, 2) & "|" & arr(x, 3) & "|" & arr(x, 4)
  12.                 If Not d1.exists(str1) Then
  13.                     i = i + 1
  14.                     d1(str1) = i
  15.                     ReDim Preserve brr(1 To 25, 1 To i)
  16.                     For y = 2 To 5
  17.                         brr(y, i) = arr(x, y)
  18.                     Next y
  19.                     brr(1, i) = i
  20.                 End If
  21.                 For y = 6 To 25
  22.                     brr(y, d1(str1)) = brr(y, d1(str1)) + arr(x, y)
  23.                 Next y
  24.             Next x
  25.         End If
  26.     Next she1
  27.     With Sheets("汇总")
  28.         .Range("A4:Y65536") = ""
  29.         .Range("A4").Resize(UBound(brr, 2), UBound(brr)) = Application.Transpose(brr)
  30.     End With
  31.     d1.RemoveAll
  32.     Erase arr, brr
  33. End Sub
复制代码


表.rar

41.25 KB, 下载次数: 59

回复

使用道具 举报

发表于 2017-4-6 16:22 | 显示全部楼层
fjy123 发表于 2017-1-16 09:55
这个用的是什么,求高人指点

答案在18楼,这是VBA方法处理的
回复

使用道具 举报

发表于 2020-2-13 13:23 | 显示全部楼层
按人按列汇总
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-3-29 12:55 , Processed in 0.462401 second(s), 12 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

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