求VBA实现附件拆分排序

魔灬头 · 发表于 2022-12-21 10:46

请求老师帮忙修改VBA拆分排序

lcluck2002 · 发表于 2022-12-21 10:56

与按每包数量排序同理。

ykcbf1100 · 发表于 2022-12-21 10:56

再加一个循环就行了。

剑指E · 发表于 2022-12-21 11:27

多层循环即可。

魔灬头 · 发表于 2022-12-21 16:06

剑指E 发表于 2022-12-21 11:27
多层循环即可。

每包数量是用IF代码空白的，就导致计算每包和每箱之间有空白栏要怎么解决？

魔灬头 · 发表于 2022-12-21 16:10

剑指E 发表于 2022-12-21 11:27
多层循环即可。

每包数量是用IF代码空白的，就导致计算每包和每箱之间有空白栏要怎么解决？

剑指E · 发表于 2022-12-21 17:12

改为
arr = Range([b2], Range("e:e").Find("*", , xlValues, , , 2))

KAI19 · 发表于 2022-12-21 21:04

如果可以，试一试

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

[求助] 求VBA实现附件拆分排序