ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 Excel Home精品图文教程库
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
300集Office 2010微视频教程 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
查看: 182|回复: 13

[求助] 求大神帮忙看下系统导出数据提取问题

[复制链接]

TA的精华主题

TA的得分主题

发表于 2024-4-17 11:22 | 显示全部楼层 |阅读模式
从系统里导出了上千条数据,要将这些数据按要求提取到另外的条件格式里(附件有示例),求大神帮忙有没有更便捷的方法解决~~~

求助-提取.zip

12.94 KB, 下载次数: 25

TA的精华主题

TA的得分主题

发表于 2024-4-17 11:35 | 显示全部楼层
不就是食谱卡?

评分

1

查看全部评分

TA的精华主题

TA的得分主题

 楼主| 发表于 2024-4-17 12:08 | 显示全部楼层

是的,现在需要把左列的食谱卡的内容提取到右边的表格来

TA的精华主题

TA的得分主题

发表于 2024-4-17 12:12 | 显示全部楼层
本帖最后由 cnmlgb9998 于 2024-4-17 12:42 编辑

用PQ 解决!!!!!!!!!!!!!!!!


捕获.JPG
捕获2.JPG

TA的精华主题

TA的得分主题

发表于 2024-4-17 12:13 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2024-4-17 12:41 | 显示全部楼层
用PQ,简化了一下代码。
  1. let
  2.   源 = Excel.CurrentWorkbook(){[Name = "表1"]}[Content],
  3.   向下填充 = Table.FillDown(源, {"列2"}),
  4.   替换的值 = Table.ReplaceValue(
  5.     向下填充,
  6.     null,
  7.     "",
  8.     Replacer.ReplaceValue,
  9.     {"列1", "列2", "列3", "列4", "列5", "列6"}
  10.   ),
  11.   自定义1 = Table.Group(
  12.     替换的值,
  13.     "列1",
  14.     {
  15.       "data",
  16.       each [
  17.         a = List.Select(Record.ToList(Table.First(_)), (x) => x <> ""){1},
  18.         b = List.Accumulate(
  19.           {"主料", "辅料"},
  20.           {},
  21.           (m, n) =>
  22.             m
  23.               & {
  24.                 Text.Combine(
  25.                   List.Transform(
  26.                     List.Split(
  27.                       List.Select(
  28.                         List.Combine(
  29.                           List.Skip(
  30.                             Table.ToColumns(Table.SelectRows(Table.Skip(_), each [列2] = n)),
  31.                             2
  32.                           )
  33.                         ),
  34.                         (y) => y <> ""
  35.                       ),
  36.                       2
  37.                     ),
  38.                     (x) => Text.Combine(x)
  39.                   ),
  40.                   ","
  41.                 )
  42.               }
  43.         ),
  44.         c = Table.FromRows({{a} & b}, {"菜名", "主料", "辅料"})
  45.       ][c]
  46.     },
  47.     0,
  48.     (x, y) => Number.From(Text.Contains(y, "名称"))
  49.   ),
  50.   删除的列 = Table.RemoveColumns(自定义1, {"列1"}),
  51.   #"展开的“data”" = Table.ExpandTableColumn(删除的列, "data", {"菜名", "主料", "辅料"}, {"菜名", "主料", "辅料"})
  52. in
  53.   #"展开的“data”"
复制代码


捕获.JPG
捕获2.JPG

评分

1

查看全部评分

TA的精华主题

TA的得分主题

发表于 2024-4-17 13:35 | 显示全部楼层
I3
  1. =FILTER(B:B,RIGHT(A:A,2)="名称")
复制代码

J3
  1. =LET(nam,XLOOKUP(I3,B:B,C:C),HSTACK(TEXTJOIN(" ",,TOROW(OFFSET(nam,1,,2,4),1,1)),TEXTJOIN(" ",,TOROW(OFFSET(nam,3,,2,4),1,1))))
复制代码
PixPin_2024-04-17_13-35-06.png

评分

1

查看全部评分

TA的精华主题

TA的得分主题

 楼主| 发表于 2024-4-17 13:49 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册

大神您好,感谢您的帮助,FILTER这个函数为啥我用不了,我的office是2010版本

TA的精华主题

TA的得分主题

发表于 2024-4-17 14:19 来自手机 | 显示全部楼层
tianting_3699 发表于 2024-4-17 13:49
大神您好,感谢您的帮助,FILTER这个函数为啥我用不了,我的office是2010版本

低版本不行,新版 wps 也可以的

TA的精华主题

TA的得分主题

 楼主| 发表于 2024-4-17 14:35 | 显示全部楼层
boyuanoffice 发表于 2024-4-17 14:19
低版本不行,新版 wps 也可以的

您能上传下上面完成的excel表格吗,我参考下,J3的公式复制出来是错误的
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

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

GMT+8, 2024-5-3 13:09 , Processed in 0.063334 second(s), 16 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

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

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

快速回复 返回顶部 返回列表