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

Excelgogogogo · 发表于 2023-7-3 13:26

ykcbf1100 发表于 2023-7-3 13:19
你再看一下。

For i = 2 To UBound(arr)
      s = arr(i, 1) & "|" & arr(i, 2) & "|" & arr(i, 3)
      d(s) = Array(arr(i, 6), arr(i, 4))
我这样改了下
For i = 2 To UBound(arr)
      s = arr(i, 1) & "|" & arr(i, 2) & "|" & arr(i, 3)
      d(s) = Array(arr(i, 6), arr(i, 6))
是不是效果一样，现在主要的问题是

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) = "仓库"

这两个判断语句，不自动填写“在库”，和“仓库”

Excelgogogogo · 发表于 2023-7-3 13:38

于箱长发表于 2023-7-3 13:17
哥，我上班比较忙，帮你写的那一个是忙里偷闲整的，你还是自己搞吧，你自己改的那一条不是改得挺好的么， ...

大佬，我现在就是会在已经写好的代码基础上，稍作修改，这个代码可以写出前3列想要的数据，到后边的怎么写就不会了。怎么改也改不出第4列的数据

Excelgogogogo · 发表于 2023-7-3 13:46

ykcbf1100 发表于 2023-7-3 13:19
你再看一下。

等大佬有时间的时候再看看，如果改起来很麻烦的话，我就暂时先这么用着，我改下后边数量的判断函数，为空时默认为在库

ykcbf1100 · 发表于 2023-7-3 14:57

Excelgogogogo 发表于 2023-7-3 13:26
For i = 2 To UBound(arr)
s = arr(i, 1) & "|" & arr(i, 2) & "|" & arr(i, 3)
d ...

你把规则说一下，我是看公式写的，不一定理解对。

汉唐 · 发表于 2023-7-3 15:02

练下手，不知是否符合题意

Excelgogogogo · 发表于 2023-7-3 15:20

汉唐发表于 2023-7-3 15:02
练下手，不知是否符合题意

大佬，你这样写，只解决了当前蓝色单元格的问题，没有结合前边那个去重复VBA，我需要2个代码都运行才能出现我想要的效果

于箱长 · 发表于 2023-7-3 15:23

于箱长 · 发表于 2023-7-3 16:25

汉唐发表于 2023-7-3 15:02
练下手，不知是否符合题意

好思路，学到了

汉唐 · 发表于 2023-7-3 16:41

楼主之前的要求是修改蓝色区域的代码吧？要2个代码合二为一的话，请参考以下附件

鄂龙蒙 · 发表于 2023-7-3 20:45

供参考：

刀具配备.rar (40.44 KB, 下载次数: 6)

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

[求助] 请大神帮忙修改和补充下代码。谢谢

评分

评分

评分

[求助] 请大神帮忙修改 和补充下代码。谢谢

评分

评分

评分

[求助] 请大神帮忙修改和补充下代码。谢谢