ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

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

[求助] 不规则列的填充

[复制链接]

TA的精华主题

TA的得分主题

发表于 2022-5-11 22:22 | 显示全部楼层 |阅读模式
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
各位老师:

晚上好!
附档中A列的值(供应商)有部分是合并单元格,有部分为未合并的单元格。
请问想要把供应商填充到每一行,该如何处理?详见附件

请各位老师帮助,谢谢!
image.jpg

填充.zip

17.62 KB, 下载次数: 14

TA的精华主题

TA的得分主题

 楼主| 发表于 2022-5-11 23:11 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
走过路过的,怎么都没人下载附件看看,这个问题是太简单了吗

TA的精华主题

TA的得分主题

发表于 2022-5-12 04:19 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
D柚子168 发表于 2022-5-11 23:11
走过路过的,怎么都没人下载附件看看,这个问题是太简单了吗

没专门下附件,但情况就是这么个情况了

  1. let
  2.     Source = Table.FromRows(Json.Document(Binary.Decompress(Binary.FromText("i45WclTSUTJUitWJVgIyjGCMkPySxBwYByLthCxvjEehMxaDYgE=", BinaryEncoding.Base64), Compression.Deflate)), let _t = ((type nullable text) meta [Serialized.Text = true]) in type table [Supplier = _t, SN = _t]),
  3.     #"Changed Type" = Table.ReplaceValue(Source, "", null, Replacer.ReplaceValue, {"Supplier"}),
  4.     #"Added Index" = Table.AddIndexColumn(#"Changed Type", "Index", 0, 1),
  5.     Grouped = let pos = List.PositionOf(#"Added Index"[SN], "Total", 2) in Table.Group(#"Added Index", "Index", {"Grp", each Table.FillUp(Table.FillDown(_, {"Supplier"}),{"Supplier"})}, 1, (x,y) => Byte.From(List.Contains(pos, y-1))),
  6.     #"Expanded Grp" = Table.RemoveColumns(Table.ExpandTableColumn(Grouped, "Grp", {"Supplier", "SN"}, {"Supplier", "SN"}), "Index")

  7. in
  8.     #"Expanded Grp"
复制代码

Record_2022_05_11_22_14_04_131.gif

TA的精华主题

TA的得分主题

发表于 2022-5-12 06:46 来自手机 | 显示全部楼层
D柚子168 发表于 2022-5-11 23:11
走过路过的,怎么都没人下载附件看看,这个问题是太简单了吗

未合并的单元格

这个 景田 比较特殊,麻烦

TA的精华主题

TA的得分主题

发表于 2022-5-12 07:16 来自手机 | 显示全部楼层
zpy2 发表于 2022-5-12 06:46
未合并的单元格

这个 景田 比较特殊,麻烦

create temp table aa as  select rowid old_id,iif(序号='小计',rowid,'') 组,* from 要把供应商填充到每一行 order by rowid desc; create temp table bb as  select fillna(组) 组2,* from aa; create temp table cc as  select 组2,replace(group_concat(distinct(供应商)),',','') 供应商2 from bb group by 组2; select cc.供应商2  供应商,序号,存货编码,存货名称,规格型号,主计量,数量,原币单价,原币金额,原币税额,原币价税合计 from cc join bb using(组2);
Screenshot_2022-05-12-07-14-31-128_io.github.excel.Ninja.jpg

TA的精华主题

TA的得分主题

发表于 2022-5-12 08:56 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2022-5-12 09:40 | 显示全部楼层
序号前面的空格记得删掉。

填充.zip

30.93 KB, 下载次数: 9

评分

1

查看全部评分

TA的精华主题

TA的得分主题

发表于 2022-5-12 10:14 | 显示全部楼层
详情见附件!

填充.rar

31.36 KB, 下载次数: 11

评分

1

查看全部评分

TA的精华主题

TA的得分主题

 楼主| 发表于 2022-5-12 10:27 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
ThxAlot 发表于 2022-5-12 04:19
没专门下附件,但情况就是这么个情况了

感谢ThxAlotf老师的指导。感谢!

TA的精华主题

TA的得分主题

 楼主| 发表于 2022-5-12 10:28 | 显示全部楼层
ZLJzz 发表于 2022-5-12 09:40
序号前面的空格记得删掉。

感谢老师的帮助,非常漂亮
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

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

GMT+8, 2024-11-16 09:37 , Processed in 0.036453 second(s), 15 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

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

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

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