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考勤计算系统
查看: 341|回复: 12
打印 上一主题 下一主题

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

[复制链接]

ag娱乐平台手机版,此次带队的新北市议员邱烽尧表示,“虽然两市社区条件不同,但我们相近的生活方式决定了我们在为民服务方面有许多共通之处。通过社区交流学习,不仅可以把彼此好的东西带回家试试看,同时,也能够增进两岸民众对彼此社会发展和普通生活的了解,非常有意义。”

据小强的父亲介绍,他们夫妻俩常年在外打工,小强跟5岁的哥哥在家由奶奶照顾。“大儿子几乎每天都会去附近小商店买一些5毛钱一袋的‘辣条’之类的零食和弟弟(小强)一起吃,他们每天也都会喝一些儿童‘乳饮料’。”巴基斯坦卡拉奇发生枪击事件 致中国公民1死1伤此前有消息称AventadorS将会在2017年3月的日内瓦车展发布,不过近日有外媒受邀证实了新车将会提前至2017年1月初亮相。现款Aventador是在2011年发布的,距离现在已经有5年多时间了。据悉新款车型在外观上将拥有全新的变化,更加具有设计感。

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 | 只看该作者
查找特征值.rar (59.13 KB, 下载次数: 6)

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. 结果
复制代码

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

本版积分规则

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

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

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

Powered by Discuz! X3.4

© 2001-2017 Wooffice Inc.

   

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

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

快速回复 ag娱乐平台手机版 返回列表
男子深夜穿长裙偷女装:留着自己穿的(图) 什么叫“挑战中央权威”?中纪委早有说明 赵君获IBF洲际拳王 对手风格似狐狸赢得不痛快 中国决不做国际“学霸” 女白领被骗后成共犯 “逆天”演技一人饰11个角色 南加州大学校医被曝性侵学生 中国学生为主要目标 朝鲜向美移交美军士兵遗骸 美退伍军人:该回家了 国务院任免工作人员 马建华为长江水利委员会主任 哈勒普:不再摔拍子了 目标不是排名是大满贯 小丁缺席训练做冰敷 比赛已报名或带伤出战 中兴“柳暗花明”制裁事件现重大转机 带火一波股市 26岁女租户被18岁男子持刀抢劫致死 嫌疑人被刑拘
这个假期为独生子女们专享 部分省份可休20天 男子低价买来抵押车当街被抢 警方称无法立案 猎豹移动将于3月19日发布2017年第四季度及全年财报 侠客岛:新中国史上最大海上阅兵 3大看点不可错过 特朗普骂非法移民“畜牲” 民主党参议员发推回怼 济南机场查获一网约车司机:携带管制刀具、催泪瓦斯 首次使用中国武器在华竞技 俄军能收获什么? 农业部副部长张桃林:转基因技术是安全可控的 海通策略:全球视角看中国股票已走牛 高校教师解剖学课展示颈椎表情包:让课程通俗易懂 足协宣布再征调国安权健两将:张鹭于洋入围国足 ofo“争分夺秒”自证能力:否认卖给滴滴
金砖峰会今日举行 五国在这一问题上“握手成拳” 女硕士笔试面试均第一却被专业名挤掉 该反思什么 中国用这种材料建猪舍后解决世界难题 质量PK美航母 石智勇用新纪录向偶像廖辉致敬 捍卫男举王者地位 交通部就建立网约车“黑名单”征求意见 进球gif-金敬道传中造威胁 李昂不慎自摆乌龙 韩媒:韩检方或下周初决定是否提捕前总统李明博 斯泰潘内克:和阿加西同阵线 与小德存在意见分歧 崔顺实帮女儿走后门进名校 三审宣判获刑3年(图) 张蓓雯为梦想做六年美漂 为3000美金弃战超级赛 长安剑评城管抽梯:高谈阔论地回应时 把人民摆哪 半岛晨报:李帅加盟苏宁可能大 对一方影响不大 室内五人制亚洲杯-中国1-11伊朗 两连败提前出局 ag娱乐平台手机版