ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

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

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

[复制链接]

ag娱乐平台手机版,  iWorld数字世界博览会在本次展览中设置VR/AR World主题版块,融合互动体验博览会和领袖峰会两部分,并结合iWorld的其他系列活动以多种形式展示VR/AR领域的特色。

  在本届以“融合技术,开拓机遇”为主题的IDF上,包括Intel在内的众多厂商和与会者展示了最新的技术和产品,内容涉及处理器,下一代PC架构,数字家庭技术,无线移动计算等几乎PC应用的各个方面。申花周边产品讨论:买完需上千元 买不买是观念问题  老款的腾龙24-70标准变焦镜头搭载了VC光学防抖补偿功能,可以让拍摄者在低于安全快门的情况下得到清晰照片。在控制色散方面,此镜头采用三枚特殊材质LD(低色散)镜片,同时,镜头还采用了三枚玻璃铸造的非球面镜片、一个复合非球面镜片和两个XR(高折射率)镜片。该镜头配有9枚圆型光圈叶片。对焦方面,镜头搭载了USD超声波静音马达,支持全时手动对焦,自动和手动对焦切换非常顺畅。防护性方面,这支镜头采用了防止水气渗透到镜头内部的简易防滴溅结构设计。

TA的精华主题

TA的得分主题

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


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


或者得到



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

ag娱乐平台手机版课表问题.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 编辑

附上附件以供参考

课表问题(by.micro)v1.rar

22.11 KB, 下载次数: 4

ag娱乐平台手机版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

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

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

TA的得分主题

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

TA的精华主题

TA的得分主题

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

TA的精华主题

TA的得分主题

8
 楼主| 发表于 2019-1-13 19:06 | 只看该作者
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

关注官方微信,每天学会一个新技能

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

GMT+8, 2019-3-22 22:13 , Processed in 0.756994 second(s), 14 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 2001-2017 Wooffice Inc.

   

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

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

快速回复 ag娱乐平台手机版 返回列表
360否认手机业务总裁李开新将离职 湖人哭晕!两队瓜分他们的签 究竟是咋回事? 东部全明星主控谈詹姆斯西游 听着心酸又好笑 对话HyperloopTT:关于中国“超级高铁”的一切… 加州自动驾驶汽车事故报告:其中两起系人类故意攻击 观点:恒大到了统治崩塌的时候 争冠混乱出乎意料 四川唐家河自然保护区发现新物种:扁颅鼠兔(图) 印尼120名恐怖分子向受害者道歉 被指已痛改前非 新鲜出炉!2018BTEA注册教练常规业务培训计划出炉 WTA新一周世界排名 张帅超越彭帅成为“一姐” 20多岁的乔布斯:有人觉得他是“怪人”和“小丑” 中国东海舰队这支部队有多牛 竟走出三名航母舰长
解放军亮相俄“坦克大战” 俄媒赞:最有纪律队伍 上海一辆公交车发生自燃 事故原因正在调查 仅1分钟驾照被扣30分 男司机这一波操作交警傻眼 一年送30亿快递,顺丰赚多少钱?数字让很多人吃惊 百度AI的“朋友圈”:以面控点交叉前行 直击|联想杨元庆评5G标准投票:爱国咱绝对经得起考验 巨婴滴滴还能撑多久?烧了240亿美金仍未能盈利 脸书申请在中国注册子公司被拒因为啥 外交部回应 巴萨这下真慌了!西甲没到手 最稳一冠军要飞? 美巡赛-中国资格赛第三轮金诚领先9杆 王东禹T2 这位大师设计的挖泥船 被誉为“神州第一挖”(图) 涨停板早知道:七大利好明日有望发酵
货币面临贬值压力 拉美危机重演? 美对伊提12项要求 国务卿:做不到将实施最严制裁 粤媒:不可靠归化投机取巧 应借鉴日本联赛和青训 北水流出 港股波动十天线作支持 清华教授罗永章:建议加快建设烟大海底隧道 半场-阿兰传射古德利轰重炮 恒大客场2-0济州联 李莹:决赛未登场些许遗憾 退役仍会听候队里召唤 两个月减掉30斤!王哲林分享减肥控体重经验 金汕:张呈栋签售会袒露心声 于静已是记者品牌 在这块中国的土地上 普通话为何成了“外来语”? 日产将加速向巨大市场中国投放新型电动车 网络借条平台火爆:借5000到手3500 七天利息15… 共享单车现身闲鱼:酷骑单车叫价60 称150元帮退押金 ag娱乐平台手机版