Excel精英培训网

 找回密码
 注册

QQ登录

只需一步,快速开始

工作中常用的Excel函数公式,全印在一张超大鼠标垫上
查看: 304|回复: 3

[已解决] 数据不多但汇总难度看似很大,求解?

[复制链接]
发表于 2019-12-10 15:56 | 显示全部楼层 |阅读模式
本帖最后由 ruhong18 于 2019-12-10 17:04 编辑

把12个工作表中指定黄色部分下面三行的数据,汇总到"汇总"表

汇总.zip

58 KB, 下载次数: 15

发表于 2019-12-10 16:42 | 显示全部楼层
先给你回一条信息:这个好简单的。
过会给你代码。
回复

使用道具 举报

发表于 2019-12-10 16:59 | 显示全部楼层
代码来了,放在“汇总”表里面执行:

Range("b3:m14").ClearContents
For i = 2 To Worksheets.Count
    js = 0
    For k = 1 To Worksheets(i).[b10000].End(3).Row
        If Worksheets(i).Cells(k, 2) = "本月刷毛" Then
           js = k
           Exit For
        End If
    Next k
    If js > 0 Then
       s = Mid(Worksheets(i).Name, 6, 2)
       hs = IIf(s = "01", 14, Val(s) + 1)
       Cells(hs, 2) = Worksheets(i).Cells(js + 1, "e")
       Cells(hs, 3) = Worksheets(i).Cells(js + 2, "e")
       Cells(hs, 4) = Worksheets(i).Cells(js + 3, "e")

       Cells(hs, 5) = Worksheets(i).Cells(js + 1, "d")
       Cells(hs, 6) = Worksheets(i).Cells(js + 2, "d")
       Cells(hs, 7) = Worksheets(i).Cells(js + 3, "d")

       Cells(hs, 8) = Worksheets(i).Cells(js + 1, "b")
       Cells(hs, 9) = Worksheets(i).Cells(js + 2, "b")
       Cells(hs, 10) = Worksheets(i).Cells(js + 3, "b")

       Cells(hs, 11) = Worksheets(i).Cells(js + 1, "g")
       Cells(hs, 12) = Worksheets(i).Cells(js + 2, "g")
       Cells(hs, 13) = Worksheets(i).Cells(js + 3, "g")
    End If
Next i


最后两列还有两个汇总,你自己设置个sum公式求和就行了,这个不需要代码做;

评分

参与人数 1学分 +2 收起 理由
ruhong18 + 2 学习

查看全部评分

回复

使用道具 举报

 楼主| 发表于 2019-12-10 17:04 | 显示全部楼层
hfwufanhf2006 发表于 2019-12-10 16:59
代码来了,放在“汇总”表里面执行:

Range("b3:m14").ClearContents

膜拜大师,代码测试正解!多谢相助~
回复

使用道具 举报

*滑块验证:
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2020-9-19 14:28 , Processed in 0.050000 second(s), 9 queries , Gzip On, Redis On.

Powered by Discuz! X3.4

© 2001-2017 Comsenz Inc.

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