ExcelHome技术论坛

 ag娱乐平台手机版找回密码
 免费注册

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经典代码实践指南
查看: 239|回复: 7
打印 上一主题 下一主题

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

[复制链接]

ag娱乐平台手机版,历年通过携程集团订票的旅客,大多选早上7点-9点上飞机,按平均离家距离1416公里来计算,飞行近3个小时,中午前后到家。

  这份报告是修改防务合作指导方针的最新步骤:两国在2013年10月决定修改这一方针。这一名为《美日安保条约》的指导方针上次修改是在1997年,它为双边关系提供了“整体框架和政策指导”。双方承诺要在今年年底前签署新的指导方针。抢手!东部第一抬高影帝要价:首轮签+轮换球员人民日报撰文认为,目前要求禁用大面额纸币的呼声高涨,究其原因,有打击犯罪活动的需要,更有支付手段多元化导致的趋势改变。

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 编辑

附上附件以供参考

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

22.11 KB, 下载次数: 4

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 | 只看该作者
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

关闭

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

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

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

GMT+8, 2019-6-19 03:01 , Processed in 0.088805 second(s), 13 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 2001-2017 Wooffice Inc.

   

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

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

快速回复 ag娱乐平台手机版 返回列表
3X3黄金联赛海口站-青春有料海马赛事战报 曝勇士将放弃1人的球队选项 明夏他成自由身 英国人准备起诉内政大臣 因其不反对美国处死IS分子 雅尼斯:我不想找借口 假期后球员没找到节奏 男子造谣“不退28万彩礼一家7口被杀” 被拘役4月 人和U23盼未来能超越邓涵文 青训储备让人羡慕 进球gif-塔神禁区推射梅开二度 华夏暂1-2鲁能 外资控股期货公司有望零突破 美公布对华征税建议清单 中方四大机构应招称还击 直击|知乎周源:近期将推出创作服务平台 中兴事件戏剧性转折 这三个信号很意味深长 普京亲驾卡车过大桥 美媒却扬言让大桥无法使用
中国摔跤队亚运目标力争金牌 美女跤手剑指金牌 逆转!四平传奇3-2胜对手 获风神足金联赛长春季军 拼多多定价19美元纳斯达克上市 黄峥身价近百亿美元 女生花13万上补习班成绩下滑140分 官方:已派人查 歼20总师称我的一个梦想 未来战机由中国制定标准 环保部原总工:建自然资源部利于追责生态资源破坏 李霄鹏赛后向佩工45度鞠躬 攒人品他太像贾秀全 迅雷陈磊:区块链给了中国一个超越美国的机会 詹姆斯今天赛后落泪了!原因是听到了这件事 AI携手5G 打造改变世界的“核动力” 不拘泥于篮球!王泽奇\"圈里圈外\"的成长 詹姆斯追帽教训绿军新星 骑士军心靠他1人维持
民航管理部门谈川航事件:机组处置迅速得力 微软8000亿美元市值启示录:千亿美元现金回馈股东 华帝公布“夺冠退全款”进展:线下退款2087万 贾宇任浙江省人民检察院党组书记(图/简历) 世预赛-男篮蓝队不敌新西兰 阿联37+6周鹏17分 李颖:上海走出一怪圈成转折点 江苏全面性较差 美国白宫:国家经济委员会主任科恩决定辞职 比亚迪在韩国济州道交付20辆纯电动中巴 习近平致信祝贺首届数字中国建设峰会开幕 港媒称中国无人艇成功首航 可部署南海对敌饱和攻击 中国棋院杭州分院举办业余等级赛 为成人专设组别 六旬男子乘车谎称带“炸弹” 见警察来:逗你玩呢 吕秀莲称台北市长选举会赢:民进党应与柯文哲切割 ag娱乐平台手机版