ExcelHome技术论坛

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

[求助] 将多个工作表中符合条件的数据列在一个总表内

[复制链接]
TA的精华主题TA的得分主题
跳转到指定楼层
1
发表于 2018-1-13 16:39 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
需要一个采购管理excel表格,主要用于未到货的管理
要求:
每一个供应商一个工作表,手动录入数据,数据不断更新
将所有供应商未交货依次列在汇总表中
同供应商、同物料、同规格型号的未到货数量求和
供应商可能会不断新增
汇总表的单位名称超链接至供应商所在的工作表
详见附件

求大神赐教,这要怎么实现
采购管理表格.rar 12.72 KB, 下载次数: 9
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏1 分享分享 有用有用 无用无用
TA的精华主题TA的得分主题
2
发表于 2018-1-13 17:00 | 只看该作者
遍历工作表,用字典加数组进行处理,字典记录序号,数组保存数据,最后写入
TA的精华主题TA的得分主题
3
发表于 2018-1-13 17:39 来自手机 | 只看该作者
一个典型的多表汇总求和的问题,工作表循环,数组十字典轻松搞定,平时做的多了。
TA的精华主题TA的得分主题
4
发表于 2018-1-13 21:22 | 只看该作者
TA的精华主题TA的得分主题
5
发表于 2018-1-14 12:09 | 只看该作者
Sub 汇总()
Set d = CreateObject("scripting.dictionary")
ReDim brr(1 To 10000, 1 To 6)
For Each sh In Worksheets
If sh.Name <> "汇总" Then
arr = sh.[a1].CurrentRegion
For i = 2 To UBound(arr)
t = d(arr(i, 1) & "/" & arr(i, 2) & "/" & arr(i, 3))
If t = "" Then
k = k + 1
d(arr(i, 1) & "/" & arr(i, 2) & "/" & arr(i, 3)) = k
t = k
brr(k, 1) = k
brr(k, 2) = arr(i, 1)
brr(k, 3) = arr(i, 2)
brr(k, 4) = arr(i, 3)
brr(k, 6) = arr(i, 9)
End If
brr(t, 5) = brr(t, 5) + arr(i, 8)
Next i
End If
Next sh
Sheets("汇总").[a4].Resize(k, 6) = brr
End Sub

评分

参与人数 1鲜花 +1 收起 理由
乐乐2006201505 + 1 优秀作品
查看全部评分
TA的精华主题TA的得分主题
6
 楼主| 发表于 2018-1-15 17:13 | 只看该作者 |楼主
本帖最后由 killbygold 于 2018-1-16 08:30 编辑

非常感谢!
把0值的排除就更好了
TA的精华主题TA的得分主题
7
 楼主| 发表于 2018-1-15 17:17 | 只看该作者 |楼主
朱荣兴 发表于 2018-1-14 12:09
Sub 汇总()
Set d = CreateObject("scripting.dictionary")
ReDim brr(1 To 10000, 1 To 6)

谢谢!
还没开始学习VBA
您需要登录后才可以回帖 登录 | 免费注册
本版积分规则
关闭

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

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