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

[已解决] !!!紧急求助!!!如何在不规范的各工作表内提取指定的数据再汇总?

[复制链接]

ag娱乐平台手机版, 和黄中航方面还表示,公司不断积极引进不同的主题行业,力求丰富及拓宽商场的业态,以增加客流。近期已有多家新商户陆续开业及积极筹备开业中,当中包括知名运动品牌旗舰店、大型高端健身中心等。

  吴希明在获奖后表示,这份荣誉和成绩应归功于团队,归功于广大直升机人,是大家全力以赴、共同努力的结果。他说,这份荣誉也是对直升机产业发展的肯定,是对直升机人几十年来努力的肯定,作为一名直升机人他感到十分激动。同时,荣誉也是鞭策,自己将矢志为直升机事业贡献毕生力量。佬牛解盘:沙尔克主场不败 里昂难胜蒙彼利埃刚开始,人们以为其女友不会答应求婚,因为她往后退了几步,并转身拭泪,看似意欲离开。但是,该女子却突然转身,投入了男友的怀抱。

TA的精华主题

TA的得分主题

跳转到指定楼层
1
发表于 2019-1-12 13:27 | 只看该作者 |只看大图 回帖奖励 |倒序浏览 |阅读模式
!!!紧急求助!!!如何在不规范的各工作表内提取指定的数据再汇总?
想把表1到表6中,所有内容为特征值的单元格,其右边一格的数据提取到汇总工作簿中,不知道该如何编写代码:
举例,表1:

但是每一张表中位置不一样

我自己试着使用了一下find方法,一直报错,这是我尝试在汇总这张工作表上提取表1中数据的而编写的代码:
Sub XX()

Dim wk

Dim fname

Dim rg

fname = "E:\实验\2019-01-12\2\1.xlsx"

Set wk = GetObject(fname)

Set rg = wk.Worksheets(1).Range(Cells(1, 1), Cells(1000, 1000)).Find(what:="特征值", after:=Cells(1, 1), LookIn:=xlValues, lookat:=xlWhole, SearchOrder:=xlByRows)

ThisWorkbook.Worksheets(1).Cells(2, 2).Value = rg.Offset(0, 1).Value

wk.Close False

End Sub

也不知道错在哪里?

恳请大家帮我一下
祝来年事事顺利!!!

TA的精华主题

TA的得分主题

2
发表于 2019-1-12 13:42 | 只看该作者

TA的精华主题

TA的得分主题

3
发表于 2019-1-12 13:58 | 只看该作者

TA的精华主题

TA的得分主题

4
 楼主| 发表于 2019-1-12 15:25 | 只看该作者
abc123281 发表于 2019-1-12 13:58
关键需要上传附件

待提取.zip (49.93 KB, 下载次数: 1)

上传了,请您帮我看看,不胜感激!!!

TA的精华主题

TA的得分主题

5
 楼主| 发表于 2019-1-12 15:26 | 只看该作者
待提取.zip (49.93 KB, 下载次数: 2)
这是附件,当时心里有点急,忘了,
现在补上,请大家帮我看看

TA的精华主题

TA的得分主题

6
发表于 2019-1-12 15:46 | 只看该作者

TA的精华主题

TA的得分主题

7
 楼主| 发表于 2019-1-12 15:50 | 只看该作者

TA的精华主题

TA的得分主题

8
发表于 2019-1-12 15:58 | 只看该作者

TA的精华主题

TA的得分主题

9
 楼主| 发表于 2019-1-12 16:17 | 只看该作者

TA的精华主题

TA的得分主题

10
发表于 2019-1-12 22:25 | 只看该作者
这个用Power Query 也可以,有兴趣可以试试以下M语句:
  1. let
  2.     源 = Folder.Files("\\Mac\Home\Downloads\待提取"),  /这里变成你自己的路径
  3.     筛选 = Table.SelectRows(源, each ([Name] <> "汇总.xlsx")),
  4.     删除列 = Table.SelectColumns(筛选,{"Name", "Content"}),
  5. 结果 = Table.TransformColumns(删除列,{"Content",each let l=List.Combine(Table.ToRows(Excel.Workbook(_)[Data]{0}))
  6.                                                             in  l{List.PositionOf(l,"特征值")+1}} )
  7. in
  8. 结果
复制代码

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

本版积分规则

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

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

GMT+8, 2019-6-26 11:42 , Processed in 0.120008 second(s), 15 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 2001-2017 Wooffice Inc.

   

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

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

快速回复 ag娱乐平台手机版 返回列表
牛汇:美债收益率飙升致股债双杀 或砸出新兴市场 津媒:亚运对中超保级争冠有影响 一方有机会逃生 男子1600万奖票被扔状告官方 律师:或不了了之 小米加快推进“出海战略”:米粉与专利是两块踏板 温格时代阿森纳射手榜:亨利领衔 桑切斯进前10 受到机票价格拖累 美国4月份消费物价涨幅低于预期 北京网约车单多车少 司机去哪了? 销售盗版图书触犯刑法 童话大王郑渊洁举报淘宝 蔡斌:队员贯彻赛前意图 张常宁舟车劳顿调整及时 由于许可证问题 SpaceX被禁止直播地球视频 民国时教科书审定会注意哪些问题? 曝C罗要求皇马支付3000万税务罚款 皇马拒绝
民政部公布30个非法组织 有的以“一带一路”为名 亚运会将举行 印尼逮捕恐怖分子200多人击毙21人 特朗普考虑对大范围中国进口产品征收关税 媒体:中国新一轮机构改革将给世界带来这些利好 中国国防费连续第三年以个位数增长 专家解读 涨停板早知道:七大利好明日有望发酵 韩国防部:韩美年度联演将照常进行 规模不会缩减 内蒙古乌海市委常委统战部长陈文库被查(图/简历) BAT纷纷投身LoRa技术 中国物联网市场迎来加速发展 韩青瓦台民政首席秘书陷论文抄袭门 被指自我抄袭 董明珠:企业在自主培养人才方面应该勇于担当 大V点评恒大:攻守兼备自信满满 出线已无悬念
服务员眼中的KTV银发团:有北京户口有退休金有空闲 斯维托丽娜谈六连胜科贝尔关键 开心状态渐入佳境 U21国足名单:黄紫昌入选 张玉宁林良铭在列 保利尼奥回归首球!右脚兜射 这球VAR可没法吹掉 自助餐厅要求交浪费保证金 剩餐超200克不退 内维尔狠批阿森纳:羞耻!竟让孩子为你们而哭 日民众抗议安倍 韩“倒朴派”力挺:他太像朴槿惠 王兴:摩拜是少有的中国原创 一起开创更辉煌的未来 国安4虎将已收国足召集令 朴成闪光披国字号战袍 易信金融:美国非农数据大好 支持美联储3月加息 特朗普不去超级碗但暗示球员:奏国歌都给我站好 “中国存活最久的艾滋病人”:不想当鬼 只想做人 苏宁迪拜冬训重点考察年轻人 特谢拉因病缺战老东家 ag娱乐平台手机版