！！！紧急求助！！！如何在不规范的各工作表内提取指定的数据再汇总？

新诺司机-沃克灵 · 发表于 2019-1-12 13:27

！！！紧急求助！！！如何在不规范的各工作表内提取指定的数据再汇总？
想把表1到表6中，所有内容为特征值的单元格，其右边一格的数据提取到汇总工作簿中，不知道该如何编写代码：
举例，表1：
需要提取的数据.png

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

我自己试着使用了一下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

也不知道错在哪里？

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

08yj2001 · 发表于 2019-1-12 13:42

两个 for each range 循环

abc123281 · 发表于 2019-1-12 13:58

关键需要上传附件

新诺司机-沃克灵 · 发表于 2019-1-12 15:25

abc123281 发表于 2019-1-12 13:58
关键需要上传附件

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

上传了，请您帮我看看，不胜感激！！！

新诺司机-沃克灵 · 发表于 2019-1-12 15:26

待提取.zip (49.93 KB, 下载次数: 2)
这是附件，当时心里有点急，忘了，
现在补上，请大家帮我看看

蓝桥玄霜 · 发表于 2019-1-12 15:46

请见代码。

新诺司机-沃克灵 · 发表于 2019-1-12 15:50

蓝桥玄霜发表于 2019-1-12 15:46
请见代码。

谢谢您！我先试试看，以后还得请教您

abc123281 · 发表于 2019-1-12 15:58

查找特征值.rar (59.13 KB, 下载次数: 7)

新诺司机-沃克灵 · 发表于 2019-1-12 16:17

abc123281 发表于 2019-1-12 15:58

谢谢！！！

飞天篮球猪 · 发表于 2019-1-12 22:25

这个用Power Query 也可以，有兴趣可以试试以下M语句：

let
源 = Folder.Files("\\Mac\Home\Downloads\待提取"), //这里变成你自己的路径
筛选 = Table.SelectRows(源, each ([Name] <> "汇总.xlsx")),
删除列 = Table.SelectColumns(筛选,{"Name", "Content"}),
结果 = Table.TransformColumns(删除列,{"Content",each let l=List.Combine(Table.ToRows(Excel.Workbook(_)[Data]{0}))
in l{List.PositionOf(l,"特征值")+1}} )
in
结果

复制代码

		自动登录	找回密码
密码			免费注册

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

最新热点 /1