Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
查看: 4706|回复: 12

[已解决]怎样用VBA方法把各人员的数据,汇总到,汇总工作表中

[复制链接]
发表于 2014-5-1 00:41 | 显示全部楼层 |阅读模式
怎样用VBA方法把各人员的数据,汇总到,汇总工作表中

各人员的数据都在一个工作薄中,先谢谢各位老师了!

VBA汇总各人员的数据.rar (8.86 KB, 下载次数: 28)
发表于 2014-5-1 02:01 | 显示全部楼层
本帖最后由 跑跑2014 于 2014-5-1 03:23 编辑

用了查询公式  

用了查询公式代码.rar

14.42 KB, 下载次数: 19

评分

参与人数 1 +9 收起 理由
yjwdjfqb + 9 很给力!

查看全部评分

回复

使用道具 举报

发表于 2014-5-1 08:46 | 显示全部楼层    本楼为最佳答案   
  1. Sub Macro1()
  2. Dim arr, brr(1 To 60000, 1 To 5), d, i%, j&, s&, zf$, zf1$
  3. Set d = CreateObject("scripting.dictionary")
  4. For i = 1 To Sheets.Count
  5.     If Sheets(i).Name <> "汇总表" Then
  6.         zf = Mid(Sheets(i).Name, 2, 2)
  7.         x = Application.Match(zf, Sheets(i).[a1:e1], 0)
  8.         arr = Sheets(i).Range("a1").CurrentRegion
  9.         For j = 2 To UBound(arr)
  10.             zf1 = arr(j, 1)
  11.             If Not d.exists(zf1) Then
  12.                 s = s + 1
  13.                 d(zf1) = s
  14.                 brr(s, 1) = arr(j, 1)
  15.                 brr(s, x) = arr(j, x)
  16.             Else
  17.                 brr(d(zf1), x) = arr(j, x)
  18.             End If
  19.         Next
  20.     End If
  21. Next
  22. Sheets("汇总表").Activate
  23. Range("a2:e20000").ClearContents
  24. Range("a2").Resize(s, 5) = brr
  25. End Sub
复制代码

评分

参与人数 1 +9 收起 理由
yjwdjfqb + 9

查看全部评分

回复

使用道具 举报

发表于 2014-5-1 08:47 | 显示全部楼层
………………

VBA汇总各人员的数据.zip

13.6 KB, 下载次数: 41

回复

使用道具 举报

发表于 2014-5-3 17:48 | 显示全部楼层
dsmch 发表于 2014-5-1 08:47
………………

请问老师把工作表名称中”‖和_1“去除代码如何改
回复

使用道具 举报

发表于 2014-5-3 18:11 | 显示全部楼层
Sub Macro1()
Dim arr, brr(1 To 60000, 1 To 5), d, i%, j&, s&, zf$, zf1$
Set d = CreateObject("scripting.dictionary")
For i = 1 To Sheets.Count
    If Sheets(i).Name <> "汇总表" Then
        zf = Sheets(i).Name
        x = Application.Match(zf, Sheets(i).[a1:e1], 0)
        arr = Sheets(i).Range("a1").CurrentRegion
        For j = 2 To UBound(arr)
            zf1 = arr(j, 1)
            If Not d.exists(zf1) Then
                s = s + 1
                d(zf1) = s
                brr(s, 1) = arr(j, 1)
                brr(s, x) = arr(j, x)
            Else
                brr(d(zf1), x) = arr(j, x)
            End If
        Next
    End If
Next
Sheets("汇总表").Activate
Range("a2:e20000").ClearContents
Range("a2").Resize(s, 5) = brr
End Sub
回复

使用道具 举报

发表于 2014-5-3 18:25 | 显示全部楼层
谢谢
回复

使用道具 举报

 楼主| 发表于 2014-5-3 22:32 | 显示全部楼层
dsmch 发表于 2014-5-3 18:11
Sub Macro1()
Dim arr, brr(1 To 60000, 1 To 5), d, i%, j&, s&, zf$, zf1$
Set d = CreateObject("scri ...

老师你好,我也是改了,工作表名称后,按上面 的修改也不对

麻烦老师发个你那儿修改好的附件好吧,谢谢你了老师!
回复

使用道具 举报

发表于 2014-5-4 05:20 | 显示全部楼层
………………

VBA汇总各人员的数据.zip

13.59 KB, 下载次数: 15

评分

参与人数 1 +9 收起 理由
yjwdjfqb + 9 赞一个!

查看全部评分

回复

使用道具 举报

发表于 2014-5-4 08:24 | 显示全部楼层
本帖最后由 张雄友 于 2014-5-4 08:26 编辑
dsmch 发表于 2014-5-4 05:20
………………

如果姓名有相同的不能逐一引用汇总,只能汇总一个人的。因为一个班级中相同姓名的还是有的。

如化学有二个谷子义。

VBA汇总各人员的数据_1.rar

12.25 KB, 下载次数: 3

回复

使用道具 举报

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

本版积分规则

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

GMT+8, 2024-3-29 14:03 , Processed in 0.844070 second(s), 22 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

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