ExcelHome技术论坛

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

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

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

[复制链接]

ag娱乐平台手机版,  可是。。。我一时半会也长不出来那么多怎么办。。。没关系。。。听说胡渣。。。也可以人造。。。

  5月30日下午,吕正操和张学良将军在曼哈顿一家银行总经理办公室第二次见面。这次是他们两人单独谈话。吕正操首先向张学良郑重递交了邓颖超同志的信,并转达了中共中央对他的问候。在信中,邓颖超受邓小平委托,诚恳欢迎张将军在方便的时候回家乡看一看。张将军没有使用放大镜,脸几乎贴到信纸上,一字一句地认真看着。当看到末尾邓颖超的签名时,他说:“周恩来我熟悉,这个人很好,请替我问候邓女士。”沉思片刻,他说:“我个人清清楚楚地很想回去,但现在时候不到,我一动就会牵涉到大陆、台湾两个方面……我不愿意为我个人的事,弄得政治上很复杂。”不久,他给邓颖超亲笔复信,其中写到:“寄居台湾,翘首云天,无日不有怀乡之感,一有机缘,定当踏上故土。”在和吕正操交谈中,张将军还引用“鹤有还巢梦,云无出岫心”来表达他想回来看,又不愿过分张扬的心情。一步慢步步慢:科研资助应该有年龄限制吗  据美国《防务新闻》周刊网站7月15日报道,这一批评是威廉·汉纳斯、詹姆斯·马尔文农和安娜·普利西在新书《中国工业间谍:技术获得和军事现代化》中提出的。

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 | ag娱乐平台手机版只看该作者

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

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

本版积分规则

关闭

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

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

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

GMT+8, 2019-1-23 19:08 , Processed in 0.101580 second(s), 16 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 2001-2017 Wooffice Inc.

   

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

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

快速回复 ag娱乐平台手机版 返回列表
金控办法有望年内落地 BAT等互金巨头将纳入监管范围 巴布亚新几内亚东部发生5.4级地震 震源深10公里 马斯克:我就0.25个比特币,还不知丢哪去了 南方航空:工作犬可以免费进入客舱陪伴旅客 叙利亚称发现“白头盔”影视基地:专拍化武袭击 芯片企业博通集成IPO推进 招股书进入预披露更新期 欧盟提议“收移民换补贴” 意大利嫌钱少不买账 全国工商联:建议动力电池增值税率降至11% 歼10诞生不为人知的故事:这架帅气战机是它“哥哥” 传腾讯将投资Ripple 20亿美元 百度最年轻副总裁“李叫兽”李靖离职 “多面”刘慈欣:科学家影评人or未来预测者?
英国驻华大使认为欧美达成协议对中国并不是坏消息 45个老人聚一起吃年夜饭 都失去过唯一的孩子 新浪彩票名家双色球第18022期推荐汇总 莫斯科证交所将在4月与上海黄金交易所签署备忘录 意甲-二弟佩剑连场破门 国米客场2-1连胜紧咬前4 舒服了!NBA最让人有强迫症的男人终于干了这事 5个月来最大单日反转,纳指为什么涨不上去? IDC:去年第四季Apple Watch售出800万台… 杭州年轻人初婚有多晚:男28.6岁 女27.1岁 人类蠕轰精华再秀招牌技能 这次阿杜不敢防了 亚太股市追随美股反弹 日经高开1% 女排大合影曾春蕾缺席 朱婷:见到郎导感觉很踏实
58同城与微信小程序含色情交易 有的暗藏外籍技师 台湾岛内选举“毁灭小组”重现江湖 目的只有一个 记者被杀引斯洛伐克政局震荡 总理悬赏100万追凶 南京大屠杀幸存者杨秀英因病离世 终年90岁 2018中国足协新旧纪律准则重大修订对比表 女子网恋有车有房男友 结婚当天才知被骗要离婚 欧盟拒绝英国脱欧白皮书 英镑兑美元急跌近40点 媒评沙尔克流失球员最强阵:诺伊尔+曼城大将领衔 詹皇30分准3双骑士难翻身 双帝35分76人止连败 湖南省委原宣传部长张文雄涉嫌受贿等案被公诉 西班牙将掌管垃圾邮件网络俄罗斯程序员引渡给美国 广东省韶钢松山炼铁厂发生煤气泄漏事故 8人死亡 取消风险备付金 P2P网贷平台破刚兑比预期乐观 ag娱乐平台手机版