ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

   
EH云课堂-专业的职场技能充电站 限时送,魔方网表将Excel变在线系统 Excel服务器-会Excel,做管理系统 Excel Home精品图文教程库
Excel不给力? 何不试试FoxTable! Excel 2016函数公式学习大典 ag娱乐平台手机版高效办公必会的Office实战技巧 免费下载Excel行业应用视频
300集Office 2010微视频教程 Tableau-数据可视化工具 ExcelHome出品 - VBA代码宝免费下载 13门Excel免费公开课任你学
你的Excel 2010实战技巧学习锦囊 欲罢不能, 过目难忘的 Office 新界面 免费的Excel考勤计算系统
查看: 158|回复: 2
打印 上一主题 下一主题

[求助] 求助:excel引用一列数据到一行,及如何平衡调整数据

[复制链接]

ag娱乐平台手机版,  虽然目前MH17航班坠毁的具体原因还不清楚,但飞机残骸和飞行记录器预计将为专家提供足够的线索,帮助其搞清真相。

  中航工业集团透露,该款教练机已经引起外国军方的兴趣。目前,已经有不少国家的空军派出飞行员来中国进行试飞体验,中航工业预计将会赢得不少订单。人民日报评部分城市山寨洋建筑:做到极致也是赝品  系统顶层设计第一个要解决的重大问题就是如何将预警机上的七大分系统、数百套有机结合起来。陆军带领他的团队创新性地采用开放式体系架构,在机载电子的集成中第一次引入网络架构实现数据传输,从而为系统搭建了一个强有力的“骨架”。

TA的精华主题

TA的得分主题

跳转到指定楼层
1
发表于 2019-1-13 00:14 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
1、 数据源中的OSP BIZ中的“Normal Working Hours”常规数字应该是“4”,现在由于各种原因,数据有时不为“4”,是否能通过公式来从Informal中的“Normal Working Hours”中来调整?比如1月2日,OSP行的为2,Informal为69,是否能通过公式调整分别为“4”与“67”?如下图:
  
2、  “统计表”(数据为行显示)需要用到“数据源”(数据为列显示)里的数据,请问如何引用?
  数据源:
  
    统计表:
      

     具体数据详见附件:
      数据源与统计表.zip (16.17 KB, 下载次数: 5)

     非常感谢你的关注与帮助,谢谢你!


ag娱乐平台手机版TA的精华主题

TA的得分主题

2
发表于 2019-1-14 08:33 | 只看该作者
数据源与统计表1.zip (27.26 KB, 下载次数: 1)

'第一个问题是指3、7行全部还是指定列或者有条件?自己修改,,,

Option Explicit

Sub test()
  Dim arr, filename, i, j, m, sum, n
  filename = ThisWorkbook.Path & "\数据源.xlsx"
  If Len(Dir(filename)) = 0 Then MsgBox filename: Exit Sub
  With Workbooks.Open(filename)
    With .ActiveSheet
      .[d3] = 67 '可加条件修改
      .[d7] = 4
      arr = .UsedRange
    End With
    .Close True
  End With
  ReDim brr(1 To UBound(arr, 2) * 2, 1 To UBound(arr, 1) - 2 + 1)
  ReDim sum(2 To UBound(brr, 2))
  For j = 3 To UBound(arr, 2) - 1
    m = m + 1: brr(m, 1) = arr(2, j)
    For i = 3 To UBound(arr, 1)
      brr(m, i - 1) = arr(i, j)
      sum(i - 1) = sum(i - 1) + arr(i, j)
    Next
    If arr(1, j) = "Sat" Then
      n = n + 1: m = m + 1: brr(m, 1) = "Week - " & n
      For i = 2 To UBound(brr, 2): brr(m, i) = sum(i): Next
      ReDim sum(2 To UBound(brr, 2))
    End If
  Next
  With [a5]
    .Resize(Rows.Count - 4, UBound(brr, 2)).ClearContents
    .Resize(m, UBound(brr, 2)) = brr
  End With
End Sub

TA的精华主题

TA的得分主题

3
 楼主| 发表于 2019-1-14 20:01 | 只看该作者
一把小刀闯天下 发表于 2019-1-14 08:33
'第一个问题是指3、7行全部还是指定列或者有条件?自己修改,,,

Option Explicit

非常感谢你的解答!
第一个问题:除周日外,第3、7行;第5、9行也是这样的需求。
可惜那些VB我不会啊,有没有公式可以实现的呢?我是截取了部分数据,还有非常多的数据要对接,而且因为根据日期来的,格式是会改变的吧。
要不我把整体的表格放上来?因为比较复杂,我怕我说不明白。
再一次感谢你。
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

关闭

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

关注官方微信,高效办公专列,每天发车

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2019-1-23 19:06 , Processed in 0.075367 second(s), 15 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 2001-2017 Wooffice Inc.

   

沪公网安备 31011702000001号 沪ICP备11019229号

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:徐怀玉律师 李志群律师

快速回复 ag娱乐平台手机版 返回列表
台渔船遭日本渔船驱赶 业者无奈:不指望台当局 费德勒登《时代》杂志封面 盖茨亲自撰文点赞 这件中国家务事 美国你到底要管到啥时候? 9000万欧!切尔西加入爆红中场争夺战 PK曼联巴黎 朴槿惠审判“拔起萝卜带起泥” 或导致韩政局动荡 肖宇梵:美联储鹰派纪要来袭 黄金走势分析及操作建议 比特币一度跌破8000美元 中国或出台更多禁令 男子开车上坡“神操作”笑喷网友:这段视频值3万 美:朝暂停会谈我们也是才知道 还在准备美朝峰会 白宫炫耀特朗普经济有多牛 结果却把美国拼错了 小威产后首胜直言不可思议 打趣要赶紧回去看女儿 首超500亿美元!马化腾身家已接近马云刘强东之和
坏账攀升 否认ICO的二三四五能否靠区块链突围? 特朗普一条推特致全球市场震荡 油价创3年半新高 伊拉克恐袭事件多发 外交部提醒中国公民暂勿前往 佩工:操心年轻球员头发都白了 我永远是华夏球迷 英媒看伊姆兰-汗:前板球明星要让巴基斯坦巨变 切尔西群星全急了!怕孔蒂瞎摆阵逼走最强王牌 耀才证券陈伟聪:恒指较关键的支持位在31000点 安倍摊上大事了 日民众围堵官邸要求内阁集体辞职 【特写】我的大学同学在币圈赚了几个亿 谁还说浓眉是单核! 身边有俩比保罗强的猛人 优步将在加州测试无人机送餐 调查:美国报社编辑部员工数10年下滑逾4成
\"普特会\"有啥内幕?美国务卿遭议员连番\"拷问\" 格列兹曼力压梅罗当选西甲2月最佳球员 一条路铺大理石后撬掉铺水泥 当地:减少轧坏(图) 日媒:朝鲜表示未撕毁“绑架日本人问题”再查协议 23分钟12+5+4!这支红队缺谁也不能缺他! 尤文利好!伊瓜因或能出战欧冠 已参加球队训练 牙生·司地克当选乌鲁木齐市长(图/简历) 分析师称博通将放弃高通 转而收购Xilinx 8强赛3月13日开打:北京vs辽宁 新疆vs广东 惨!曼城7大将大伤成英超第3多 瓜帅遭遇用人荒 西媒推测:皇马球员状态不佳?为世界杯留力 布雷迪遭调侃长得像特朗普老婆 真有那么像?(图) 北京外援杰克逊确认伤缺5周 季后赛仍有望回归 ag娱乐平台手机版