ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

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

[已解决] 获取单元格对应数据的问题(cpez)

[复制链接]

ag娱乐平台手机版,  “在飞行院校新成立两支飞行表演队,旨在搭建一个国际化交流平台,推动军事教育开放、交流、合作,适应不断变化的世界。”空军司令部军训部副部长赵敬波说:“3支飞行表演队可相互借鉴、共同提高,更好地向国人传播空天文化,增强社会各界对国家空天利益、空天安全的关注!”

  现在,微博网友@熊本科技曝光了一加5的工程机和部分配置,其中最值得关注的后置双摄像头已经确定无疑,位于背部左上角、水平排列,工程机背部可以看到明显的对应开孔,而并非此前流传的中部垂直排列。这也意味着,现在网上的一加5渲染图都是假的。的哥连续十年接送老人去医院透析:答应了就不反悔  蔡团结对此表示,的确有的城市部分区域已经出现了一些车辆过剩现象。这在各城市间存在差异,用户需求量、通行条件、停放条件、投放现状等方面都不尽相同。例如,有些区域的“超负荷”现象可能是运营企业的组织管理、车辆调度等线下服务能力不足造成的局部区域、局部时间短期过剩,并不单纯是投放总量的问题;有些则是企业投入量过大造成的,需要区别对待。

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

TA的得分主题

跳转到指定楼层
1
发表于 2019-1-13 08:02 | 只看该作者 |只看大图 回帖奖励 |倒序浏览 |阅读模式
本帖最后由 wwww32323 于 2019-1-14 08:42 编辑


如图的课程表,想在sheet2得到


或者得到



每一科目对应的班级(一班是1,二班是2,三班是3,。。。,十六班是16),时间(周一是1,周二是2,周三是3。。。),节次(图二中星期一、星期二。。。下边的数字就是节次)

课表问题.rar (7.81 KB, 下载次数: 1)

课表问题.rar

7.81 KB, 下载次数: 1

TA的精华主题

TA的得分主题

2
发表于 2019-1-13 09:40 | 只看该作者
本帖最后由 microyip 于 2019-1-13 12:50 编辑
  1. Sub Result()
  2.     Dim vData As Variant, nRow As Integer, nCol As Integer, nPart As Integer
  3.     Dim nWeek As Integer, nClass As Integer, sSubject As String
  4.     Dim dicClass As Object, dicWeek As Object
  5.     Dim vFill As Variant, nFill As Integer, nI As Integer
  6.    
  7.     Set dicWeek = CreateObject("Scripting.Dictionary")
  8.     vData = Split("星期一,星期二,星期三,星期四,星期五,星期六,星期日", ",")
  9.     For nPart = 0 To UBound(vData)
  10.         dicWeek(vData(nPart)) = nPart + 1
  11.     Next

  12.     Set dicClass = CreateObject("Scripting.Dictionary")
  13.     vData = Split("一,二,三,四,五,六,七,八,九,十,十一,十二,十三,十四,十五,十六,十七,十八,十九,二十", ",")
  14.     For nPart = 0 To UBound(vData)
  15.         dicClass(vData(nPart)) = nPart + 1
  16.     Next
  17.    
  18.     ReDim vFill(1 To 4, 1 To 1)
  19.     vData = Sheets("课程表").UsedRange.Value
  20.     For nRow = 3 To UBound(vData)
  21.         If dicClass.Exists(Trim(vData(nRow, 1))) Then
  22.             nClass = dicClass(Trim(vData(nRow, 1)))
  23.             For nCol = 2 To UBound(vData,2)
  24.                 sSubject = Trim(vData(nRow, nCol))
  25.                 If sSubject <> "" Then
  26.                     If dicWeek.Exists(Trim(vData(1, nCol))) Then nWeek = dicWeek(Trim(vData(1, nCol)))
  27.                     nPart = Val(vData(2, nCol))
  28.                     nFill = nFill + 1
  29.                     ReDim Preserve vFill(1 To 4, 1 To nFill)
  30.                     vFill(1, nFill) = sSubject
  31.                     vFill(2, nFill) = nClass
  32.                     vFill(3, nFill) = nWeek
  33.                     vFill(4, nFill) = nPart
  34.                 End If
  35.             Next
  36.         End If
  37.     Next
  38.    
  39.     If nFill > 0 Then
  40.         Application.ScreenUpdating = False
  41.         With Sheets("课表结果")
  42.             .UsedRange.Offset(1).ClearContents
  43.             .[A2].Resize(nFill, 4) = Application.WorksheetFunction.Transpose(vFill)
  44.             .[A1].Resize(nFill + 1, 4).Sort Key1:=.[A2], Order1:=xlAscending, Key2:=.[B2], Order2:=xlAscending, Key3:=.[C2], Order3:=xlAscending, Header:=xlGuess
  45.         End With
  46.         Application.ScreenUpdating = True
  47.     End If
  48. End Sub
