ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 效率神器,一键搞定繁琐工作
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
让更多数据处理,一键完成 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
12
返回列表 发新帖
楼主: zbcpgy

[求助] 不知道这个是否能用函数解决

[复制链接]

TA的精华主题

TA的得分主题

 楼主| 发表于 2024-5-5 15:09 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
我的城市你来过 发表于 2024-5-5 13:01
=TEXTSPLIT(TRIM(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(CONCAT(IF(LENB(MID($A2,SEQUENCE(LEN($A2) ...

这个公式偏长,可以用,能解决问题。

TA的精华主题

TA的得分主题

发表于 2024-5-5 18:09 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
PQ方案。。。。。。。。。。。。。。。。。。。。。


做的纵向。横向能做,不想做了
捕获.PNG

TA的精华主题

TA的得分主题

 楼主| 发表于 2024-5-5 18:38 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
cnmlgb9998 发表于 2024-5-5 18:09
PQ方案。。。。。。。。。。。。。。。。。。。。。

厉害,PQ太复杂,我一头雾水

TA的精华主题

TA的得分主题

发表于 2024-5-5 21:44 | 显示全部楼层
  1. let
  2.       源 = Excel.CurrentWorkbook(){[Name = "表1"]}[Content],
  3.       自定义1 = Table.ReplaceValue(
  4.             源,
  5.             "",
  6.             "",
  7.             (x, y, z) =>
  8.                   [
  9.                         a = List.Select(Text.Split(x, "#(lf)"), each _ <> ""),
  10.                         b = List.Transform(
  11.                               a,
  12.                               each [
  13.                                     c = List.Select(Text.SplitAny(_, ",,。 ;;"), each _ <> ""),
  14.                                     d = List.Combine(
  15.                                           List.Transform(
  16.                                                 c,
  17.                                                 each Splitter.SplitTextByCharacterTransition(
  18.                                                       {"m"},
  19.                                                       {"订"}
  20.                                                 )(Text.Remove(_, {":", ":"}))
  21.                                           )
  22.                                     ),
  23.                                     d2 = {"长", "宽", "高"},
  24.                                     e = List.Transform(
  25.                                           d,
  26.                                           each
  27.                                                 if Text.Contains(_, "尺寸") then
  28.                                                       [
  29.                                                             f = Text.SplitAny(
  30.                                                                   Text.Select(
  31.                                                                         _,
  32.                                                                         {"0" .. "9", "*", "."}
  33.                                                                   ),
  34.                                                                   "*"
  35.                                                             ),
  36.                                                             g = List.Accumulate(
  37.                                                                   {0 .. 2},
  38.                                                                   {},
  39.                                                                   (x, y) =>
  40.                                                                         x
  41.                                                                               & {
  42.                                                                                     d2{y}
  43.                                                                                           & Text.From(
  44.                                                                                                 f{y}
  45.                                                                                           )
  46.                                                                               }
  47.                                                             )
  48.                                                       ][g]
  49.                                                 else
  50.                                                       _
  51.                                     ),
  52.                                     h = List.Combine(
  53.                                           List.Transform(e, each if _ is text then {_} else _)
  54.                                     ),
  55.                                     i = List.Zip(
  56.                                           List.Transform(
  57.                                                 h,
  58.                                                 (m) =>
  59.                                                       Splitter.SplitTextByCharacterTransition(
  60.                                                             {"一" .. "龥"},
  61.                                                             {"A" .. "z", "0" .. "9"}
  62.                                                       )(m)
  63.                                           )
  64.                                     ),
  65.                                     j = Table.FromRows({i{1}}, i{0})
  66.                               ][j]
  67.                         )
  68.                   ][b],
  69.             {"列1"}
  70.       )[列1],
  71.       自定义2 = List.Combine(自定义1),
  72.       自定义3 = Table.Combine(自定义2)
  73. in
  74.       自定义3
复制代码

评分

1

查看全部评分

TA的精华主题

TA的得分主题

发表于 2024-5-5 21:59 | 显示全部楼层
=DROP(REDUCE("",TEXTSPLIT(A2,,CHAR(10),1),LAMBDA(x,y,HSTACK(x,TEXTSPLIT(y,{"mm",",",":",";",",","成品尺寸",":","。","。","发货数","生产数","订单数","*","产品名称"," "},,1)))),,1)

评分

1

查看全部评分

TA的精华主题

TA的得分主题

发表于 2024-5-5 22:02 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
=TOROW(TEXTSPLIT(A2,{"mm",",",":",";",",","成品尺寸",":","。","。","发货数","生产数","订单数","*","产品名称"," "},CHAR(10),1))

评分

1

查看全部评分

TA的精华主题

TA的得分主题

 楼主| 发表于 2024-5-6 18:33 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
mykitami 发表于 2024-5-5 22:02
=TOROW(TEXTSPLIT(A2,{"mm",",",":",";",",","成品尺寸",":","。","。","发货数","生产数","订单数","*" ...

这个公式非常强悍
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

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

GMT+8, 2024-11-16 08:03 , Processed in 0.042575 second(s), 9 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

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

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

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