请大神帮忙修改 和补充下代码。谢谢

于箱长

ykcbf1100 发表于 2023-7-3 11:30
最影响速度的二列公式转为VBA取值了。

整复杂了，表里的“本厂编号”就是唯一值，可以把字典的key再简化一下

Excelgogogogo

ykcbf1100 发表于 2023-7-3 11:30
最影响速度的二列公式转为VBA取值了。

大佬清空后运行代码 出来的结果不太理想

Excelgogogogo

ykcbf1100 发表于 2023-7-3 11:30
最影响速度的二列公式转为VBA取值了。

                arr(i, 4) = d(s)(0)
                If arr(i, 4) = Empty Then arr(i, 4) = "在库"
                arr(i, 5) = d(s)(1)
                If arr(i, 5) = Empty Then arr(i, 4) = "仓库"
我把这段代码改成这样后
                arr(i, 4) = d(s)(0)
                If arr(i, 4) = Empty Then arr(i, 4) = "在库"
                arr(i, 5) = d(s)(1)
                If arr(i, 5) = Empty Then arr(i, 5) = "仓库"
出来的效果也不理想。在库不会出现，而且我想要的效果。报废的，所在位置也要是报废

ykcbf1100

Excelgogogogo 发表于 2023-7-3 13:02
大佬清空后运行代码 出来的结果不太理想

你自己再改一下吧，应该不难，就是烦。
字典取值的字段你自己再核对一下。

Excelgogogogo

ykcbf1100 发表于 2023-7-3 11:30
最影响速度的二列公式转为VBA取值了。

这个是我想要的效果。麻烦大神帮忙修改修改

ykcbf1100

Excelgogogogo 发表于 2023-7-3 13:08
这个是我想要的效果。麻烦大神帮忙修改修改

好吧，我再看一下。

Excelgogogogo

ykcbf1100 发表于 2023-7-3 13:07
你自己再改一下吧，应该不难，就是烦。
字典取值的字段你自己再核对一下。

大佬  我尝试修改下。遇到不懂的麻烦大佬再帮忙

Excelgogogogo

于箱长 发表于 2023-7-3 11:42
整复杂了，表里的“本厂编号”就是唯一值，可以把字典的key再简化一下

大神，关于后半段的代码。麻烦大神帮忙修改下。数量那边代码

于箱长

Excelgogogogo 发表于 2023-7-3 13:11
大神，关于后半段的代码。麻烦大神帮忙修改下。数量那边代码

哥，我上班比较忙，帮你写的那一个是忙里偷闲整的，你还是自己搞吧，你自己改的那一条不是改得挺好的么，加油，必胜

ykcbf1100

Excelgogogogo 发表于 2023-7-3 13:08
这个是我想要的效果。麻烦大神帮忙修改修改

你再看一下。