如何自动历遍所有组合 罗列出去重后的数值

LV草地

各位大神好！

请求写一个自动工具代码。
需求背景介绍：现已知库存零件数量以及对应的箱型尺寸，想要罗列出所有零件（箱型）排列组合后的库位深度值。详见附件excel。

感谢支持！

附件后缀直接改为“.XLSX"即可打开。

liulang0808

Sub 按钮3_Click()
    Set d = CreateObject("scripting.dictionary")
    Rows(23).ClearContents
    r = Cells(Rows.Count, 6).End(3).Row
    arr = [f4].Resize(r)
    For Each x In arr
        If Len(x) > 0 Then d(Val(x)) = ""
    Next
    ReDim brr(1 To d.Count)
    For j = 1 To d.Count
        brr(j) = WorksheetFunction.Small(d.keys, j)
    Next j
    [b23].Resize(1, UBound(brr)) = brr
End Sub

liulang0808

历遍所有组合 (1).zip (19.08 KB, 下载次数: 8)

2024-3-11 11:50 上传

点击文件名下载附件

无关岁月

历遍所有组合.7z (21.25 KB, 下载次数: 13)

2024-3-11 12:02 上传

点击文件名下载附件

LV草地

无关岁月 发表于 2024-3-11 12:02

大神 帮我看看哪里出错了。

我相信是我操作失误了，不是你的代码的问题

感谢！

LV草地

liulang0808 发表于 2024-3-11 11:50
Sub 按钮3_Click()
    Set d = CreateObject("scripting.dictionary")
    Rows(23).ClearContents

版主大神，请帮我看看是不是我操作失误了。

相信不是您代码的问题。

无关岁月

LV草地 发表于 2024-3-13 09:11
大神 帮我看看哪里出错了。

我相信是我操作失误了，不是你的代码的问题

我这里测试没问题啊

LV草地

无关岁月 发表于 2024-3-13 09:18
我这里测试没问题啊

能否帮忙看看我加载了数据后的excel能否运行成功？

变化点：
1. data source 页里的零件号对应的”存储量“和”箱型“是链接另外一个excel的计算结果，因此会出现一些”blank“数据。（请帮忙看看源代码是否能识别这些空白数据）；
2. analyzing页里的黑色区域实则是一个解释说明区，运行时可不用在此罗列数据。也就是说，第二页里直接显示去重后的数据即可。

感谢支持！

附件尾缀直接改成”.xlsx"即可。

liulang0808

LV草地 发表于 2024-3-13 09:12
版主大神，请帮我看看是不是我操作失误了。

相信不是您代码的问题。

看看宏是否启用了吧

LV草地

liulang0808 发表于 2024-3-13 12:37
看看宏是否启用了吧

大神帮忙看看是不是因为这些乱码导致无法识别？
感谢支持！