求一段分解BOM表的代码

边城烽火 · 发表于 2024-7-27 00:05

本帖最后由边城烽火于 2024-7-27 00:10 编辑

求助大神:

   以工作簿"BOM"命名的表格里分别有A列-"成品料号",B列-"组件料号",C列-"组件描述",D列-"数量"四列. B列为A列的子件号,C列为对应B列的文本描述,D列为对应B列的数量.
   如果B列中的组件料号,在A列中存在,那么需要把B列中的组件料号替换为A列中这个料号右边对应的B列料号,C列中组件描述替换为A列中这个料号右边对应的C列描述;D列待替换的数量要乘以原来的数量.
   具体举例如下:
   B3这个料号在A列中搜索到有A5,A6,A7三个位置存在,那么B3这行就要增加两行,新的B3,B4,B5号码就要被原来B5,B6,B7的号码替代;新的C3,C4,C5的文本要被原来C5,C6,C7的文本替代;新的D3,D4,D5的数量要被原来D5,D6,D7的数字并且乘以原来D3的数量替代.新的A3,A4,A5的号码等于原来A3的号码.
   如果B7这个号码在A列中搜索后还有A8,A9存在,要按照前面的逻辑再循环,一直到B列里的料号无法在A列中搜索到.

   按照这个规则,下面这张表格

经过处理后会变成下面这样:

我把样表放在附件中,希望VBA代码能将工作簿"BOM"处理后生成在新工作簿"BOM分解"中,请哪位大神不吝赐教,小弟不胜感激!

wbjjzhu · 发表于 2024-7-27 09:24

参考以下贴子：
https://club.excelhome.net/thread-1443505-1-1.html

3190496160 · 发表于 2024-7-27 09:27

实在是看不懂，模拟结果，恰巧没有关键数据的模拟结果

wbjjzhu · 发表于 2024-7-27 09:33

3190496160 发表于 2024-7-27 09:27
实在是看不懂，模拟结果，恰巧没有关键数据的模拟结果

他的意思应该是显示末级用料，排除中间的组件。

ynzsvt · 发表于 2024-7-27 10:18

请测试代码

边城烽火 · 发表于 2024-7-28 22:45

ynzsvt 发表于 2024-7-27 10:18
请测试代码

测试了一下有点问题,如果A列里有不止一个一级料号都用到二级料号,且二级料号还有下挂的三级料号.只有第一个一级料号一直推到了最后一级.比如附件中的,运行了宏后和另一个工作簿里"BOM分解"内容不一致.

边城烽火 · 发表于 2024-7-28 22:46

wbjjzhu 发表于 2024-7-27 09:33
他的意思应该是显示末级用料，排除中间的组件。

是的,就是这个意思.

ynzsvt · 发表于 2024-7-29 06:20

边城烽火发表于 2024-7-28 22:45
测试了一下有点问题,如果A列里有不止一个一级料号都用到二级料号,且二级料号还有下挂的三级料号.只有第一 ...

不止一个一级料号啊，那要相加了。
同一个一级料号下的二级料号相同的会不会重复而同样需要累加。

笨鸟飞不高 · 发表于 2024-7-29 12:23

fjlhgs · 发表于 2024-7-29 13:45

参与一下，递归方法

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

[求助] 求一段分解BOM表的代码