ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 效率神器,一键搞定繁琐工作
Python自动化办公应用大全 Excel 2021函数公式学习大典 终极工具 Kutools 和 Office Tab 打造核心竞争力的职场宝典
让更多数据处理,一键完成 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
查看: 157|回复: 10

[求助] 同一产品多批次生产日期及对应箱数横向排列

[复制链接]

TA的精华主题

TA的得分主题

发表于 2025-7-5 21:10 | 显示全部楼层 |阅读模式
本帖最后由 aquariusxiao 于 2025-7-5 21:38 编辑

各位老师,大致需求如下:

①“匹配”这页是源数据,同一个商品会有多个生产日期的情况,如红框(2个产生日期)和蓝框(3个生产日期)所示
②“电子送货单”这页,需要将同一商品号对应的不同的生产日期及其对应的箱数进行横向排列,如红框和蓝框所示
③“匹配”这页源数据行数较多,一般有100多行,可能会有同一商品不同生产日期不连续排列,隔了几行的情况

“电子送货单”这页的E-J列是我手工做的最终效果,供老师们参考

同一产品多批次生产日期横向排列.rar

35.87 KB, 下载次数: 6

TA的精华主题

TA的得分主题

发表于 2025-7-5 21:18 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
没看明白,直接说你想干什么,需要什么样的结果。

TA的精华主题

TA的得分主题

发表于 2025-7-5 21:38 | 显示全部楼层
E2
  1. =IF(COLUMN(A1)/2<=COUNTIF(匹配!$P:$P,$K2),IF(MOD(COLUMN(A1),2),TEXT(INDEX(匹配!$F:$F,SMALL(IF(匹配!$P$2:$P$15=$K2,ROW($2:$15),999),COLUMN(B1)/2)),"yyyy/mm/dd"),TEXT(INDEX(匹配!$O:$O,SMALL(IF(匹配!$P$2:$P$15=$K2,ROW($2:$15),99),COLUMN(B1)/2)),0)),"")
复制代码


右拉下拉

评分

1

查看全部评分

TA的精华主题

TA的得分主题

 楼主| 发表于 2025-7-5 21:39 | 显示全部楼层
edwin11891 发表于 2025-7-5 21:18
没看明白,直接说你想干什么,需要什么样的结果。

老师不好意思附件没表达清楚,我重新上传了容易看懂的说明
就是想要在电子送货单这页把同一产品不同生产日期及对应箱数横向排列
同一产品多批次生产日期横向排列.png

TA的精华主题

TA的得分主题

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

感谢版主大佬帮忙,请问能否再帮忙看看是否可以去重
需要去重.png

TA的精华主题

TA的得分主题

发表于 2025-7-5 21:51 | 显示全部楼层
aquariusxiao 发表于 2025-7-5 21:45
感谢版主大佬帮忙,请问能否再帮忙看看是否可以去重
  1. =IF(COUNTIF($K$1:$K2,$K2)=1,IF(COLUMN(A1)/2<=COUNTIF(匹配!$P:$P,$K2),IF(MOD(COLUMN(A1),2),TEXT(INDEX(匹配!$F:$F,SMALL(IF(匹配!$P$2:$P$15=$K2,ROW($2:$15),99),COLUMN(B1)/2)),"yyyy/mm/dd"),TEXT(INDEX(匹配!$O:$O,SMALL(IF(匹配!$P$2:$P$15=$K2,ROW($2:$15),99),COLUMN(B1)/2)),0)),""),"")
复制代码

评分

1

查看全部评分

TA的精华主题

TA的得分主题

 楼主| 发表于 2025-7-5 22:20 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2025-7-5 22:24 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
全部内容一步到位:
  1. =LET(t,TRIMRANGE(匹配!C2:AA5000),DC_NBR,CHOOSECOLS(t,21),PO_NBR,TAKE(t,,1),UPC,CHOOSECOLS(t,2),Shelf_LIFE,CHOOSECOLS(t,25),ITEM,CHOOSECOLS(t,14),ITEM_DESC,CHOOSECOLS(t,15),Size,CHOOSECOLS(t,16,17,18,19),Date,CHOOSECOLS(t,4),nNum,CHOOSECOLS(t,13),XD,Date&","&nNum,Re,DROP(GROUPBY(HSTACK(DC_NBR,PO_NBR,UPC),HSTACK(Shelf_LIFE,XD,ITEM,ITEM_DESC,Size),HSTACK(SINGLE,LAMBDA(x,TEXTJOIN(",",,x)),SINGLE,SINGLE,SINGLE,SINGLE,SINGLE,SINGLE),0,0),1),Ra,DROP(REDUCE("",CHOOSECOLS(Re,5),LAMBDA(x,y,IFNA(VSTACK(x,EXPAND(TEXTSPLIT(y,",",,1),,6,"")),""))),1),Rb,HSTACK(TAKE(Re,,4),Ra,TAKE(Re,,-6)),Rb)
复制代码
微信图片_2025-07-05_222343_614.png

评分

1

查看全部评分

TA的精华主题

TA的得分主题

 楼主| 发表于 2025-7-5 23:01 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
edwin11891 发表于 2025-7-5 22:24
全部内容一步到位:

实在太牛了,和需要做成的结果完全一致。
不过复制公式我这里显示#溢出,或者#CALC!不知道是什么问题
大佬能否再指导下,感谢!
#CALC!或#溢出.png

TA的精华主题

TA的得分主题

 楼主| 发表于 2025-7-5 23:12 | 显示全部楼层
edwin11891 发表于 2025-7-5 22:24
全部内容一步到位:

太厉害了,和需要做成的结果完全一致。
不过我这里复制公式后显示#溢出或#CALC!,不知道什么原因
老师能否再指导下,谢谢
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

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

GMT+8, 2025-7-20 08:47 , Processed in 0.029564 second(s), 16 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

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

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

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