ExcelHome技术论坛

 找回密码
 免费注册
QQ登录 只需一步,快速开始
   
高效办公必会的Office99uu优优 永久免费,网表让Excel秒变数据库 Excel服务器-会Excel,做管理系统 Excel Home精品图文教程库
Excel不给力? 何不试试FoxTable! Excel函数公式学习大典 当当ExcelHome畅销图书满200-100 免费下载Excel行业应用视频
300集Office 2010微99uu优优 Tableau-数据可视化工具 突破Excel限制,用活字格提高效率 12门Excel免费公开课任你学
你的Excel 201099uu优优学习锦囊 欲罢不能, 过目难忘的 Office 新界面 免费的Excel考勤计算系统
楼主: xinlan6
打印 上一主题 下一主题

[求助] 将每个工作表对应姓名的数据汇总

[复制链接]
TA的精华主题TA的得分主题
11
发表于 2018-1-13 23:11 | 只看该作者
哦  版主老师辛苦了   11点了还在帮助别人
TA的精华主题TA的得分主题
12
发表于 2018-1-13 23:13 | 只看该作者
老师  为什么   晚上发的帖子都是      回复需要审核 ,请等待通过
TA的精华主题TA的得分主题
13
发表于 2018-1-14 08:15 | 只看该作者
abc123281 发表于 2018-1-13 23:13
老师  为什么   晚上发的帖子都是      回复需要审核 ,请等待通过

是啊,我们也经常这样的。
TA的精华主题TA的得分主题
14
发表于 2018-1-14 12:02 | 只看该作者
老师   您是版主应该知道原因吧
TA的精华主题TA的得分主题
15
发表于 2018-1-14 12:03 | 只看该作者
TA的精华主题TA的得分主题
16
发表于 2018-1-14 12:04 | 只看该作者
老师  联系总版主修改完善一下吧
TA的精华主题TA的得分主题
17
 楼主| 发表于 2018-1-15 07:28 | 只看该作者
TA的精华主题TA的得分主题
18
发表于 2018-1-15 10:06 | 只看该作者
abc123281 发表于 2018-1-14 12:04
老师  联系总版主修改完善一下吧

审核是必须的,那就一定有延迟现象!大家要相互理解和支持!
TA的精华主题TA的得分主题
19
发表于 2018-1-15 10:33 | 只看该作者
TA的精华主题TA的得分主题
20
发表于 2018-1-15 10:38 | 只看该作者
Sub ddddd()
Dim d As Object, arr, brr(), i%, j%, m%, n%, sh As Worksheet
Set d = CreateObject("scripting.dictionary")
For Each sh In Worksheets
    If sh.Name <> "汇总表" Then
        arr = sh.Range("a7:O" & sh.Cells(Rows.Count, 1).End(xlUp).Row)
        For i = 1 To UBound(arr)
            If Not d.exists(arr(i, 1)) Then
                n = n + 1
                d(arr(i, 1)) = n
                ReDim Preserve brr(1 To UBound(arr, 2), 1 To n)
                For j = 1 To UBound(arr, 2)
                    brr(j, n) = arr(i, j)
                Next
            Else
                m = d(arr(i, 1))
                For k = 2 To UBound(arr, 2)
                brr(k, m) = brr(k, m) + arr(i, k)
                Next
            End If
        Next
    End If
Next
Cells(7, 1).Resize(n, UBound(arr, 2)) = Application.Transpose(brr)
End Sub

评分

参与人数 1鲜花 +2 收起 理由
xinlan6 + 2 感谢帮助
查看全部评分
您需要登录后才可以回帖 登录 | 免费注册
本版积分规则
关闭

最新热点上一条 /1 下一条

关注官方微信,每天学会一个新技能
手机版|关于我们|联系我们|ExcelHome GMT+8, 2018-4-23 11:41 , Processed in 0.072310 second(s), 13 queries , Gzip On, MemCache On.
Powered by Discuz! X3.4 © 2001-2017 Wooffice Inc.
    沪公网安备 31011702000001号 沪ICP备11019229号 本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:徐怀玉律师 李志群律师
快速回复 返回顶部 返回列表
99uu优优