复制代码

TA的精华主题

TA的得分主题

3
发表于 2019-1-13 09:42 | 只看该作者
本帖最后由 microyip 于 2019-1-13 12:52 编辑

附上附件以供参考

ag娱乐平台手机版课表问题(by.micro)v1.rar

22.11 KB, 下载次数: 3

TA的精华主题

TA的得分主题

4
 楼主| 发表于 2019-1-13 10:17 | 只看该作者
microyip 发表于 2019-1-13 09:42
附上附件以供参考

非常感谢。不过美中不足有漏的,取出的数据不完整。比如
语文
1        语        1        1
1        语        2        3
1        语        3        5
1        语        5        7
应该是4行数据  不过还是感谢。我是小白智慧在别人基础上修修补补。我试试能否解决。

TA的精华主题

TA的得分主题

5
发表于 2019-1-13 12:45 | 只看该作者
本帖最后由 microyip 于 2019-1-13 12:49 编辑
wwww32323 发表于 2019-1-13 10:17
非常感谢。不过美中不足有漏的,取出的数据不完整。比如
语文
1        语        1        1

你是对的,我手贱写漏了个参数

TA的精华主题

TA的得分主题

6
发表于 2019-1-13 12:52 | 只看该作者

TA的精华主题

TA的得分主题

7
 楼主| 发表于 2019-1-13 19:03 | 只看该作者

TA的精华主题

TA的得分主题

8
 楼主| 发表于 2019-1-13 19:06 | 只看该作者
microyip 发表于 2019-1-13 12:52
已经更新代码,重新下载一下吧

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

ag娱乐平台手机版本版积分规则

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

ag娱乐平台手机版手机版|关于我们|联系我们|ExcelHome

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

Powered by Discuz! X3.4

© 2001-2017 Wooffice Inc.

   

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

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

快速回复 ag娱乐平台手机版 返回列表
韩国访朝首席特使:朝方明确表达半岛无核化意愿 韩吐槽:济州精神失常 在羊群里出人头地还是羊 佩工:VAR没有给比赛太多帮助 应该限制使用次数 男顾客因退还玩具激动死亡 家属起诉北京西单商场 墨西哥当局将对古巴坠毁飞机所属公司突击检查 供强需弱 沪胶期价下寻支撑 二季度产销齐创新高 淡水河谷中报分红20.54亿美元 台军无人机坠落屏东一所小学校外 50余名师生受惊 看守所民警给嫌犯递手机致其诈骗24万多 民警获刑 周小川谈金融控股公司监管:正制定基本规则 2017年网络购物投诉量大增 全年受理68.57万件 2541天!申花土炮再迎进球 马丁斯受伤需依仗这杆枪
伊朗以色列直接交火 外媒:美国“退群”后果初显 俄媒:中国海军“增肌肉” 高层高度重视海军建设 中国赛艇队员转项玩越野滑雪 教练也一同转过来 韩国五大车企2月销量全面下滑 两会今日看点:政协会议开幕 “委员通道”首开启 霍金曾3次到访中国 在人民大会堂讲述宇宙传奇 文化部部长雒树刚:文化遗产既要保护好又要火起来 这个国家为了公务员健康出大招:强制断电不许加班 俄菲外长会晤 两国统一加强军事技术领域合作 中国移动:上海已新增两座5G基站 计划年内超过百座 国航班机急降后乘客获赔模型?律师:损失数额难定 福特森谈当选外援MVP:我感到狂喜 感谢所有人
曝前新疆外援科顿有望加盟山东 曾打过9场CBA 美国总统特朗普选择长期亲信库德洛担任首席经济顾问 进球gif-李影小禁区推射再下一城 女足3-0领先 美驻以色列新使馆在抗议声中开张 特朗普女儿出席 朝鲜释放3名美国人 “极限施压”真那么管用? 外媒:中国东盟就南海行为准则谈判规则达成一致 三星重返OLED电视?或为探索新技术路线 人民日报:破坏南海稳定是不识时务的妄动 军报解读国防预算将增长8.1%:为强军目标提供支撑 亚太股市全线下跌 沪指早盘收跌0.18% 人民日报:正确看待手中权力是领导干部“必修课” 尽管美股尾盘狂泻 交易员并未恐慌 超级碗背后的大生意:播30秒广告收费500万美元 ag娱乐平台手机版